Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: jofa am 02.10.02 - 14:02:50

Titel: Serienbriefe aus MS Word als Serienmail mit LoNo
Beitrag von: jofa am 02.10.02 - 14:02:50

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

Titel: Re:Serienbriefe aus MS Word als Serienmail mit LoNo
Beitrag von: Notes-Tiger am 10.10.02 - 15:49:49

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

Titel: Re:Serienbriefe aus MS Word als Serienmail mit LoNo
Beitrag von: eknori am 10.10.02 - 16:05:32

Schau mal hier

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



eknori

Titel: Re:Serienbriefe aus MS Word als Serienmail mit LoNo
Beitrag von: Notes-Tiger am 14.10.02 - 20:53:50

Hi,
hast alles was du brauchst ???

Titel: Re:Serienbriefe aus MS Word als Serienmail mit LoNo
Beitrag von: maxritti am 25.10.02 - 08:44:06

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

Titel: Re:Serienbriefe aus MS Word als Serienmail mit LoNo
Beitrag von: jofa am 27.10.02 - 12:58:10

Hi @all,

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

Gruesse JoFa