Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deferred Mailing from Outlook
Hi,
After doing enough research to warrant an automatic award of a Ph.D or two, I have come up with the following gem. Unfortunately, it doesn't work as it should! The objective is to prepare an e-mail with an attachment and to place it in the Drafts Folder for notes to be added prior to sending. Sub DeferredMail() Dim Fname, Sbjct ActiveSheet.Copy Fname = "C:\MailTemp\" & "TempMail.xls" ActiveWorkbook.SaveAs Fname ActiveWorkbook.Close False Sbjct = "Just Testing" Dim olApp As Object Dim olMail As Object Set olApp = CreateObject("Outlook.Application") Set olMail = olApp.CreateItem(olMailItem) With olApp ..Session.GetDefaultFolder (16) '(olFolderDrafts) With olMail .To = " .Subject = Sbjct .Body = "Notes:" .Attachments.Add Fname .Save End With End With Set olApp = Nothing Set olMail = End Sub The problem is as follows: If the routine is run when Outlook is open, it works as intended and the e-mail goes to the Drafts Folder. However, if Oulook in NOT open when the routine is run, when it is subsequently opened, the e-mail appears in the Inbox, which is not acceptable. Any ideas ? TIA regards' Don |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deferred Mailing from Outlook
Don Lloyd wrote : Hi, After doing enough research to warrant an automatic award of a Ph.D or two, I have come up with the following gem. Unfortunately, it doesn't work as it should! The problem is as follows: If the routine is run when Outlook is open, it works as intended and the e-mail goes to the Drafts Folder. However, if Oulook in NOT open when the routine is run, when it is subsequently opened, the e-mail appears in the Inbox, which is not acceptable. Any ideas ? TIA regards' Don Well well... give some credit to those who help you! Ph.D? Extensive research?? sounds to me you just used the snippet i gave you earlier. though admittedly it was late :) Here's the improved version Note the subtle differences between the Early- and Late-bound alternatives.. Sub DeferredMail_Short() Dim Fname, Sbjct ActiveSheet.Copy Fname = "C:\MailTemp\" & "TempMail.xls" If Dir(Fname) < "" Then Kill Fname ActiveWorkbook.SaveAs Fname ActiveWorkbook.Close False Sbjct = "Just Testing Short" With CreateObject("Outlook.Application") With .CreateItem(0) 'olMailItem .To = " .Subject = Sbjct .Body = "Notes:" .Attachments.Add Fname .Save .Move .Parent.Session.GetDefaultFolder(16) 'olFolderDrafts End With End With Kill Fname End Sub Sub DeferredMail_Long() Dim Fname, Sbjct Dim olApp As Outlook.Application Dim olFld As Outlook.MAPIFolder Dim olMsg As Outlook.MailItem ActiveSheet.Copy Fname = "C:\MailTemp\" & "TempMail.xls" If Dir(Fname) < "" Then Kill Fname ActiveWorkbook.SaveAs Fname ActiveWorkbook.Close False Sbjct = "Just Testing Long" Set olApp = New Outlook.Application Set olFld = olApp.Session.GetDefaultFolder(olFolderDrafts) Set olMsg = olApp.CreateItem(olMailItem) With olMsg .To = " .Subject = Sbjct .Body = "Notes:" .Attachments.Add Fname .Save End With Kill Fname Set olMsg = Nothing Set olFld = Nothing Set olApp = Nothing End Sub -- keepITcool | www.XLsupport.com | keepITcool chello nl | amsterdam |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i convert a mailing list in excel to outlook | Excel Discussion (Misc queries) | |||
which is best for mailing list management, Outlook or Excel? | New Users to Excel | |||
I want to do mass mailing in outlook, from an excel file that has. | Excel Discussion (Misc queries) | |||
E-mailing through Outlook via Excel VB | Excel Programming | |||
macro for e-mailing excel file using outlook | Excel Programming |