Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: bono am 22.10.02 - 16:37:05
-
Hi,
möchte unter Word ein Serienbrief erstellen... wie kann ich die adresse aus dem Notes einbinden? Dort wird immer nach outlook gefragt...
Hat jemand das schon mal gemacht?
Wäre nett wenn ihr mir sagen würdet wie ich das programmieren kann... bin ein frischling :-)
Danke und Gruß
Bono
-
Hi Bono,
hast Du denn NotesSQL 3.01 installiert?
Damit kann man per ODBC auf Notes-Datenbanken zugreifen.
Oder wie hast Du Dir das vorgestellt? Kannst aber auch die Adressen aus Notes exportieren und dann als Tabelle für Word bereitstellen.
Gruß
Matthias
-
das mit dem Export hört sich glaube ich einfacher an. :-)
also wie muß ich vorgehen?
Danke nochmals
-
Hey... den NotesSQL3.01 habe ich jetzt auch!
Also helft mir bitte!
Danke
-
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
-
Danke vielmals... das ist top hier... dennoch geht es nicht! ;-)
ich kriege eine Fehlermeldung beim Ausführen mit F5
...
Fehler! Lotus Notes konnte nicht aktiviert werden.
Eine Idee?
Gruß
Bono
-
ist denn notes auf deinem Rechner installiert ??
-
natürlich.
-
wrum gehst du nicht diesen Weg
http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/c58841ba70811b5685256a2a004b496c?OpenDocument&Highlight=0,word
??
so wie ich den geposteten Code sehe ist das kein VBA Code !!
Der kann so nicht funktionieren
hab hier noch was für dich
http://eknori.dyndns.org/knowledge/devidea.nsf/703257f00a483fb180256879002c0178/a017c2f67f987e85802567f60031c6e9?OpenDocument&Highlight=0,merge
eknori
-
Hi,
den Code hatten ich irgendwo gefunden, ich weis nicht ob er funktioniert.
Gruss
Jörn