Envio De Email Cte Utiliazando Gmail

[josemarmt]

Caros colegas, novamente solicitando ajuda.

Estou tentando enviar email utilizando Gmail, com o terra obtive sucesso, entretanto....

segue abaixo trecho do código, se alguém puder ajudar fico muito grato.

Abs a todos e bom fim de semana

 

procedure Tfrmcadlote.BitBtn21Click(Sender: TObject);
var
 Para : String;
 CC   : Tstrings;
begin

  dmlote.qryinfocliente.ParamByName('CODCLI').AsString := dmlote.cdsconhece.FieldByName('CLITOMA').AsString;
  dmlote.qryinfocliente.Open;

  Para := dmlote.qryinfocliente.fieldbyname('emailcli').AsString;
  dmlote.qryinfocliente.Close;
  if trim(para) <> '' then
  begin
    ACBrCTe1.Conhecimentos.Clear;
    ACBrCTe1.Conhecimentos.Clear;
    ACBrCTe1.Conhecimentos.LoadFromFile(dmlote.cdsconhece.FieldByName('chave').AsString);
    CC:=TstringList.Create;
    CC.Add('[email protected]'); //especifique um email válido

    ACBrCTe1.Conhecimentos.Items[0].EnviarEmail('smtp.gmail.com'
                                                , '465'
                                                , '[email protected]'
                                                , '32112294'
                                                , '[email protected]'
                                                , Para
                                                , 'Envio de XML CTe'
                                                , mmEmailMsg.Lines
                                                , false
                                                , false //Enviar PDF junto
                                                , CC  // nil Lista com emails que serão enviado cópias - TStrings
                                                , nil // Lista de anexos - TStrings
                                                , False ); //Pede confirmação de leitura do email

    CC.Free;

    showmessage('Email enviado!');

  end;
end;
 

PS. Antes de postar pesquisei em todo o forum e não encontrei nada q fosse mais esclarecedor.

[mcob]

^{Bom Dia, Josemar}

 

^{Também tive este problema com o GMAIL, e para resolver tive que fazer o seguinte:}

 

^{1 - Verificar no Webmail do GMAIL se o e-mail está habilitado a envio e recebimento via POP3 ou SMTP, caso não esteja você deve habilita-lo, pois, por padrão ele não está.}

^{2 - Configurar no envio do e-mail a porta TLS como TRUE, pois, a porta 465 ela é TLS com segurança por isso deve estar com TRUE, que no seu exemplo não está}

 

^{Após ter feito isto funcionou perfeitamente.}

^{Espero que ajude}

 

^Abraços.

 

^{Miguel C. de Oliveira}

[josemarmt]

Valeu Miguel,

Funcionou.

Obrigado e gde abraço.

[ANT.CARLOS/SP]

Alguém já consegui enviar pelo hotmail ?

Se sim favor postar o código aqui e quais configurações fazer no Web mail se tiver.

 

100+

 

ANT.CARLOS/SP

[Juliomar Marchetti]

Chegou a pesquisar por envio pelo hotmail lembro de ter visto a um tempo um post onde alguem informou as configurações

[marcelo_sp]

Alguém já consegui enviar pelo hotmail ?

Se sim favor postar o código aqui e quais configurações fazer no Web mail se tiver.

 

100+

 

ANT.CARLOS/SP

 

ANT.CARLOS ,

 

Não utilizo o componente ACBr para envio de email's , ou seja , tenho uma rotina própria desenvolvida utilizando Synapse que é a mesma utilizada pelo ACBr e funciona tranquilo , inclusive utilizo para testes uma conta do hotmail , segue configuração abaixo  que utilizo .

 

SMTP = smtp.live.com

PORTA = 587

USUARIO = [email protected] ( Email Completo no usuario )

SENHA = ********

SSL = False

TLS = True

 

Obs : Anti-Virus bloqueiam a porta SMTP de envio , dependendo do Anti-Virus vc pode desabilitar a verificação de envio de emails ou até configurar-lo da forma em que ele não bloqueie o envio de NFe's / CTe's pelo seu aplicativo , vai depender do Anti-Virus .

Editado 31 Dezembro, 2013 por marcelo_sp

[ANT.CARLOS/SP]

Resolvi o problema copiando a dll "ssleay32.dll" na pasta do aplicativo, alem da atualizacao do ACBr.

 

grato,

 

100+

 

ANT.CARLOS/SP

Editado 15 Janeiro, 2014 por ANT.CARLOS/SP