Excel Marko - PDF versand über Apple Mail
10.09.2015 11:37:36
Hans
Nun möchte ich das der Mailversand aber auch auf dem Mac mit AppleMail bzw. generell mit dem Standard E-Mail Programm funktioniert.
Weiß jemand was ich genau ändern muss?
Sub AlsPDFSpeichern()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Sheets("Anschreiben").Select
Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = _
_
_
_
_
_
_
_
_
vbYes Then pdfOpenAfterPublish = True
Rem Pfad und Name der PDF-Datei
pdfName = ThisWorkbook.Path & "\" & Worksheets("Hilfe").Range("F6").Value & "\" & Worksheets(" _
_
_
_
_
_
_
_
_
Hilfe").Range("F7").Value & "\" & Worksheets("Hilfe").Range("F8").Value & "\" & Worksheets(" _
Hilfe").Range("F9").Value & "\" & Worksheets("Anschreiben").Range("A15").Value & "_" & _
Worksheets("Hilfe").Range("F6").Value & ".pdf"
Rem PDF-Datei erstellen. Funktioniert nur in Excel 2007 oder höher, nicht in Excel 2003 oder ä _
_
_
_
_
_
_
_
_
lter
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.to = Worksheets("Hilfe").Range("F10").Value
.CC = Range("Z2").Value
.subject = Worksheets("Anschreiben").Range("A15").Value & " - " & Worksheets(" _
Hilfe").Range("F6").Value
.htmlBody = Worksheets("Anschreiben").Range("A18").Value
.Attachments.Add pdfName
.Display
End With
Rem Boolean-Variable "pdfOpenAfterPublish" zurücksetzen
pdfOpenAfterPublish = False
Sheets("Einstellung").Select
End Sub
Danke für eure Unterstützung!
Hans
Anzeige