Trucos Varios I

EMAIL CON OUTLOOK

Dim olapp As Object
Dim oitem As Object
Set olapp = CreateObject("Outlook.Application")
Set oitem = olapp.CreateItem(0)
With oitem
   .Subject = "TITULO"
   .To = " gtryonp@afphorizonte.com.pe"
   .Body = "Mensaje de la carta"
   .Send
End With

Hecho en Lima - Perú por ® SYL systems