How can I check if email was sent? (1 Viewer)

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

Pat Hartman · Nov 17, 2013

You can send the email directly rather than displaying it. There isn't any way to determine if the user actually pushed the send button since that is under the control of Excel. If you wanted to know what emails have been sent, you would need to read through the sent emails collection and match them to what you think should have been sent.

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? (1 Viewer)

pepok4

Registered User.

Pat Hartman

Super Moderator

spikepl

Eledittingent Beliped

Similar threads

Users who are viewing this thread