Erst. pdf mit Outl. versend bleibt im Hintergrund
17.05.2017 10:37:17
Hermann
ich bitte um Eure Hilfe.
Ich erstelle aus einem Tabellenblatt per Makro eine .pdf, die ich mit Outlook versende. Wenn ich nach dem Öffnen der Exceldatei den VBA-Editor öffne und wieder schließe, funktioniert alles wie gewollt.
Wenn ich aber nach dem Öffnen der Exceldatei den Sende-Button betätige ohne vorher den VBA-Editor geöffnet und wieder geschlossen habe, erscheint das Outlooksymbol in der Taskleiste und blinkt. Die Exceldatei bleibt aber im Vordergrund.
Wo könnte ich noch nach dem Fehler suchen?
VG Hermann
Sub als_pdf_senden()
Dim strPfad As String
strPfad = Environ("TEMP") 'Speicherort bestimmen
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad & "\" & ActiveSheet.Name & ".pdf" ', OpenAfterPublish:=False
Dim Outlook As Object
Dim OutlookMailItem As Object
Dim MyAttachments As Object
Set OutlookApp = CreateObject("outlook.application")
Set OutlookMailItem = OutlookApp.CreateItem(0)
Set MyAttachements = OutlookMailItem.Attachments
With OutlookMailItem
.to = Range("A3")
.Subject = "Abrechnung" 'Betreff
.BodyFormat = 2 '2 = HTML, 1 = Text
.Body = "" 'Email Inhalt
MyAttachements.Add strPfad & "\" & ActiveSheet.Name & ".pdf"
.Display
End With
Kill (strPfad & "\" & ActiveSheet.Name & ".pdf")
Set OutlookApp = Nothing
Set OutlookMailItem = Nothing
End Sub