FiveTech Support Forums

FUNCTION SendMail()
    LOCAL OOutLook,oMensaje,oAdjunto
    LOCAL cCuerpo:=""
 
    oOutLook:=TOleAuto():New("Outlook.Application")
 
    oMensaje:=oOutLook:Invoke("CreateItem",0)
  
    cCuerpo:=MEMOREAD("email.txt")
 
    oMensaje:Set("To" ,"micorreo@gmail.com") 
    oMensaje:Set("CC" ,"copia@gmail.com")
    oMensaje:Set("BCC","copia2@gmail.com")

    oMensaje:Set("Subject","Saludos desde AdaptaPro")
    oMensaje:Set("HTMLBody",cCuerpo)
 
    oAdjunto := oMensaje:Invoke("Attachments")
    oAdjunto:Invoke("Add", "Nombredelarchivoadjunto.")

    oMensaje:Invoke("Send")
 
    oAdjunto:End()
    oMensaje:End()
 
    oOutLook:End()
 
    MsgInfo("Mensaje enviado")
 
RETURN NIL
// EOF

   LOCAL MailTo, cSndFile, cSndFile2, cText, cSubj, aFiles

   MailTo   := "primero@hotmail.com; <!-- e --><a href="mailto:sugundo@hotmail.com">sugundo@hotmail.com</a><!-- e -->"

   cSndFile  := cDirExe + "\TUERROR.Log"
   cSndFile2 := cDirExe + "\ERROR.Log"

   IF .NOT. FILE( cSndFile )
      cSndFile := ""
   ENDIF

   IF .NOT. FILE( cSndFile2 )
      cSndFile2 := ""
   ENDIF

   cText    := "Favor verificar errores del programa "

   cSubj    := "Errores del programa"

   REDEFINE BUTTONBMP oEnviaEmail   ID 303 OF oDlgErro                   ;
            ACTION( SendMail2( MailTo, cSndFile, cSndFile2, cText, cSubj ) )

   oEnviaEmail:cToolTip := OemToAnsi( "Envie el Archivo de Error Via Email Directo" )


FUNCTION SendMail2( MailTo, cSndFile, cSndFile2, cText, cSubj )

   LOCAL oMail

   DEFINE MAIL oMail                                 ;
      SUBJECT cSubj                                  ;
      TEXT cText                                     ;
      FILES cSndFile, cSndFile, cSndFile2, cSndFile2 ;
      FROM USER                                      ;
      TO MailTo

   ACTIVATE MAIL oMail

   IF ( oMail:nRetCode ) = 0

      //MsgInfo( "Mensagem Enviada com Sucesso", "Aviso" )

   ELSE

      MsgInfo( OemToAnsi( "NÆo Foi Possivel Enviar a Mensagem de Erro" )+CRLF+;
               OemToAnsi( "Por Favor Verifique se o Enviador de Email" )+CRLF+;
               OemToAnsi( "OutLook Express ou Windows Live Mail,     " )+CRLF+;
               OemToAnsi( "Est  Definido Como Enviador PadrÆo, nas   " )+CRLF+;
               OemToAnsi( "Op‡äes da Internet - Internet Explorer.   " ),     ;
               OemToAnsi( "NÆo Foi Possivel Enviar a Mensagem de Erro" ) )

   ENDIF

RETURN( .T. )