We help IT Professionals succeed at work.

Programming return receipt for Outlook Email in VBA

GPSPOW
GPSPOW asked
on
772 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
Comment
Watch Question

NorieAnalyst Assistant
CERTIFIED EXPERT

Commented:
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

Author

Commented:
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
Dave BaldwinFixer of Problems
CERTIFIED EXPERT
Most Valuable Expert 2014

Commented:
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.

Author

Commented:
I was not asked to asked the question.

Any ideas why not?
Dave BaldwinFixer of Problems
CERTIFIED EXPERT
Most Valuable Expert 2014

Commented:
I was not asked to asked the question.
I don't understand?

Author

Commented:
When I opened the email, I was not asked if I wanted to send a return receipt acknowledgment.
Fixer of Problems
CERTIFIED EXPERT
Most Valuable Expert 2014
Commented:
This one is on us!
(Get your first solution completely free - no credit card required)
UNLOCK SOLUTION

Author

Commented:
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
NorieAnalyst Assistant
CERTIFIED EXPERT

Commented:
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.
David Johnson, CDSimple Geek from the '70s
CERTIFIED EXPERT
Distinguished Expert 2019

Commented:
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

Author

Commented:
Thank you

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

Glen
NorieAnalyst Assistant
CERTIFIED EXPERT

Commented:
Glen

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

Gain unlimited access to on-demand training courses with an Experts Exchange subscription.

Get Access
Why Experts Exchange?

Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.

Jim Murphy
Programmer at Smart IT Solutions

When asked, what has been your best career decision?

Deciding to stick with EE.

Mohamed Asif
Technical Department Head

Being involved with EE helped me to grow personally and professionally.

Carl Webster
CTP, Sr Infrastructure Consultant
Empower Your Career
Did You Know?

We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE

Ask ANY Question

Connect with Certified Experts to gain insight and support on specific technology challenges including:

  • Troubleshooting
  • Research
  • Professional Opinions
Unlock the solution to this question.
Join our community and discover your potential

Experts Exchange is the only place where you can interact directly with leading experts in the technology field. Become a member today and access the collective knowledge of thousands of technology experts.

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.