Outlook (1 Viewer)

[accessman2]

Function Sendmail() As Boolean        
    Dim oapp As Outlook.Application
    Dim mitem As Outlook.MailItem
    
    Set oapp = New Outlook.Application    
    Set mitem = oapp.CreateItem(olMailItem)
    
    With mitem
        .To = "mill@yahoo.com"
        .Subject = "Testing"
        .Body = "Test"        
        .send        
    End With      
End Function

Hi: I used above code to send email out.
How can we send email without saving the emails in the "Sent Items" folder in the code?

 

[NigelShaw]

Hi

in the with section, when you press . for the outlook options, there is an option called save I think or something to that effect. Set it to false and your email will not be saved.

Regs

nigel