Domino 9 und frühere Versionen > ND6: Entwicklung

workspace.EDITDOCUMENT Problem bitte um Unterstützung

(1/5) > >>

MichaelS:
Hallo Leute,

bin neu hier,  ich hoffe jemand kann mir weiterhelfen. :D

Das Problem:

ich habe ich VBA (Access 97) eine Routine geschrieben um die Mails
über Lotus Notes zu versenden.

Nun möchte dass, der User die Möglichkeit hat die Mails vor dem versenden zu bearbeiten. Ich meine das müsste Über "workspace.EDITDOCUMENT(True, domNotesDocumentMemo).GOTOFIELD("Subject") " funktionieren.

Nur erscheint hier die Fehlermeldung ("Extended Object Failure ") oder so ähnlich. ???

Hier der komplette Code:

***************************************
Public Sub test()

Dim domSession As New NotesSession
Dim domNotesDatabaseMailFile As NotesDatabase
Dim domNotesDocumentMemo As NotesDocument
Dim domNotesRichTextItemBody As NotesRichTextItem
Dim strattachment As String
Dim workspace As Object
Dim SendTo As String


' Put your passwork in the quotes below to skip propting
domSession.Initialize ("")


Set domNotesDatabaseMailFile = domSession.GetDatabase("", "mail\mschindl.nsf")

' Generate an error if previous attempts were unsuccessful.
If domNotesDatabaseMailFile Is Nothing Then
MsgBox ("Mail file not open")
Exit Sub
End If

SendTo = "Mailadresse"

Set domNotesDocumentMemo = domNotesDatabaseMailFile.CreateDocument
Call domNotesDocumentMemo.AppendItemValue("Form", "Memo")
Call domNotesDocumentMemo.AppendItemValue("From", domSession.CommonUserName)
Call domNotesDocumentMemo.AppendItemValue("SendTo", SendTo)
Call domNotesDocumentMemo.AppendItemValue("Subject", "Derzeitiger Stand zum Testsystem")
Set domNotesRichTextItemBody = domNotesDocumentMemo.CreateRichTextItem("Body")
domNotesRichTextItemBody.AppendText ("das ist ein test")
domNotesRichTextItemBody.AddNewLine (2)
' This is where you can add support for attachments.
strattachment = "Anhang"
Call domNotesRichTextItemBody.EmbedObject(EMBED_ATTACHMENT, "", strattachment) 'attaches the file to the

body field
' Send the document.

Set workspace = CreateObject("Notes.NotesUIWorkspace")
domNotesDocumentMemo.SaveMessageOnSend = True

Call workspace.EDITDOCUMENT(True, domNotesDocumentMemo).GOTOFIELD("Subject") ' hier erschneint die       

                          ' Fehlermeldung irgendwas mit          

                       ' "Extended Object failure"

Set domSession = Nothing

End Sub

**************************************************

Vielen Dank!

Michael.

Semeaphoros:
Mach das nacheinander:

set uidoc = workspace.EDITDOCUMENT(True, dommNotesDocumentMemo)
call uidoc.GOTOFIELD("Subject")

Dann siehst Du wohl auch, wo das Problem wirklich liegt

MichaelS:

Vielen Dank Semeaphoros,

werde später ausprobieren, bin zur Zeit an einem Rechner ohne Lotus Notes Client.

Gruß

Michaels

MichaelS:
Hallo,

habe das jetzt so gemacht wie es Semeaphoros empfohlen hat.

beim abarbeiten dieser Zeile

Set uidoc = workspace.EDITDOCUMENT(True, domNotesDocumentMemo)

erscheint die Fehlermeldung: "Laufzeit fehler '7419' Incorrect argument Type: object expected"
Was nun ???

Vielen Dank!

MichaelS.

Axel:
Hi,

wo hast du den die Variable uidoc deklariert?

Versuch's mal beim "gedimse" mit der Zeile

Dim uidoc As NotesUIDocument


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite