FUNCION SendEmailOutlook

Enviar correo electronico atravez de Outlook

---

// SendEmailOutlook("hola","Este es un correo de prueba","mycorreo@cavo28.com",{})
// SendEmailOutlook("hola","archivos adjuntos","mycorreo@cavo28.com",{"c:\file1.txt","c:\file2.txt"})

FUNCTION SendEmailOutlook(cAsunto,cMensaje,cRecipiente,aFiles) 
LOCAL oOutlook := OLEAutoObject{"Outlook.Application"} AS OBJECT 
LOCAL oEMail   := oOutlook:CreateItem(0)  AS OBJECT 
LOCAL oRecipient AS OBJECT
LOCAL oAttachment AS OBJECT
LOCAL dwCount  := 0 AS DWORD

 oRecipient     := oEMail:Recipients:Add( cRecipiente ) 
 oEMail:Recipients:ResolveAll()  
 oEMail:Subject := cAsunto 
 oEMail:Body    := cMensaje 

 IF ALen(aFiles) > 0 
    oAttachment := oEMail:Attachments                          
  FOR dwCount := 1 upto ALen(aFiles)            
   IF File(aFiles[dwCount])                     
    oAttachment:Add(aFiles[dwCount]) 
   ENDIF 
  NEXT 
 ENDIF
 
 oEMail:Display()             

RETURN NIL