Send File as Outlook Express Attachment

Category:

Office/VBA

Type:

Snippets

Difficulty:

Intermediate

Author:

Neil Crosby

Version Compatibility: Visual Basic 6, Visual Basic 5

More information:

This code assumes that Outlook Express is your default e-mail program. The result is "Send File as Outlook Express Attachment".

Place a Command Button on a form named Command1

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
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 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Code: