Enviar e-mail Outlook

[joaosolution]

Bom dia

Tenho um cliente que possui e-mails vinculados ao outlook internamente, preciso enviar e-mails pelo sistema alguém já fez algo parecido.

Preciso enviar o e-mail diretamente sem abrir o outlook da máquina. Eu já consigo carregar o outlook, preencher o e-mail e o usuário aciona o enviar. Mas queria enviar diretamente.

Att

João Bosco

 

[aferra]

Utilize a classe TSmtp() o exemplo seria \fwh\samples\testsmtp.prg

[macs]

HB_SendMail( Alltrim( ::aCampos[ "cSERV_SAIDA" ] ),;
                                        ::aCampos[ "nPORTA" ],;
                                        Alltrim( ::aCampos[ "cEMAIL" ] ),;
                                        { Alltrim( ::aCampos[ "cDESTINATARIO"    ] ) },;
                                        { Alltrim( ::aCampos[ "cDESTINATARIO_CC" ] ) },;
                                        { Alltrim( ::aCampos[ "cDESTINATARIO_CCO" ] ) },;
                                        Alltrim( ::aCampos[ "mMENSAGEM" ] ),;
                                        Alltrim( ::aCampos[ "cASSUNTO" ] ),;
                                        ::aCampos[ "aANEXOS" ],;
                                        Alltrim( ::aCampos[ "cEMAIL" ] ),;
                                        Hb_Decrypt( Alltrim( ::aCampos[ "cSENHA" ] ), SENHA_MASTER ),;
                                        Alltrim( ::aCampos[ "cSERV_ENTRA" ] ),;
                                        3,;  //1=High, 3=Normal (Standard), 5=Low nPriority
                                        ::aCampos[ "lLEITURA" ],;
                                        .F.,;// LOG
                                        ,; // EMAIL->AUTENTICA,;
                                        ,; //! EMAIL->CONEXAOSSL,; // lNoAuth   // Opcional.   Sinalizador para indicar que Autentication POP3 é usado. A configuração padrão é. T.
                                        ,;  //  nTimeOut //  Numero de milesimos de segundos a Aguarda o envio - Padrão é 2000(2 segundos)
                                        )  //  cReplyTo //  -> Optional.

 

ou

 

      TRY

         oMsg := CREATEOBJECT ( "CDO.Message" )

         WITH OBJECT oMsg

            :Configuration := ::oCDO
            :From          := Alltrim( ::aCampos[ "cEMAIL" ] )
            :To            := Alltrim( ::aCampos[ "cDESTINATARIO" ] )
            :CC            := Alltrim( ::aCampos[ "cDESTINATARIO_CC" ] )
            :BCC           := Alltrim( ::aCampos[ "cDESTINATARIO_CCO" ] )
            :Subject       := Alltrim( ::aCampos[ "cASSUNTO" ] )

            nLines := MLCount( ::aCampos[ "mMENSAGEM" ] )
            cMens  := ""

            FOR nLine := 1 TO nLines
                cMens += MemoLine( ::aCampos[ "mMENSAGEM" ],, nLine ) + CRLF
            NEXT

            :TextBody := Alltrim( cMens )

            IF ::aCampos[ "lLEITURA" ]
                :Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := :From
            ENDIF

            IF ::aCampos[ "lENTREGA" ]
               :Fields( "urn:schemas:mailheader:return-receipt-to" ):Value := :From
            ENDIF

            //:Fields.Item( "urn:schemas:mailheader:X-Priority" ) = 1

            IF ! Empty( ::aCampos[ "cIMAGEM" ] )

               IF ! Empty( ::aCampos[ "cFILE_RTF" ] )

                  cTextoHtml := ""

                  Rtf2Html( Alltrim( ::aCampos[ "cFILE_RTF" ] ),  DiretorioTemporario() + cTempFile() + "HTML", @cTextoHtml )

                  IF ::aDePara <> NIL .AND. Len( ::aDePara ) > 0

                     FOR nX := 1 TO Len( ::aDePara )
                         cTextoHtml := StrTran( @cTextoHtml, ::aDePara[ nX, 1 ], ::aDePara[ nX, 2 ] )
                     NEXT

                  ENDIF

                  :HTMLBody := cTextoHtml

               ENDIF

               && -- Para Incorporar uma imagem no corpo do email.
               :HTMLBody += "<p>" + RTrim( :TextBody ) + "</p>" +"<p><img src='cid:id_imagen10'></p>"

               oBP := :AddRelatedBodyPart( Alltrim( ::aCampos[ "cIMAGEM" ] ), "id_imagen10", 0 )

               WITH OBJECT oBP:Fields

                  :Item( "urn:schemas:mailheader:Content-ID") := "id_imagen10"
                  :Item( "urn:schemas:mailheader:Content-Disposition"):Value := "inline" // , "other" "attachment" "unspecified"
                  :Update()

               END WITH

            ELSEIF ! Empty( ::aCampos[ "cFILE_RTF" ] )

               cTextoHtml := ""

               Rtf2Html( Alltrim( ::aCampos[ "cFILE_RTF" ] ),  DiretorioTemporario() + cTempFile() + "HTML", @cTextoHtml )

               IF ::aDePara <> NIL .AND. Len( ::aDePara ) > 0

                  FOR nX := 1 TO Len( ::aDePara )
                      cTextoHtml := StrTran( @cTextoHtml, ::aDePara[ nX, 1 ], ::aDePara[ nX, 2 ] )
                  NEXT

               ENDIF

               :HTMLBody := cTextoHtml

            ENDIF

            IF ! Empty( ::aCampos[ "cASS_HTML" ] )

               :HTMLBody += Alltrim( MemoRead( Alltrim( ::aCampos[ "cASS_HTML" ] ) ) )
               :HTMLBody := StrTran( :HTMLBody, "", "" )

            ENDIF

            FOR nAnexo := 1 TO Len( ::aCampos[ "aANEXOS" ] )
               :AddAttachment( ::aCampos[ "aANEXOS" ][ nAnexo ] )
               cAnexos += Alltrim( ::aCampos[ "aANEXOS" ][ nAnexo ] ) + ", "
            NEXT

            :Send()

         END WITH

         cDescErro := "Enviado com Sucesso - Tempo de Envio: " + Elaptime( cTimeIni, Time() )

      CATCH oError

           MsgInfo( "Não Foi Possível enviar a mensagem" + ";" + CRLF2 + ;
                    "Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + CRLF+;
                    "SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + CRLF+ ;
                    "OSCode: "+ TRANSFORM(oError:OsCode, NIL) + ";" + CRLF +;
                    "SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" +CRLF+ ;
                    "Message: " + oError:Description )

      END
 

