Attaching Files to Emails
 

How can I get the following code to instead of attaching a file that I
specify in code to the email. I would like to make it open a browse screen so
that they can browse to a file for me at attach to the email.

With MailObject
.To = "EmailAddress"
.Subject = strFileName & " - " & Me.txtDescription
.Attachments.Add "c:\My Documents\book.doc"
.Display
End With

Thank you in advance.

Attaching Files to Emails
 

Try

fName = Application.GetOpenFileName()




"Ben" wrote:

How can I get the following code to instead of attaching a file that I
specify in code to the email. I would like to make it open a browse screen so
that they can browse to a file for me at attach to the email.

With MailObject
.To = "EmailAddress"
.Subject = strFileName & " - " & Me.txtDescription
.Attachments.Add "c:\My Documents\book.doc"
.Display
End With

Thank you in advance.