by Phil Walker (1 Submission)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 20th August 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Creates an Outlook Mail Item & displays it redy for submission
Private Sub SendMail_Click()
Dim ol As Outlook.MailItem
Set ol = CreateItem(olMailItem)
With ol
.To = "[email protected]"
.Subject = "Test Subject"
' Either .body 'For text/Rich Text
' Or
' .HTMLBody ' For HTML Mail Message
.HTMLBody = ""
.Attachments.Add ("(Full Path to file to insert)")
' Display the normal outlook submit form
.Display
End With
End Sub