[MAMP2]

Bom dia MACS, estou com um problema em usar a outra rotina que voce mostrou e da

um retorno de DIS_DE_MEMBERNOTFOUD, pode me ajudar nisto, vi que voce é de recife

eu tambem sou, podemos nos encontrar pra conversar sobre isto?

me mande seu email

Obrigado

[MAMP2]

erro correto é DISP_E_MEMBERNOTFOUND,

 

[MAMP2]

oi joao, os clientes meus nao usam outlook, preciso de algo que seja independente de instalacao de outlook

eu usaba o HB_SENDMAIL(), porem de 2 dias pra ca ele deixou de fuciionar, sem nenhuma explicacao aparente

o sistema diz que conseguiu enviar, porem o destinatario nao recebe, meu sistema tem uma rotina

de envio de email com o resumo do faturamento do dia anterior para os clientes, ele nao da erro

porem nao envia e eu tentei usar esta outra opcao que o MACS que é usando o CDO, porem

da este erro DISP_E_MEMBRENOTFOUD(), e nao estou conseguindo resolvder, pode me ajudar?

 

 

[macs]

Olá amigo... pode ser atualização do windows. 

[MAMP2]

Nao é MACS, pois todos os clientes nao estao recebendo eu eu estou testando no meu computador e em varios computadores

na minha rede e nenhum envia, ou seja, da a mensagem que enviou mas nao chega

me manda seu numero de recife pra gente trocar ideia

[MAMP2]

acredito que possa ser alguma LIB que esteja faltando pra  CDO fucionar que é a da rotina que voce colocou la

sbe dizer se é precido alguma LIB.?

 

[kapiaba]

Bom dia. Não entendi, este tópico era sobre: Enviar e-mail Outlook    qual é o PROVEDOR ? Tem um exemplo completo para testes?

[kapiaba]

Testou com o RMAIL.PRG?

link para download:

 

https://mega.nz/file/FQFWgIDT#kvRtIHIesRpTw9I8CxJenTRikG4VXM0t_7J8qVQsOX8

 

Regards, saludos.

[MAMP2]

oi joao, era sim, porem como eu vi a portatagem do MACS sobre o assunto e fiz

a alteracao nao minha rotina e deu este erro que enviei, entao eu continuei aqui, porem

nao é por outlook na realidade eu uso o bol, posso te mandar o exemplo que tenho

pra voce ver o que pode estar aqcontecendo?

 

[kapiaba]

1 hora atrás, MAMP2 disse:

