Excel Hints

Results 1 to 3 of 3

Thread: Solved: Save email in drafts

  1. #1

    Solved: Save email in drafts

    Is there a way to tweek the below code to have the email go into your drafts in outlook instead of automatically sending it?

    Sub EmailFidelity() 
        Dim oOutlook As Object 
        Dim oMailItem As Object 
        Dim oRecipient As Object 
        Dim oNameSpace As Object 
        Dim Lastrow As Long 
        Dim bodyText As String 
        Dim i As Long 
        Set oOutlook = CreateObject("Outlook.Application") 
        Set oNameSpace = oOutlook.GetNameSpace("MAPI") 
        oNameSpace.Logon , , True 
        Set oMailItem = oOutlook.CreateItem(0) 
        With oMailItem 
            Set oRecipient = .Recipients.Add("[EMAIL="klartigue@avalonadvisors.com"]klartigue@avalonadvisors.com[/EMAIL]") 
            oRecipient.Type = 1 
            .Subject = "Avalon Trade Allocations Attached" 
            .body = "Please see the attached trade allocations." & vbNewLine & vbNewLine & _ 
            "Let me know if you need anything else." & vbNewLine & vbNewLine & _ 
            "Thanks, " & vbNewLine & vbNewLine & _ 
            "Katherine Lartigue " & vbNewLine & _ 
            "[EMAIL="klartigue@avalonadvisors.com"]klartigue@avalonadvisors.com[/EMAIL] 713-238-2088" 
            .Attachments.Add ("G:\Katherine Lartigue\Allocations\Fidelity Trades.xls") 
            . Send 
        End With 
    End Sub 
    Formatting tags added by mark007

  2. #2
    Distinguished Lord of VBAX VBAX Grand Master xld's Avatar
    Apr 2005
    Change .Send to .Save
    Nihil simul inventum est et perfectum

    Abusus non tollit usum

    Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
    James Thurber

  3. #3

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts