AW: Excel und Lotus Notes
06.06.2005 17:13:22
JensM
Hallo Pia!
So geht's (wenn notes gerade NICHT gesperrt z.B. durch automatische PW-Sperre):
Die test.xls wird versandt.
Sub Mailversand_über_Notes()
Dim Maildb As Object
Dim MailDbName As String
Dim MailDoc As Object
Dim session As Object
Dim Recipient As String
Dim e As String
Dim f As String
Dim EmbedObj As Object
Dim AttachME As Object
Set session = CreateObject("Notes.NotesSession")
Set Maildb = session.CURRENTDATABASE
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.Form = "Memo"
Recipient = "empfänger@xx.com"
MailDoc.sendto = Recipient
MailDoc.CopyTo = ""
MailDoc.Subject = "Betreff bla bla"
MailDoc.SAVEMESSAGEONSEND = True
Set AttachME = MailDoc.CREATERICHTEXTITEM("K:\test.xls")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", "K:\test.xls")
MailDoc.CREATERICHTEXTITEM ("K:\test.xls")
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