I currently have the following VB code in a MS Access Database which I use
to send emails. Nonetheless, it opens Outlook and I would like it to send an
email using Outlook Express. Could anyone please oblige in ammending the
code for me, so that it uses Outlook Express 5?
Thanks
______________
Private Sub cmdSendEmail_Click()
Dim objOutlook As Express.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
' Add the To recipient(s) to the message.
Set objOutlookRecip = .Recipients.Add(Me.EMail)
objOutlookRecip.Type = olTo
.Display
End With
Set objOutlook = Nothing
End Sub