Hi

Sorry for my crappy English, i'm from Belgium sorry.

I need some help.

New to all the VBA stuff but i'm looking for some help to create a marco to make a PDF of my worksheet and then sending it by email. (so without saving it to the PC)

I have a code to save the PDF to a user identified folder en send as and email (with path) but those do not meet what i'm searching for.

Here is the code for the PDF save 




Sub Save_To_User_Location()

Dim fileSave As FileDialog
Set fileSave = Application.FileDialog(msoFileDialogFolderPicker)

Sheets(Array("Bestelbon")).Select

Dim Sname
Sname = Cells(8, 10).Value

Dim Tname

Tname = Cells(4, 3).Value


With fileSave

    If .Show = -1 Then
    
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Bestelbon zonnetent - " & Tname & " - '" & Sname & "' ", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
        End If
        End With
        
End Sub



Can I follow the user identified folder and attach that in my email?