Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Delivery receipt when auto emailing
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Delivery receipt when auto emailing
You didn't mention what version of Excel you are using. If you have
Office 2003, why not automate Outlook for this purpose? There is some great code at http://www.rondebruin.nl/sendmail.htm and also http://www.codeforexcelandoutlook.com/olAutomation.html If not, can you explain what happens when your code gets to that line? Thx, JP On Mar 2, 4:44*pm, Brettjg wrote: 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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Delivery receipt when auto emailing
Hi JP, I'm using 2003 Excel. When it hits that line I get a Run time error
438 Object doesn't support this property or method. Actually all this code came from Ron in the first place. I thought I might try putting in the delivery receipt thing, thinking it would be similar to the read receipt line, but no dice! Regards, Brett "JP" wrote: You didn't mention what version of Excel you are using. If you have Office 2003, why not automate Outlook for this purpose? There is some great code at http://www.rondebruin.nl/sendmail.htm and also http://www.codeforexcelandoutlook.com/olAutomation.html If not, can you explain what happens when your code gets to that line? Thx, JP On Mar 2, 4:44 pm, Brettjg wrote: 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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Delivery receipt when auto emailing
Hi Brettjg
Try OriginatorDeliveryReportRequested -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Brettjg" wrote in message ... Hi JP, I'm using 2003 Excel. When it hits that line I get a Run time error 438 Object doesn't support this property or method. Actually all this code came from Ron in the first place. I thought I might try putting in the delivery receipt thing, thinking it would be similar to the read receipt line, but no dice! Regards, Brett "JP" wrote: You didn't mention what version of Excel you are using. If you have Office 2003, why not automate Outlook for this purpose? There is some great code at http://www.rondebruin.nl/sendmail.htm and also http://www.codeforexcelandoutlook.com/olAutomation.html If not, can you explain what happens when your code gets to that line? Thx, JP On Mar 2, 4:44 pm, Brettjg wrote: 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 |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Delivery receipt when auto emailing
Hi Ron, fantastic, thankyou again (it's been a while). Regards, Brett
"Ron de Bruin" wrote: Hi Brettjg Try OriginatorDeliveryReportRequested -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Brettjg" wrote in message ... Hi JP, I'm using 2003 Excel. When it hits that line I get a Run time error 438 Object doesn't support this property or method. Actually all this code came from Ron in the first place. I thought I might try putting in the delivery receipt thing, thinking it would be similar to the read receipt line, but no dice! Regards, Brett "JP" wrote: You didn't mention what version of Excel you are using. If you have Office 2003, why not automate Outlook for this purpose? There is some great code at http://www.rondebruin.nl/sendmail.htm and also http://www.codeforexcelandoutlook.com/olAutomation.html If not, can you explain what happens when your code gets to that line? Thx, JP On Mar 2, 4:44 pm, Brettjg wrote: 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Overdue Delivery Dates | New Users to Excel | |||
DELIVERY NOTES | Excel Worksheet Functions | |||
How do I insert an auto signature if emailing from excel? | Excel Discussion (Misc queries) | |||
Order Delivery Schedule | Excel Discussion (Misc queries) | |||
Delivery note or delivery order sheet | Excel Discussion (Misc queries) |