PDF-Dokument an Email anhängen
04.12.2008 15:44:13
Franz
mit dem nachfolgenden Code erzeuge ich eine PDF-Datei aus meinem Excelsheets(Eingabe,Ausgabe und Info). Nun
möchte ich die erzeugte PDF-Dokument direkt mit meiner generierter Email einbinden. Wenn ich die Exceldatei
mit senden möchte weiß ich den Befehl aber wie kann ich die aktuelle PDF-Datei in mein Email anhängen.
Hat jemand eine Idee?
Gruß Franz
Sub versenden_mit_PDF()
Dim WshNetwork As Variant
Dim Drucker As String
strDateiname = ActiveWorkbook.Name
Set WshNetwork = CreateObject("WScript.Network") 'Erzeuge variabelen PDF-Drucker
WshNetwork.SetDefaultPrinter "\\srv15\PDF0015"
Drucker = "\\srv15\PDF0020"
ActiveWorkbook.Save 'Aktuelle Arbeitsmappe wird gespeichert'
Sheets(Array("Eingabe", "Ausgabe", "Info")).Select
ActiveWindow.SelectedSheets.PrintOut ActivePrinter:=Drucker
Dim olApp As Object
Dim objNachricht As Object 'Variable für die Mail
Dim objRecipient As Object 'Variable für die Empfänger
Dim objRange As Object
Dim objCC As Object 'Variable für die CC Empfänger
Dim obEmail As Object
Set olApp = CreateObject("Outlook.Application") 'Erzeuge Outlook-Sitzung
'Erstelle eine neue Nachricht, die 0 in CreateItem steht für olMailItem'
Set objNachricht = olApp.CreateItem(0)
' ActiveobjNachricht = ActiveWorkbook.FullName
With objNachricht
.Subject = " - " & Now()
' Erzeuge 2 Adressaten: Der 1. wird als primärer, der 2. als Kopieempfänger angegeben
Set objRecipient = .Recipients.Add("test@info.de")
'Hänge eine Datei an die Mail
' .Attachments.Add ActiveWorkbook.FullName 'Aktuelle Exceldatei wird angehängt, sollte _
aber die
erzeugte PDF-Datei sein!!!'
' .Attachments.Add ActiveWorkbook.FullName
' .DeleteAfterSubmit = True 'Nach dem Senden direkt wieder löschen (nicht aufheben)
.Display 'Anzeige im Outlook
End With
'Bereinigung der Variablen
Set objRecipient = Nothing
Set objNachricht = Nothing
Set objCC = Nothing
Set olApp = Nothing
End Sub