Email bitmap attachments

[kmchong]

I use the following codes to send email and attachments

(Courtesy of MarkSleeve)

Dim oSession As MAPI.Session
Dim oMessage As MAPI.Message
Dim oRecipient As MAPI.Recipient


Set oSession = CreateObject("MAPI.Session")

oSession.Logon "Microsoft Outlook" 'this will promt for a profile. This can be avoided by including the profile name

Set oMessage = oSession.Outbox.Messages.Add
With oMessage
.Subject = "Email From Chong For Testing"
.Text = "This is a test message from kmchong"
.Attachments.Add "c:\temp\screencam.bmp"

Set oRecipient = oMessage.Recipients.Add
oRecipient.Name = "[email protected]"
oRecipient.Resolve

.Update
.Send

End With

oSession.Logoff
Set oSession = Nothing
Set oMessage = Nothing
Set oRecipient = Nothing


It works to send the subject and text attachment. But if I send bitmap attachment, the received file is blank (when I use paintbush to view)

Do anybody can tell me WHY?

[Mark Sreeves]

Hmm... it didn't seem to want to work for me with bitmaps either!

You could ytr using the Outlook object libriary instead as it seems a bit more robust.

[Buzby]

..or you could download BuzMail from http://www.PlanetSourceCode.com/vb - just search for "BuzMail". This is my MAPI 'object' that allows you to send e-mails with or without attachments without having to resort to the horrible MS MAPI commands.