PC Toledo

Senhores, preciso de uma ajuda, por favor:

Outlook Express/Windows Live Mail:

Se não tem Outlook Express ou Windows Live Mail Instalado, como que vocês fazem para ENVIAR EMAIL, por exemplo, meu ERRSYSW.PRG, está preparado para em caso de "quebra", enviar um email "silencioso" para mim, sem que o usuário saiba. Mas, se: Outlook Express ou Windows Live Mail não estiverem instalados e como padrão, o programa não envia.

Como saio deste enrosco??

Agradeço desde já as colaborações.

Abs.

Amiguinhos,

Eu não Outlook porque ele é chato, ele sempre te pergunta se Permite que Aplicativo externo manipule-o.

Eu o Blat, tanto via commandline quanto pela .DLL inclusive meus email são formatados de forma a chegarem bunitinhos para mim ou para os clientes.

Dê uma olhada:
BLAT: Usando a DLL para enviar email

Usar BLAT.DLL em xharbour 0.970

Agora sim, funciona perfeitamente. Só não se vai funcionar se não tiver outlook express/Windows Live mail Instalado.

Código: Selecionar todos

// Testing FiveWin new Internet Outgoing mail (SMTP protocol) Class
// Baseado no exemplo: C:\FWH1306\SAMPLES\TESTSMTP.PRG
// Special Thanks: Vagner Wirts.

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//

FUNCTION Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "Sending Internet Mail from FiveWin"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION SendMail() TOOLTIP "Send Mail"

   SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

FUNCTION SendMail()

   local oOutMail, cIP, nPort, lAuth, cUser, cPassword, cIPServer

   Default nPort := 587,  ;
           lAuth := .T.,  ;  // Obrigatorio ser .T. no meu caso.
           cUser := "joao@pleno.com.br", ;
           cPassword := "MISENHA",       ;
           cIPServer := ""

   oWnd:SetMsg( "Envio de Email Via Internet..." )

   WSAStartup()

   // Classe: TSMPT.PRG
   //METHOD New( cIPServer, nPort, lAuth, cUser, cPassword ) CONSTRUCTOR

   oOutMail := TSmtp():New( cIPServer := GetHostByName( "smtp.pleno.com.br" ) )

   oOutMail := TSmtp():New( cIPServer, nPort, lAuth, cUser, cPassword )

   MsgInfo( cIPServer )  // cIP

   oOutMail:bConnecting = { || oWnd:SetMsg( "Conectando ao smtp.pleno.com.br..." ) }
   oOutMail:bConnected  = { || oWnd:SetMsg( "Conectado" ) }
   oOutMail:bDone       = { || oWnd:SetMsg( "Mensagem Enviada com Sucesso" ) }

   oOutMail:SendMail( "joao@pleno.com.br",;     // From
                      { "joao@pleno.com.br" },; // To
                        "Mensagens de Erros do Programa",; // Msg Text
                        "*** CONTROLE DE ERROS ***",; // Subject
                      { "error.log" } )  // attached files

                   // { "error.log", "testsmtp.zip" } )  // attached files

RETURN NIL

//----------------------------------------------------------------------------//

Obg, Rochinha, notei um problema na classe TSMTP.PRG

Se eu ponho dois ou mais emails, para enviar, não vai, tipo:

Expandir visualizacaoVer codigo

Código: Selecionar todos

   { 'joao@pleno.com.br; contato@pleno.com.br' }, ;  // to/para (arreglo) - não funciona.

Obg. abs.

Resolvido, desculpe o incomodo Rochinha,

Código: Selecionar todos

   oOutMail:SendMail( "joao@pleno.com.br",;     // From
                      { "joao@pleno.com.br", ;
                        "marcelo@marcainformatica.com.br", ;
                        "marca@compuland.com.br" },; // To
                        "Mensagens de Erros do Programa",; // Msg Text
                        "*** CONTROLE DE ERROS *** usando 3 emails",; // Subject
                      { "error.log" } )  // attached files

abs,