Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Saving a draft only when outlook is open
The macro below will safe a draft when outlook is open, but will not when
outlook is closed. How can I make the change to save a draft - even if outlook is closed? This is my poor attempt in creating a Macro - if you see improvements that I can make please let me know..... Option Explicit Sub SendFileToEmail() Dim objOutlook As Object Dim objOutlookMsg As Object Dim strTo As String, strCC As String, strBody As String Dim iRow As Long, inrec As String Set objOutlook = CreateObject("Outlook.Application") ' Set objOutlookMsg = objOutlook.CreateItem(0) Set objOutlookMsg = objOutlook.CreateItem(olMailItem) Dim File1, File2 As String Dim myCell iRow = 0 strTo = "" With shtEmail.Range("EmailToList") Do strTo = strTo & .Offset(iRow, 0).Value & ";" iRow = iRow + 1 Loop Until .Offset(iRow, 0) = "" End With ' iRow = 0 ' strCC = "" ' With shtEmail.Range("CCToList") ' Do ' strCC = strCC & .Offset(iRow, 0).Value & ";" ' iRow = iRow + 1 ' Loop Until .Offset(iRow, 0) = "" ' End With For Each myCell In shtInput.Range("LifeSummary") strBody = strBody & myCell.Value & vbCrLf Next With objOutlookMsg '.SentonBehalfofName = " '.To = " 'strTo .To = strTo ' .Cc = strCC '.bcc = " .Subject = "Today's information" '.BodyFormat = olFormatPlain .BodyFormat = olFormatHTML .HTMLBody = "<html<pre" & strBody & "</pre</html" '.Attachments.Add ("myfilenamewithfullpath.xls") ' .Send 'Let´s go! .Save ' stick it in drafts End With Set objOutlookMsg = Nothing Set objOutlook = Nothing End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel open in outlook if outlook is running | Excel Discussion (Misc queries) | |||
excel crashed before saving. Where is draft of file? | Excel Discussion (Misc queries) | |||
Open Outlook with generic message | Excel Discussion (Misc queries) | |||
cannot open excel files attached to outlook | Excel Discussion (Misc queries) | |||
open outlook contact | Excel Discussion (Misc queries) |