Email mit pdf-Dateianhang aus Excel
29.07.2003 10:44:08
CelinaD
heute plagt mich folgendens Problem.
Ich drucke aus Excel über den Acrobat Distiller Statistiken. Immer wenn ich eine Statistik gedruckt habe, möchte ich diese über Lotus-Notes an einen Empfänger senden.
In der Recherche habe ich dieses Makro gefunden das eigentlich alles macht was ich will - bis auf das Attachment:-( Ich schaffe es nicht ein PDF-File an das Mail anzufügen.
Die Verweise auf die Notes-dll's habe ich gesetzt.
lg Celina
Sub SendNotesMail()
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Dim Recipient As String
Dim attachFile as '?object
attachFile = "d:\pdftmp\ustat2.pdf"
Set Session = CreateObject("Notes.NotesSession")
Set Maildb = Session.CurrentDatabase
Set MailDoc = Maildb.CreateDocument
set attachfile = 'wie ??????
MailDoc.Form = "Memo"
Recipient = "CelinaD@nospam.at"
MailDoc.sendto = Recipient
MailDoc.Subject = "Das ist ein Test"
MailDoc.Body = "Bodytext"
MailDoc.AttachMe = attachFile '' das funktioniert nicht
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
End Sub