Mailversand über Notes mit Excel/VBA
14.05.2008 14:45:01
Werner
ich habe ein kleines Script um in Excel mit VBA Mails aus Lotus Notes zu versenden.
Das funktioniert auch problemlos, allerdings eine Kleinigkeit stört noch:
In Lotus im Ordner "Gesendet" erscheint mir in der Ansicht der Empfänger nicht (das Mail wenn man es öffnet hat einen Empfänger, nur eben in der Ansicht fehlt der Empfänger).
Hat jemand eine Idee woran das liegen könnte, nachstehend der Code:
Sub SendNotesMail()
Dim Maildb As Object
Dim MailDoc As Object
Dim session As Object
Dim Recipient() As Variant
Dim Signature As String
Dim rtitem
Dim EmbedObj As Object
Dim AttachME As Object
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Set MailDoc = Maildb.CREATEDOCUMENT
Recipient = "meinemail@meinemail.de"
MailDoc.Form = "Memo"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ""
MailDoc.Subject = "Testmail aus Excel"
Signature = Maildb.GETPROFILEDOCUMENT("CalendarProfile").GETITEMVALUE("Signature")(0)
Set rtitem = MailDoc.CREATERICHTEXTITEM("Body")
With rtitem
.APPENDTEXT ("Testversand")
.ADDNEWLINE (2)
Call .EMBEDOBJECT(1454, "", "C:\Eigene Dokumente\Makro\Test1.xls")
.ADDNEWLINE (2)
.APPENDTEXT Signature
End With
MailDoc.SAVEMESSAGEONSEND = True
MailDoc.PostedDate = Now()
MailDoc.SEND 0, Recipient
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set session = Nothing
Set EmbedObj = Nothing
MsgBox "Mail versandt!"
End Sub
Vielen Dank für Eure Hilfe