*-- Datos del Mail
lcPerfil = "MiPerfil"
lcContrasenia = "mypassword"
lcDestinatario = "
[email protected]"
lcTema = "Aqui escribo el tema"
lcCuerpo = "Aqui escribo el cuerpo del mail "
*-- Creo objetos Outlook y NameSpace
loOutlook = CREATEOBJECT("Outlook.Application")
loNameSpace = loOutlook.GetNameSpace("MAPI")
*-- Ejecuto los métodos
loNameSpace.Logon(lcPerfil , lcContrasenia)
loMailItem = loOutlook.CreateItem(0)
loMailItem.Recipients.ADD(lcDestinatario)
loMailItem.Subject = lcTema
loMailItem.Body = lcCuerpo
loMailItem.Attachments.ADD("c:\midocumento.doc")
loMailItem.Send
loNameSpace.Logoff
loNameSpace = .NULL.
loOutlook = .NULL.