Domino 9 und frühere Versionen > Entwicklung

Lotus Notes und VB6 (CreateObject)

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite