Solved

Programming return receipt for Outlook Email in VBA

Posted on 2016-10-11
12
38 Views
Last Modified: 2016-10-12
Attached is MS-Access 2007 VBA I am using to send an email to a group of recipients in a table.  The programming works.  Now I want to add the command to make the recipient acknowledge they have received the email.


Can you tell me what I need to add to the program to make this happen?

Thank you

Glen
Email.txt
0
Comment
Question by:GPSPOW
  • 5
  • 3
  • 3
  • +1
12 Comments
 
LVL 33

Expert Comment

by:Norie
Comment Utility
Glen

Try this, replacing 'youremail@here.com' with the email address the read receipt should be sent to.
    With iMsg
        Set .Configuration = iConf
        '.To = "gpspow55@gmail.com"
        .To = EmailAddr
        .From = """Glen"" <gpspow55@gmail.com>"
        '.CC = "" ';"PHanson@sleh.com"
        '.CC = "gpspow55@gmail.com;"
        .BCC = ""
        .Subject = Subj
        .TextBody = Msg
        .Fields("urn:schemas:mailheader:return-receipt-to") = "youremail@here.com"
        .DSNOptions = 14
        .Fields.Update
        .Send
    End With

Open in new window

0
 

Author Comment

by:GPSPOW
Comment Utility
I added lines 11-13.

I changed "youremail@here.com" to my work email:  "gpowers@stlukeshealth.org"

With iMsg
                Set .Configuration = iConf
                '.To = "gpspow55@gmail.com"
                .To = EmailAddr
                .From = """Glen"" <gpspow55@gmail.com>"
                '.CC = "" ';"PHanson@sleh.com"
                '.CC = "gpspow55@gmail.com;"
                .BCC = ""
                .Subject = Subj
                .TextBody = Msg
                .Fields("urn:schemas:mailheader:return-receipt-to") = "gpowers@stlukeshealth.org"
              .DSNOptions = 14
              .Fields.Update

                .Send
            End With


I sent the email to my personal email.

I did not get a notification that the receiver opened the email at my work email.

Any suggestions?

Glen
0
 
LVL 82

Expert Comment

by:Dave Baldwin
Comment Utility
If you send an email to me, 'return-receipt' is a request that I can approve or disapprove.  You can't force me to acknowledge the request.
0
 

Author Comment

by:GPSPOW
Comment Utility
I was not asked to asked the question.

Any ideas why not?
0
 
LVL 82

Expert Comment

by:Dave Baldwin
Comment Utility
I was not asked to asked the question.
I don't understand?
0
 

Author Comment

by:GPSPOW
Comment Utility
When I opened the email, I was not asked if I wanted to send a return receipt acknowledgment.
0
Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

 
LVL 82

Accepted Solution

by:
Dave Baldwin earned 500 total points
Comment Utility
See if there is a 'return-receipt-to' header in that email.  Try sending one from your business email with return-receipt requested and see it works then.
0
 

Author Comment

by:GPSPOW
Comment Utility
After I changed the From email to my business email it worked.

I got a notification that the recipient got the email.

Thank you

Glen
0
 
LVL 33

Expert Comment

by:Norie
Comment Utility
Glen

It could be that the first email address and/or its associated inbox/client is set up to ignore read receipt requests.

I'm sure in the past I've been able to set something like that up.
0
 
LVL 78

Expert Comment

by:David Johnson, CD, MVP
Comment Utility
With iMsg
                Set .Configuration = iConf
                '.To = "gpspow55@gmail.com"
                .To = EmailAddr
                .From = """Glen"" <gpspow55@gmail.com>"
                '.CC = "" ';"PHanson@sleh.com"
                '.CC = "gpspow55@gmail.com;"
                .BCC = ""
                .Subject = Subj
                .TextBody = Msg
                .ReadReceiptRequested = True

Open in new window

               .Send
0
 

Author Closing Comment

by:GPSPOW
Comment Utility
Thank you

When I changed the From email address to my business email it worked.

Glen
0
 
LVL 33

Expert Comment

by:Norie
Comment Utility
Glen

Did the code I posted in reply to the original question not work at all?
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Follow this checklist to learn more about the 15 things you should never include in an email signature from personal quotes, animated gifs and out-of-date marketing content.
If you don't know how to downgrade, my instructions below should be helpful.
In Microsoft Access, learn how to “cascade” or have the displayed data of one combo control depend upon what’s entered in another. Base the dependent combo on a query for its row source: Add a reference to the first combo on the form as criteria i…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now