Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Mortione am 15.09.05 - 15:54:11

Titel: Lotus Notes und VB6 (CreateObject)
Beitrag von: Mortione am 15.09.05 - 15:54:11

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

Titel: Re: Lotus Notes und VB6 (CreateObject)
Beitrag von: Glombi am 15.09.05 - 15:59:17

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

Titel: Re: Lotus Notes und VB6 (CreateObject)
Beitrag von: Mortione am 15.09.05 - 16:15:08

Vielen Dank es funktioniert

Titel: Lotus Notes und VB6 (CreateObject) - Neues Problem
Beitrag von: Mortione am 16.09.05 - 07:57:33

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.

Titel: Re: Lotus Notes und VB6 (CreateObject)
Beitrag von: Glombi am 16.09.05 - 08:57:49

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

Titel: Re: Lotus Notes und VB6 (CreateObject)
Beitrag von: Mortione am 16.09.05 - 10:23:33

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.

Titel: Re: Lotus Notes und VB6 (CreateObject)
Beitrag von: Glombi am 16.09.05 - 10:32:27

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

Titel: Re: Lotus Notes und VB6 (CreateObject)
Beitrag von: Glombi am 16.09.05 - 10:34:10

Du kannst die Designer Hilfe hier bekommen:

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

Andreas