Microsoft Excel Webinar

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?

    VB:
    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
    Joined
    Apr 2005
    Posts
    23,562
    Location
    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
  •