This works in Access and VB, you need a reference to "Microsoft Outlook 98 Object Model"


Public objOutl As New Outlook.Application
Private Sub Command1_Click()
CreateEmail "bill.gates@microsoft.com"
End Sub
Function CreateEmail(strRecipient As String)
Dim itmOutl As MailItem
Dim tmpOutl As Outlook.Application

On Error Resume Next
Set tmpOutl = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Set objOutl = New Outlook.Application
Err.Clear
Else
Set objOutl = tmpOutl
End If
On Error GoTo 0
Set itmOutl = objOutl.CreateItem(olMailItem)
itmOutl.Display False
itmOutl.Recipients.Add strRecipient
itmOutl.Attachments.Add "c:\command.com"
End Function