send object with gmail

[bbwolff]

i'm sending mail using local server, so no outlook.
i know how to attach a file with a fixed name.
i'd like to add the ability to attach whatever file from the comp - pictures,pdf,office files, where you'd chose from comp through fileexplorer whatever you want.
Is that possible?

 

[bbwolff]

Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = False
    If f.Show Then
    Me.txtAttach = f.SelectedItems(1)
    End If
End If