Вот кусок из васика по outlook сам переделаешь :
Private Sub Export2Outlook()
Dim Outlook As Outlook.Application
Dim Mail As MailItem, DestFolder As MAPIFolder
dim FN as string

fn="C:\autoexec.bat"
Set Outlook = New Outlook.Application

Set DestFolder = Outlook.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)

Set Mail = CreateItem(olMailItem)
With Mail
.To = "info@xxx.ru"
.Subject = "xxxxxxx"
.Attachments.Add FN, olByValue

.Send
End With
Set Outlook = Nothing

End Sub