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

[Bob Phillips]

Change .Send to .Save

[Klartigue]

Works great, thanks!!