• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 161
  • Last Modified:

Programming return receipt for Outlook Email in VBA

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
GPSPOW
Asked:
GPSPOW
  • 5
  • 3
  • 3
  • +1
1 Solution
 
NorieCommented:
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
 
GPSPOWAuthor 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
0
 
Dave BaldwinFixer of ProblemsCommented:
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
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

 
GPSPOWAuthor Commented:
I was not asked to asked the question.

Any ideas why not?
0
 
Dave BaldwinFixer of ProblemsCommented:
I was not asked to asked the question.
I don't understand?
0
 
GPSPOWAuthor Commented:
When I opened the email, I was not asked if I wanted to send a return receipt acknowledgment.
0
 
Dave BaldwinFixer of ProblemsCommented:
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
 
GPSPOWAuthor 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
0
 
NorieCommented:
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
 
David Johnson, CD, MVPOwnerCommented:
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
 
GPSPOWAuthor Commented:
Thank you

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

Glen
0
 
NorieCommented:
Glen

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

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 5
  • 3
  • 3
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now