Sub SendAsPDf

Hej hej. NEdan gör det du önskar, du behöver dock ordna lite innan. Dels så behöver du ett fakturanummer eller något annat unikt. Sedan så behöver du ordna en undermapp där din arbetsbok ligger och döpa den till PDF. I mitt exempel så ligger fakturanummer i cell A1 på det aktivabladet. Är otestad kod men bör funka.

Dim FnameAndPath as string
'Arbetsbokens sökväg
Dim path as string: path = thisworkbook.path
''Du behöver något unikt i varje PDF namn, nedan låtsas jag att ni skriver fakturanummer i cell A1
Dim InvoiceNR as long: InvoiceNR = ActiveSheet.range("A1")

'Döp pdf filen, välj var den ska sparas
FnameAndPath = path & "\" & "\PDF\Faktura " & InvoiceNR & ".pdf"

'Spara som pdf med path och filnamn valt ovan
Activesheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
FnameAndPath, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Dim oApp as Object: set oApp = createObject("Outlook.Application")
Dim oMail as Object: set oMail = xOutlookObj.CreateItem(0)
    With oMail
'.Display visar ditt mail, du får själv trycka sänd. Byt ut till .send så skickas det automatiskt utan att visas
        .Display
        .To = "xxxxxxx@xxx.xxx"
        .CC = ""
        .Subject = "Faktura" & InvoiceNR
        .Attachments.Add FnameAndPath        
        
    End With

End sub

Mvh Christian