?
Solved

Programming return receipt for Outlook Email in VBA

Posted on 2016-10-11
12
Medium Priority
?
133 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 3
  • 3
  • +1
12 Comments
 
LVL 35

Expert Comment

by:Norie
ID: 41839354
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
ID: 41839378
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 84

Expert Comment

by:Dave Baldwin
ID: 41839399
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
Free Backup Tool for VMware and Hyper-V

Restore full virtual machine or individual guest files from 19 common file systems directly from the backup file. Schedule VM backups with PowerShell scripts. Set desired time, lean back and let the script to notify you via email upon completion.  

 

Author Comment

by:GPSPOW
ID: 41839401
I was not asked to asked the question.

Any ideas why not?
0
 
LVL 84

Expert Comment

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

Author Comment

by:GPSPOW
ID: 41839408
When I opened the email, I was not asked if I wanted to send a return receipt acknowledgment.
0
 
LVL 84

Accepted Solution

by:
Dave Baldwin earned 2000 total points
ID: 41839417
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
ID: 41839423
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 35

Expert Comment

by:Norie
ID: 41839429
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 83

Expert Comment

by:David Johnson, CD, MVP
ID: 41839516
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
ID: 41840257
Thank you

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

Glen
0
 
LVL 35

Expert Comment

by:Norie
ID: 41840780
Glen

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

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how to import Lotus Notes Contacts into Outlook 2016, 2013, 2010 and 2007 etc. with a few manual steps. You can easily export and migrate Lotus Notes contacts into Microsoft Outlook without having to use any third party tools.
Are you looking for the options available for exporting EDB files to PST? You may be confused as they are different in different Exchange versions. Here, I will discuss some options available.
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…

649 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