Makro send pdf für mac OS

Sub EinfachesDruckenInPDF()



ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Programm.pdf", Quality:=xlQualityStandard, _

  IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True



End Sub

ub sendPDf() ' Hierdurch wird eine Temp PDF erstellt und mit Outlook versendet

    'gehört in ein Modul

   Dim app   As Object

   Dim file  As String

   Dim isNew As Boolean

   Dim lstrAllBody As String

   'file = "für den Auftritt mit " & ActiveSheet.Name & ".pdf" 'Benennung Anhang

    file = ActiveSheet.Name & " für den Auftritt" & ".pdf" 'Benennung Anhang

   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 = "xxx@xy.de"

      .cc = ""

      .BCC = ""

      .Subject = "Betrifft Angaben " & file 'hier wird der Betreff angegeben



    .GetInspector.Display 'mit Signatur! (ohne Signatur so '.GetInspector.Display  )

    lstrAllBody = .htmlBody

    .htmlBody = "Hallo zusammen

" & _

    "Im Anhang das Konzert-Programm

" & _

    "Mit freundlichen Gruessen
" & _

    "mein Vor-Name
" & _

    "mein Name
" & _

    lstrAllBody

            

    .Attachments.Add Environ("TEMP") & "\" & file

    '.ReadReceiptRequested = True 'Lesebestaetigung ein

    .Display 'Email anzeigen

            

   End With

   If isNew Then app.Quit

End Sub