Powerpoint via outlook per Makro versenden
26.07.2016 15:19:17
tom
ich benötige bitte mal eure Hilfe. Ich möchte eine eben per Makro erstellte PowerPoint per Button verschicken. Prinzipiell funktioniert der Button sehr gut, nur wird die offene PowerPoint nicht angehangen. Ich möchte es ohne Pfad machen, da die Dateinamen sich ändern. Ich denke es liegt an der Zeile:
.Attachments.Add ActivePresentation.FullName
Hier der gesamte Code:
Sub Schaltfläche2_Klicken()
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ""
.Body = ""
.Attachments.Add ActivePresentation.FullName
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Grüße Tom
Anzeige