Email Attachments

[KirovHC]

I created a sheet that basically serves to send emails automatically.
My problem arises when I have to attach files: I currently use the string .attachments.Add "filepath".
This assumes that the user puts the file to attach in the given path.
I would like to let the user choose the path of the file to attach, do you have any suggestions about it?
Greetings to all,
Kirov.

 

[JoeMo]

Have you considered GetOpenFilename?
Application.GetOpenFilename method (Excel)

 

[KirovHC]

Have you considered GetOpenFilename?
Application.GetOpenFilename method (Excel)

Hello,
could you kindly give me an example by inserting a simple button? (click, select the file)

 

[JoeMo]

Hello,
could you kindly give me an example by inserting a simple button? (click, select the file)

I have to go offline right now. Suggest you look at the link I posted and google Excel VBA GetOpenFilename for examples of use.

 

[daverunt]

Here's code I've been using. You can select single/multiple.

AttachFileName = Application.GetOpenFilename("Files (*.**)," & _
"*.**", 1, "Select File", "Open", True)
For i = 1 To UBound(AttachFileName)

.Attachments.Add AttachFileName(i)