SendMailVB5

Dim olapp As Object
Dim oitem As Object
Set olapp = CreateObject("Outlook.Application")
Set oitem = olapp.CreateItem(0)
With oitem
.Subject = "VBPJ RULES"
.To = "MONTEZUMA;other Names;"
.Body = "This message was sent from VB5"
.Send
End With
If Microsoft Outlook is installed, you have an easy way to send
e-mail from VB5. To use this technique with VB3, remove the With
construct and fully qualify each object property reference: