Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Sub SendEmail()
Dim olApp As Object
Dim subject As String
Dim olMailItem
Dim newMail
Dim newRecipient
Dim mailBody As String
Dim strAddress As String
subject = "Your text here"
mailBody = "Your text here"
strAddress = "Email Address Here"
Set olApp = CreateObject("Outlook.Application")
Set newMail = olApp.CreateItem(olMailItem)
Set newRecipient = newMail.Recipients.Add(strAddress)
With newMail
.subject = subject
.body = mailBody
End With
newMail.send
olApp.Quit
Set olApp = Nothing
Set newMail = Nothing
Set newRecipient = Nothing
End Sub