AW: E-Mail per Steuerelemete Button
23.01.2017 15:32:43
Manfred
Hallo Forum
habe eine Lösung die für mich OK ist
If Range("d32") = "m" Then
Sheets("Tabellenblatt2").ExportAsFixedFormat Type:=xlTypePDF, Filename:="c:\temp\ _
Tabellenblatt2.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = ""
.Subject = ""
.Attachments.Add "c:\temp\Tabellenblatt2.pdf"
.Display
End With
Kill "c:\temp\Tabellenblatt2.pdf"
Sheets("Grundmaske").Select
End If
Es wird zuerst das gewünschte Tabellenblatt als PDF im Tempverzeichnis gespeichert und dann an eine Mail angefügt.
Anschließend wird die Date im Tempverzeichnis wieder gelöscht.
Manfred