GPSPOW
asked on
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
Can you tell me what I need to add to the program to make this happen?
Thank you
Glen
Email.txt
ASKER
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:mailh eader:retu rn-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
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:mailh
.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
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.
ASKER
I was not asked to asked the question.
Any ideas why not?
Any ideas why not?
I was not asked to asked the question.I don't understand?
ASKER
When I opened the email, I was not asked if I wanted to send a return receipt acknowledgment.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
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
I got a notification that the recipient got the email.
Thank you
Glen
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.
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.
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
.Send
ASKER
Thank you
When I changed the From email address to my business email it worked.
Glen
When I changed the From email address to my business email it worked.
Glen
Glen
Did the code I posted in reply to the original question not work at all?
Did the code I posted in reply to the original question not work at all?
Try this, replacing 'youremail@here.com' with the email address the read receipt should be sent to.
Open in new window