Outlook Attachment Reminder

[DbHd]

I often forget to attach a file when sending email. I have code to remind me with a yes/no/cancel msgbox, but I want to embelish that by opening Windows Explorer if they click yes to add the attachment.

So, how do you open Windows Explorer by code from within Outlook 2003?

 

[PHV]

You may use this function:

Function PickFile()
Dim f As Object
Set f = CreateObject("SAFRCFileDlg.FileOpen")
f.OpenFileOpenDlg
PickFile = f.FileName
Set f = Nothing
End Function

Or use something like this:
CreateObject("WScript.Shell").Run "C:\"

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886