How can you send an email with VB?

[Danial]

Add a refeerence to the Outlook object library.
Place a button and name it cmdSend

Private Sub cmdSend_Click()
Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
 
' Create new message
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
 
With objOutlookMsg
    .To = "[email protected]"
    .Subject = "Subjet here"
    .Body = "Hello Danial, this is just a test msg"
    .Importance = olImportanceHigh
    .Send
End With
 
Set objOutlookMsg = Nothing
' Close Outlook instance: Important!
Set objOutlook = Nothing
 
 
End Sub