How can I check if email was sent?

pepok4 · Nov 17, 2013

Hi all,
I need help with sending email using VBA & HTML. I want send email from access. Message in body contains some text and table in HTML format. I need check if email was really sent or cancelled with user.
Thanks in advance.

Code:

Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)

    With objMail
        'Set body format to HTML
        .To = Me.To
        .Subject = Me.Subject
        .BodyFormat = olFormatHTML
        .HTMLBody = "<HTML><BODY>" & sTblBody & " </BODY></HTML>"
        .Display
        
    End With

I need some message (for example):
If error then
MsgBox "Email not sent"
Else
MsgBox "Email sent"
End If

spikepl · Nov 17, 2013

Here is a recipe for checking whether the mail was actually sent or not:
http://www.mrexcel.com/forum/excel-...ail-sent-excel-visual-basic-applications.html

and another, similar, example here:
http://stackoverflow.com/questions/2533066/vba-outlook-mail-display-recording-when-if-sent-manually

How can I check if email was sent?

pepok4

Registered User.

spikepl

Eledittingent Beliped

Similar threads

Users who are viewing this thread