Hej.

Jeg har lavet en makro, hvor der dannes en PDF ud fra mit ark, som så skal vedhæftes i en mail og sendes til specifikke modtagere.

Alle trinene fungerer egentlig som de skal, og kan også få sendt mails, såfremt jeg fjerne vedhæftningen.

Så selve mekanismen burde være rigtig. Og PDF bliver også oprettet korrekt, da jeg kan se den efterfølgende, selvom min makro laver en fejl og går i debug.

Min VBA ser således ud:

Sub SendWekomFileAsPDF()
' SendWekomFileAsPDF() Makro
    ActiveSheet.Unprotect
    Dim OutlookApp As Outlook.Application
    Dim emItem As Object
    Dim Recipient As String
    Dim Subject As String
    Dim Message As String
    Dim Fname As String
   
' Message details
    Recipient = Range("AA1") & ";" & Range("AA2") & ";" & Range("AA3")
    Subject = Range("P7") & "  -  " & Range("G15") & " " & Range("O15") & " - Wekom"
    Message = "Se venligst vedhæftede fil" & vbNewLine & vbNewLine & "Goods Receiving department"
    Fname = Range("P7") & " - " & Range("G15") & " - " & Range("O15") & ".pdf"
   
' Create PDF Attachment
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname
   
' Create Outlook object
    Set OutlookApp = New Outlook.Application
   
' Create Email Item, Display or send it
    Set emItem = OutlookApp.CreateItem(olMailItem)
    With emItem
    .To = Recipient
    .CC = Range("AC1") & ";" & Range("AC2") & ";" & Range("AC3")
    .Subject = Subject
    .Body = Message
    .Attachments.Add Fname (Det er denne jeg får en fejl på - slettes denne linje, kører makroen uden problemer)
    '.Display
    .Send
    End With
    Set OutlookApp = Nothing
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub