Solved: Save email in drafts

[Klartigue]

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("klartigue@avalonadvisors.com") 
        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 & _ 
        "klartigue@avalonadvisors.com 713-238-2088" 
         
        .Attachments.Add ("G:\Katherine Lartigue\Allocations\Fidelity Trades.xls") 
        . Send 
    End With 
     
End Sub 

VBA tags courtesy of www.thecodenet.com

[xld]

Change .Send to .Save

[Klartigue]

Works great, thanks!!