Email from Access

[scott]

Below is an example I found that creates Outlook email and sends. My problem
is I have one user that uses Outlook 2003 and the other uses Outlook
Express. Is there a way to send a email report from Access and allow the
code to send via Outlook Express if Outlook isn't available or isn't being
used as the default mail client?


CODE EXAMPLE:

Private Sub Command20_Click()

Dim mess_body As String
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = Me.Email_Address
.Subject = Me.Mess_Subject
.HTMLBody = Me.Mess_Text
If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.Add (Me.Mail_Attachment_Path)
End If
'.DeleteAfterSubmit = True 'This would let Outlook send the note without
storing
it in your sent bin
.Send
End With
'MsgBox MailOutLook.Body
Exit Sub
email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message is: " &
Err.Description
Resume Error_out
Error_out:
End Sub

 

[Douglas J. Steele]

Outlook Express doesn't expose itself for Automation, so it's not possible
to use code like that with it.

Tony Toews has some information about working with Outlook Express in his
Access EMail FAQ at http://www.granite.ab.ca/access/email.htm, specfically
at http://www.granite.ab.ca/access/email/mapi.htm