Serienbriefe aus MS Word als Serienmail mit LoNo

[jofa]

Hi @all,

meine User wünschen, dass sie aus MS Word Serienbriefe als Mail versenden können.

Kennt jemand ein Tool oder hat eine wie man dieses realisieren kann ?

Gruss JoFa

[Notes-Tiger]

Hi hab da gerade was gefunden.

Resources

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

[eknori]

Schau mal hier

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/c58841ba70811b5685256a2a004b496c?OpenDocument&Highlight=0,mail,merge



eknori

[Notes-Tiger]

Hi,
hast alles was du brauchst

[maxritti]

Hi,

wenn Du bei Deinem Office Packet Outlook mitinstalliert hast, dann sollte schon alles vorhanden sein, was Du für Serienmails brauchst. Als Stichwort gibt es hier die MAPI-Schinttstelle. Unter der Systemsteuerung gibt es ein Icon "Mail". Dort kannst Du Lotus Notes hinzufügen. Wenn Du nun eine Serienbrief unter Word erstellt hast, kannst Du bei "Serienbrief zusammenführen" Email als Empfänger auswählen und das entsprechende Feld mit der Emailadresse ausgewählt und schwups, geht die Serienmail raus.

cu

[jofa]

Hi @all,

danke für die Tipps ... ich habe es jetzt mit der Hilfe von Notes-Tiger hginbekommen ;-)

Gruesse JoFa