Domino 9 und frühere Versionen > ND6: Entwicklung

workspace.EDITDOCUMENT Problem bitte um Unterstützung

<< < (2/5) > >>

koehlerbv:
Guter Blick, Axel  ;)

Man sollte NIE-NIE-NIEMALS eine einzige Zeile Code schreiben, ohne vor
Option Explicit
oder
Option Declare (nur LS)
gesetzt zu haben. Das erspart soviel Zeit an vollkommen nutzloser Fehlersuche ...

Bernhard

MichaelS:
Hallo,

So hier ist  nochmal der komplette code mit dem gedimse, war aber auch schon so
das weiter oben war veraltert.

'********************************************
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 uidoc As NOTESUIDOCUMENT


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

' Either SendTo, CopyTo, or BlindCopyTo is required.

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

Dim SendTo As String
SendTo = "schindlm@tiscali.de"


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 = "C:\Dokumente und Einstellungen\User_BuyOne\Eigene Dateien\vertreter.txt"
Call domNotesRichTextItemBody.EmbedObject(EMBED_ATTACHMENT, "", strattachment) 'attaches the file to the body field

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

Set uidoc = workspace.EDITDOCUMENT(True, domNotesDocumentMemo)
Call uidoc.GOTOFIELD("Subject")

 'domNotesDocumentMemo.Send (False)

Set domSession = Nothing

End Sub


'***********************************************
Was mir noch auffällt dass, im "Dim uidoc As NOTESUIDOCUMENT" das NOTESUIDOCUMENT automatisch groß erscheint auch wenn man das klein schreibt. bei z. Bsp NotesSession ist das nicht so.

Ach so und ich habe versucht  workspace als "workspace As New NOTESUIWORKSPACE" zu deklarieren, hier erscheint die Fehlermeldung "Fehler beim kompilieren: unzulässige Verwendung des Schlüsselworts 'New'"

den Verweis auf die Typenbibliothek existiert jedoch. >:(

Bitte um Hilfe

MichaelS.

Semeaphoros:
Aha, das steht in der Designer-Hilfe bei NotesUIDocument:


Note  This class is not supported in COM.


Ergo: Man müsste das über Ole lösen statt Com .....

Axel:
Hi,

in der Online-Hilfe steht bei allen UI-Klassen, dass sie über die COM-Schnittstelle nicht unterstützt wird.

Ich glaube über diesen Weg kommt du nicht weiter.


Axel

Semeaphoros:
Genau, das war auch, was mir dunkel schon den ganzen Tag im Kopf herumkurvte .... :) ..... da muss wirklich ein anderer Weg her.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete