Hello Tek-Tips
I have searched the archives unsuccessfully. I wish to add the ability to attach files to emails sent utilizing my code below:
**General Declaration Section**
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim strAddress As String
Dim strOpen As Long
strAddress = "mailto:someone@email.com?"
strOpen = ShellExecute(Me.hwnd, "Open", strAddress, "", "", vbNormalFocus)
I want the abliity to open the default e-mail client and have the user confirm the message before sending.
Any suggestions will be greatly appreciated.
Tom
Tom (maxflitom)
I have searched the archives unsuccessfully. I wish to add the ability to attach files to emails sent utilizing my code below:
**General Declaration Section**
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim strAddress As String
Dim strOpen As Long
strAddress = "mailto:someone@email.com?"
strOpen = ShellExecute(Me.hwnd, "Open", strAddress, "", "", vbNormalFocus)
I want the abliity to open the default e-mail client and have the user confirm the message before sending.
Any suggestions will be greatly appreciated.
Tom
Tom (maxflitom)