B
Brettjg
Hello there, I'm using the following code for auto emailing from excel.
Everything is wonderful except when I add in the line to request a delivery
receipt. Can someone advise please? Thanks & regards, Brett Gregory.
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = Workbooks("1. TOOLS.xls").Sheets("CONTACTS").Range("AG" &
clientline).Value
.Item.Subject = Sheets("EMAIL").Range("subject").Value
.Item.Importance = 2
.Item.DeliveryReceiptRequested = True
.Item.ReadReceiptRequested = True
.Item.Attachments.Add Sheets("EMAIL").Range("O4").Value
.Item.send
Application.Wait (Now + TimeValue("0:00:05"))
Application.SendKeys "{LEFT}"
Application.SendKeys "{ENTER}"
End With
Everything is wonderful except when I add in the line to request a delivery
receipt. Can someone advise please? Thanks & regards, Brett Gregory.
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = ""
.Item.To = Workbooks("1. TOOLS.xls").Sheets("CONTACTS").Range("AG" &
clientline).Value
.Item.Subject = Sheets("EMAIL").Range("subject").Value
.Item.Importance = 2
.Item.DeliveryReceiptRequested = True
.Item.ReadReceiptRequested = True
.Item.Attachments.Add Sheets("EMAIL").Range("O4").Value
.Item.send
Application.Wait (Now + TimeValue("0:00:05"))
Application.SendKeys "{LEFT}"
Application.SendKeys "{ENTER}"
End With