Hi,
versuchs mal hiermit:
Bezeichnung : Serienmails aus MS Word 97
COM Schnittstelle
Vorraussetzungen:
-Microsoft Word 97
-Lotus Notes ab R5.03 (sonst muss man die frühe Bindung und Varianten
nutzen. Info ? --> Noch mal anfragen !!)
Kurzanleitung:
-Word starten
-Menü "Extras / Makro / Visual Basic Editor"
-Im VB Editor
--Menue: Extras / Verweise
--Im Dialog: "Lotus Domino Objects" auswählen
-Im Projekt Explorer:
--Normal / Microsoft Word Objekte / ThisDocument auswählen
--Wechsel in das Code Fenster
--Source Code reinkopieren
Starten des Makros:
-VB Editor: Cursor auf die Funktion: F5 Start / F8 für Einzelschritte
-Word Menü: Makro, Makros Auswahl "ConnectLN()"
WICHTIG:
-das Makro befindet sich jetzt in der Normal.dot !!
-Es wird also mit jedem Start von Word installiert. Hier
gibt es bessere Wege und Möglichkeiten !
Source Code:
Sub ConnectLN()
' Testmethode : Thema *Re: SerienMails mit Word über Notes* / LN Anbindung
an Word
Dim session As New NotesSession ' das sollte bekannt sein
Dim notesdir As NotesDbDirectory
Dim mailDb As NotesDatabase
Dim doc As NotesDocument
On Error GoTo CONNECTERROR
Call session.Initialize ' Lotus Notes aufrufen
' oder Call session.Initialize("PASSWORT") ' Lotus Notes mit User ID
starten
Set notesdir = session.GetDbDirectory("")
Set mailDb = notesdir.OpenMailDatabase ' Maildatenbank des Nutzers
If mailDb.IsOpen Then
' Hier die Funktionen für die Serienmails einbinden
' Testmail
Set doc = mailDb.CreateDocument ' LN Document anlegen
' dann alle gewünschten / notwendigen Felder beschicken
doc.AppendItemValue "Subject", "Mail via COM Schnittstelle"
doc.AppendItemValue "Form", "Memo"
doc.AppendItemValue "Body", "diese Mail wurde über 'WORD 97' erstellt und
abgeschickt... "
doc.AppendItemValue "SendTo", "XXXX"
' doc.Save True, True ' speichern oder
doc.Send False ' nur versenden
' Testmail ende
Else ' FEHLER !!
MsgBox " Mail Datenbank konnte nicht geöffnet werden !", vbCritical
End If
Set doc = Nothing ' Objekte freigeben !!
Set mailDb = Nothing
Set notesdir = Nothing
Set session = Nothing
On Error GoTo 0
Exit Sub
CONNECTERROR:
MsgBox "Fehler: Lotus Notes konnte nicht aktiviert werden ..."
End Sub