Does anyone know the command to send via VBA?

[Audiojoe]

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

 

[Ivan F Moala]

On 2002-03-18 01:50, Audiojoe wrote:
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

Just add
.Send

between the With and End with statements
where you reference the testsemail


Ivan

 

[Audiojoe]

That doesnt work, it says "Invalid or unqualified reference"

 

[Audiojoe]

It's cool, I had it in the wrong place

Thanks Ivan

 

[Ivan F Moala]

On 2002-03-18 02:11, Audiojoe wrote:
That doesnt work, it says "Invalid or unqualified reference"

This worked for me ??!!

Sub OUTLOOK_collections_email()

'creates link to Outlook
Dim objOL As New Outlook.Application
Dim objMail As MailItem

Dim testsemail

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"
.Send
End With

End Sub


Ivan