oi joao, era sim, porem como eu vi a portatagem do MACS sobre o assunto e fiz

a alteracao nao minha rotina e deu este erro que enviei, entao eu continuei aqui, porem

nao é por outlook na realidade eu uso o bol, posso te mandar o exemplo que tenho

pra voce ver o que pode estar aqcontecendo?

 

O bol é PAGO! Não tem mais a área grátis(tinha, más desativaram, inclusive o meu email grátis do Bol). Pode enviar sim no: kapiabafwh@gmail.com  ou ponha no MEGA UPLOAD ou envie pelo skype: joao arroba pleno. com. br

Tente entrar na conta de Email do BOL, vais ver que não se consegue, pelo menos eu, não consegui. loga, más não mostra a caixa de entrada, nem nada e ainda pede para criar uma conta paga ou grátis. Más, não funciona. Uma bósnia, teste em outro PROVEDOR.

abs.

Regards, saludos.

[MAMP2]

Boa noite sr. Joao, mandei pra o email do senhor

obrigado pela ajuda

 

[MAMP2]

boa noite dr, o email voltou o kapiabafwh@gmail.com, tentei mandar por aqui mas tem limite de tamanho de arquivo

tem outro?

 

[kapiaba]

Ponha no MEGA DOWNLOAD.

https://mega.nz/

o Gmail não aceita .RAR ou .ZIP , se não conseguir enviar RENOMEANDO   para .JAR  poste no Mega Upload(super simples).

Ou envie no skype.

Teste em outro provedor, pois o BOL não parece estar estável.

Abs.

[MAMP2]

nao estou usando o BOL estou usando o hotmail renomeei pra TXT e mandei pra o kapiaba e deu erro de novo

consegui mandar pra o joao@pleno.com.br (pois no skype eu nao te encontro )

pode mandar uma oi pra mim no meu skype macedomarcos@hotmail.com

que eu envio por la

(encontrei voce la(skype) mas nao tem opcao de enviar arquivo por la mandei um OI pra voce)

[kapiaba]

Boa noite. Já te adicionei. HOTMAIL não é grátis. Só consegui enviar via ACBRMAIL.  Más no grátis, só se pode usar uns 5 emails para testes, depois trava o envio, já no pago, eu acho que é ilimitado. 

Veja exemplo usando o ACBRMAIL neste link:

https://mega.nz/file/ZY0lCC4b#J087eB2aPhfZiNynwgaEnkwvrPF2P6y7Pifxl_41Qco

 

Abs.

[kapiaba]

Com esta configuração, não funciona nem com o RMAIL.PRG, ou o email está bloqueado, ou a senha está errada.

https://imgur.com/qDDTUri

 

[kapiaba]

Bom dia. Tem algum problema sério com o BOL. nem com a ACBRMAIL.PRG vai. Melhor, é trocar para o uol ou terra ou para o provedor que nós usamos aqui: ACHE PERTO.

abs,

 

Regards, saludos

[kapiaba]

Galera, alguém está usando o EMAIL do UOL para envio em massa, usando o RMAIL.PRG para me dizer se está funcionando normal, ou se eles mudaram alguma coisa, tipo: VIA PROGRAMAS DE TERCEIROS, não se pode enviar mais?

Obg. abs

Regards, saludos.

[edutraini]

boa tarde kapi eu uso rmail usando a conta uolhost da minha empresa

fiz um email chamado nfe@emtinformatica.com.br e eles usam esse email para mandar a nota fiscal

acabou aquele problema de ficar configurando um monte de provedor de cada cliente

 

[kapiaba]

2 horas atrás, edutraini disse:

boa tarde kapi eu uso rmail usando a conta uolhost da minha empresa

fiz um email chamado nfe@emtinformatica.com.br e eles usam esse email para mandar a nota fiscal

acabou aquele problema de ficar configurando um monte de provedor de cada cliente

 

Valeu Edu, tudo indica, que a kgada e no PROVEDOR do www.bol.com.br não conseguir fazer funcionar em nenhum dos modelos de envio de emails que eu tenho. Obg. abs.

Regards, saludos.

[kapiaba]

EDU do céu, ou eu fiquei burro(mais, kkkk), ou o BOL e o UOL resolveram me PHODER!! kkkkk não vai nem a PAU no UOL.

Pode me mostrar a sua configuração, por favor?

Obg. abs.

Regards, saludos.

[edutraini]

   {"@emtinformatica.com.br",       "smtp.emtinformatica.com.br",            587, .f. }
   {"@uol.com.br",        "smtp.uol.com.br",         587, .f. }

Bom dia Kapi

Uso essas duas configuracoes

uma para email da empresa e outra pessoal