Lotus Notes und VB6 (CreateObject)

[Mortione]

Ich habe folgendes Problem:
Ich steuere über ein VB6 Programm Lotus an und erzeuge ein neues Dokument. Das Dokument sollte allerdings leer sein, leider
wird das neue Dokument mit meiner Standardsignatur erzeugt.
Anbei der Code:

Dim Maildb As Object 'Die Datenbank
Dim UserName As String 'Der Benutzername
Dim MailDbName As String 'Der Datenbankname
Dim MailDoc As Object 'Das Maildokument selbst
Dim AttachME As Object 'Der Anhang (Richtext)
Dim Session As Object 'Die Notes Session
Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang)
.....

   'Lotus öffnen (Neue Mail)
    Dim Workspace As Object
    Set Workspace = CreateObject("Notes.NotesUIWorkspace")
    Call Workspace.EditDocument(True, MailDoc).GotoField("Body")
    
  
    'Aufräumen
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing

Was muß ich denn hier ändern, damit das Bodyfeld frei ist.
Danke im voraus

[Glombi]

So sollte es gehen:

Dim Maildb As Object 'Die Datenbank
Dim UserName As String 'Der Benutzername
Dim MailDbName As String 'Der Datenbankname
Dim MailDoc As Object 'Das Maildokument selbst
Dim MailUIDoc As Object 'Das Frontend-Maildokument selbst
Dim AttachME As Object 'Der Anhang (Richtext)
Dim Session As Object 'Die Notes Session
Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang)
.....

  'Lotus öffnen (Neue Mail)
   Dim Workspace As Object
   Set Workspace = CreateObject("Notes.NotesUIWorkspace")
   set MailUIDoc = Workspace.EditDocument(True, MailDoc)

   call MailUIDoc.GotoField("Body")
   call MailUIDoc.FieldClear("Body")
   
 
   'Aufräumen
   Set Maildb = Nothing
   Set MailDoc = Nothing
   Set AttachME = Nothing
   Set Session = Nothing
   Set EmbedObj = Nothing

Andreas

[Mortione]

Vielen Dank es funktioniert

[Mortione]

Hallo Andreas,
ich stehe etwas auf der Leitung, wie bekomme ich denn jetzt
einen neuen Text in das "leere - Body Feld"
Vielen Dank im voraus.

[Glombi]

So:
call MailUIDoc.GotoField("Body")
call MailUIDoc.FieldClear("Body")
call MailUIDoc.FieldSetText("Body","Das wird jetzt in das Feld geschrieben")

Wenn Du die Notes Designer Hilfe hast, dann sieh mal unter der Klasse NotesUIDocument nach.

Andreas

[Mortione]

Hallo Andreas,
vielen Dank, die Hilfe habe ich leider nicht.
Wo könnte ich die denn herbekommen bzw. wie heißt denn die Datei?
Ich habe da aber noch ein kleines weiters Problem.
Du weist ja mit dem Finger und der Hand...
Wie kann ich den jetzt noch ein Logo einfügen.
BMP, Tiff oder JPG ?
Danke für die super schnelle Unterstützung.

[Glombi]

Datei importieren:

Call notesUIDocument.Import( [ filter$ , filename$ ] )
Parameter
filter$
String. Optional. The type of file as specified below. The specification must be exact except for case.
ASCII Text
Binary with Text
BMP Image
CGM Image
GIF Image
HTML File
JPEG Image
Lotus 1-2-3
Lotus PIC
Lotus Word Pro
Microsoft Excel
Microsoft RTF
Microsoft Word
PCX Image
TIFF 5.0 Image
WordPerfect 5.x
WordPerfect 6.0/6.1
Hinweis  This list is subject to change. To verify the list, check "Files of type" in the "Import" dialog box.
filename$
String. Optional. The name of the file.
Usage
The focus must be in a rich text field for this method to work.

Andreas

[Glombi]

Du kannst die Designer Hilfe hier bekommen:

http://www.lotus.com/ldd/notesua.nsf/find/designer

Andreas