PDF an eMail ohne Dateiendungen
06.12.2014 22:13:34
Luca-Darius
mit folgendem Code erzeuge ich einen PDF-Anhang und sende diesen Anhang an eine Mail-Adresse ( _
soweit so gut):
Sub PDF_an_eMail()
Dim app As Object
Dim file As String
Dim isNew As Boolean
file = ThisWorkbook.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat xlTypePDF, Environ("TEMP") & "\" & file
On Error Resume Next
Set app = GetObject(, "Outlook.Application")
If app Is Nothing Then
Set app = CreateObject("Outlook.Application")
isNew = True
End If
With app.CreateItem(0)
.To = "abc@def.de"
.CC = ""
.BCC = ""
.Subject = "PDF-Anhang: " & file
.Body = "Hallo," & vbCr _
& vbCr _
& "im Anhang findest du das PDF-Dokument." & vbCr _
& vbCr _
& "Mit freundlichen Grüßen"
.Attachments.Add Environ("TEMP") & "\" & file
.Send
End With
If isNew Then app.Quit
End Sub
Wie müsste ich den Code anpassen, damit mein Filename - der im PDF-Dokumentennamen und im Betreff mit der Endung .xlsm.pdf erscheint - ohne die Endung .xlsm.pdf versendet wird?
Das zweite Problem: Ich möchte aus meinem aktiven Arbeitsblatt (Tabelle1) nur die Seite 2 (Bereich A42:N84) al PDF erzeugen und versenden. Gibt es dafür auch eine Lösung oder kann ich nur alle Seiten des Sheets in ein PDF-Dokument packen?
Danke fürs helfen - Gruß Luca-Darius