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