• Home
 · 
• Internet/HTML
 · 
• Creates an Outlook Mail Item & displays it redy for submission

Creates an Outlook Mail Item & displays it redy for submission

Creates an Outlook Mail Item & displays it redy for submission

Rate Creates an Outlook Mail Item & displays it redy for submission

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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