PDA

View Full Version : Send Outlook Email from Excel



ETracker
10-17-2011, 11:05 AM
I am looking for a line of code that would allow a request a read receipt back from the person the email was sent to.

I have the code to send the email, I am only trying to get the read receipt.

Thanks for any help.

ETracker

mancubus
10-17-2011, 02:02 PM
Dim objOutlook As Object
Dim objMailItem As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMailItem = objOutlook.CreateItem(olMailItem)

With objMailItem
.To = "xx@xxx.com"
.CC = ""
.BCC = ""
.Subject = "Subject"
.Body = "Body"
.Attachments.Add ActiveWorkbook.FullName
.ReadReceiptRequested = True
End With

ETracker
10-17-2011, 05:39 PM
Thanks Mancubus,

I will add this to my existing code and I am sure based on your code that this is just what I am looking for.

Again Thanks.
ETracker :yes

mancubus
10-18-2011, 12:55 AM
you're wellcome ETracker.

it's from VBA help.