I have the below code in a module that sets up an email, but I can't remember the code that sends it automatically. Does anyone know?
Sub OUTLOOK_collections_email()
'creates link to Outlook
Dim objOL As New Outlook.Application
Dim objMail As MailItem
On Error Resume Next
Set objOL = New Outlook.Application
Set testsemail = objOL.createitem(olmailitem)
'sets characteristics for email
With testsemail
.ReadReciptRequested = False
.To = "mail@mail.com"
.Subject = "Subject"
.Display
.Body = "Blah Blah Blah"
End With
End Sub
Sub OUTLOOK_collections_email()
'creates link to Outlook
Dim objOL As New Outlook.Application
Dim objMail As MailItem
On Error Resume Next
Set objOL = New Outlook.Application
Set testsemail = objOL.createitem(olmailitem)
'sets characteristics for email
With testsemail
.ReadReciptRequested = False
.To = "mail@mail.com"
.Subject = "Subject"
.Display
.Body = "Blah Blah Blah"
End With
End Sub