Hallo,

ich selbst bin Windows nutzer und habe für jemanden bereits ein Makro geschrieben, bei dem ein Serienbrief in PDF konvertiert wird und dann über Outlook verschickt wird.

Das hat auch einwandfrei funktioniert. Allerdings wollte ich das Makro jetzt für jemand anderes verwenden. Dieser hat aber einen Mac und dort hat er Office für Mac oben.

Der email Versand funktioniert leider nicht. Es kommt die Nachricht, dass irgendwie keine Rechte da sind.

Beim PDF konvertieren steht, dass die Methode nicht vorhanden ist.

Weiß jemand Rat wie man das für Mac anders machen kann.

Danke schon mal für Infos.

PS Bitte den alten Beitrag löschen

Sub email()
    Dim data As String
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Set rngZiel = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
    data = rngZiel.Text
    Dim dataa() As String
    dataa = Split(data)
    Dim kostenstelle As String
    Dim empf, empf2 As String
    kostenstelle = dataa(2)
    empf = dataa(0)
    empf2 = dataa(1)
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    Dim pfad As String
    pfad = ActiveDocument.FullName
    Dim name1a() As String
    name1a = Split(pfad, ".docx")
    pfad = name1a(0)
    ActiveDocument.ExportAsFixedFormat pfad + ".pdf", 17
    
    
    Dim olApp As Object
    Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
        'Empfänger
        .Recipients.Add empf
        If Not empf2 Or Not empf2 Then
        .Recipients.Add empf2
        End If
        'Betreff
        .Subject = "f" & kostenstelle
        'Nachricht
        .Body = "Sehr geehrte Damen und Herren," 
        'Lesebestätigung aus
        .ReadReceiptRequested = False
        
        'Dateianhang
        .Attachments.Add pfad + ".pdf"
        
        .Display
        '.Send
    End With
    Set olApp = Nothing
    ActiveDocument.Save
    ActiveDocument.Close
End Sub