Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Empfangsbestätigung in Lotus Notes aktivieren
1,114 views
Skip to first unread message
GilGalad
Nov 23, 2001, 1:54:32 PM11/23/01
to
Ich verschicke mit meinem VB-Prog. automatisch Mail über Lotus Notes.
Wie aktivieren ich das dies mit der Option 'Empfangsbestätigung' gesendet werden.
Wie aktivieren ich das dies mit der Option 'Empfangsbestätigung' gesendet werden.
Michael Reimer
Nov 24, 2001, 11:49:08 AM11/24/01
to
On 23 Nov 2001 10:54:32 -0800, GilG...@giga4u.de (GilGalad) wrote:
>Ich verschicke mit meinem VB-Prog. automatisch Mail über Lotus Notes.
>Wie aktivieren ich das dies mit der Option 'Empfangsbestätigung' gesendet werden.
Füge beim Versenden ein Feld "ReturnReceipt" ein. Der Wert muss "1"
sein.
Michael
http://www.quancom.de
GilGalad
Nov 26, 2001, 3:20:24 AM11/26/01
to
Die EB ist zwar jetzt aktiviert (laut Zustellinformation) aber es
kommt keine Empfangsbestätigung per Mail zurück.
Auch funktioniert SaveMessagesOnSend bei mir nicht (Mail wird einfach
nicht gespeichert).
Gibt es ein Problem zwischen VB und Lotus Notse ?
Hier mal mein Code:
Dim NSession As NotesSession
Dim NotesDB As NotesDatabase
Dim NotesDoc As NotesDocument
Dim NEobj As NotesEmbeddedObject
Dim MailTxt As NotesRichTextItem
Dim aRecip(0) As Variant
Dim strSignatur As String
aRecip(0) = "max.mueller@.notesserver.de"
Set NSession = CreateObject("Lotus.NotesSession")
NSession.Initialize
Set NotesDB = NSession.GetDatabase("", "names.nsf")
If Not NotesDB.IsOpen Then
MsgBox ("Zugriffsprobleme auf die Notes Datenbank")
Exit Sub
End If
Set NotesDoc = NotesDB.CreateDocument()
NotesDoc.SaveMessageOnSend = True
NotesDoc.AppendItemValue "subject", "Test"
Set MailTxt = NotesDoc.CreateRichTextItem("body")
MailTxt.AppendText strSignatur
NotesDoc.AppendItemValue "SendTo", aRecip
NotesDoc.AppendItemValue "ReturnReceipt", 1
NotesDoc.Send False
Set MailTxt = Nothing
Set NSession = Nothing
Set NotesDB = Nothing
Set NotesDoc = Nothing
kommt keine Empfangsbestätigung per Mail zurück.
Auch funktioniert SaveMessagesOnSend bei mir nicht (Mail wird einfach
nicht gespeichert).
Gibt es ein Problem zwischen VB und Lotus Notse ?
Hier mal mein Code:
Dim NSession As NotesSession
Dim NotesDB As NotesDatabase
Dim NotesDoc As NotesDocument
Dim NEobj As NotesEmbeddedObject
Dim MailTxt As NotesRichTextItem
Dim aRecip(0) As Variant
Dim strSignatur As String
aRecip(0) = "max.mueller@.notesserver.de"
Set NSession = CreateObject("Lotus.NotesSession")
NSession.Initialize
Set NotesDB = NSession.GetDatabase("", "names.nsf")
If Not NotesDB.IsOpen Then
MsgBox ("Zugriffsprobleme auf die Notes Datenbank")
Exit Sub
End If
Set NotesDoc = NotesDB.CreateDocument()
NotesDoc.SaveMessageOnSend = True
NotesDoc.AppendItemValue "subject", "Test"
Set MailTxt = NotesDoc.CreateRichTextItem("body")
MailTxt.AppendText strSignatur
NotesDoc.AppendItemValue "SendTo", aRecip
NotesDoc.AppendItemValue "ReturnReceipt", 1
NotesDoc.Send False
Set MailTxt = Nothing
Set NSession = Nothing
Set NotesDB = Nothing
Set NotesDoc = Nothing
Michael Reimer
Nov 27, 2001, 12:54:37 PM11/27/01
to
GilGalad
Nov 29, 2001, 6:18:13 AM11/29/01
to
Danke hat funktioniert
Kleine änderung große Wirkung ;o)
Kleine änderung große Wirkung ;o)
0 new messages