Excel attachment and save as draft in outlook

[ragsgold]

Hi All



I have an excel report that i need to save as draft in my outlook. I want to run this from access and i also want the outlook draft to be populated with email address found in my access table.

Can anyone help

[June7]

What do you mean by 'excel report'? How would Outlook save an excel workbook as a 'draft'? Draft what - email with attachment?

I just tested with Outlook it does allow draft with attachment.

This code worked for me:

Sub SaveAsDraft()
    Dim objOutlook As Object
    Dim objMailMessage As Outlook.MailItem
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMailMessage = objOutlook.CreateItem(0)
    With objMailMessage
        .To = "address@mymail.com" 
        .Body = "My special message."
        .Subject = "Save as Draft Test"
        .Attachments.Add "path\filename.xlsx"
        .Display
        .Save
        .Close (olPromptForSave)
    End With
End Sub