Hej, jag önskar er hjälp.

Jag vill ha en knapp som gör dokumentet till en pdf och som döps efter värdet i cell (B11) och samtidigt bifogar den i ett nytt mail. Jag vill att ämnesraden ska innehålla text och värdet i cellen B11. exempelvis text "Fakturanummer:" och sedan värdet i cellen. Som text i mailet vill jag alltid att det ska stå "Hej, se bifogad faktura".

Någon som sitter på kunskapen för att få detta att fungera?

Jagh ar faktiskt en knapp idag för att skapa en PDF som döps efter cell B11. Men vill atllså utveckla den :) Koden till knappen är:

Sub CreatePDF()

Dim Path As String

Path = "C:\Users\................"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Path & Range("B11").Value _

    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

    :=False, OpenAfterPublish:=False

End Sub