Enviando emails
Pessoal,
estou tentando enviar emails com o componente IdSMTP da paleta Indy do delphi 7.
DMException.IdSMTP.Username := ´rafael´;
DMException.IdSMTP.Password := ´12345´;
DMException.IdSMTP.Host := ´smtp.mail.yahoo.com.br´;
DMException.IdSMTP.Port := 25;
DMException.IdSMTP.AuthenticationType := atNone;
DMException.IdSMTP.Connect;
Está ocorrendo o seguinte erro no DMException.IdSMTP.Connect: ´Socket Error # 10060 Connection timed out.´
Importante: a conexão intenet na máquina que estou trabalhando é via proxy.
Alguem já passou por isso ?
Rafael Helm.
estou tentando enviar emails com o componente IdSMTP da paleta Indy do delphi 7.
DMException.IdSMTP.Username := ´rafael´;
DMException.IdSMTP.Password := ´12345´;
DMException.IdSMTP.Host := ´smtp.mail.yahoo.com.br´;
DMException.IdSMTP.Port := 25;
DMException.IdSMTP.AuthenticationType := atNone;
DMException.IdSMTP.Connect;
Está ocorrendo o seguinte erro no DMException.IdSMTP.Connect: ´Socket Error # 10060 Connection timed out.´
Importante: a conexão intenet na máquina que estou trabalhando é via proxy.
Alguem já passou por isso ?
Rafael Helm.
Rafaelhelm
Curtidas 0
Respostas
Alansvieceli
26/08/2003
1° Conecta do POP, deixando ele conectado...depois conecta do SMTP dai manda a mensagem.. depois disconecta do SMTP e depois do POP..
tava dando o mesmo erro pra mim....fazendo isso deu certo..
abraço
tava dando o mesmo erro pra mim....fazendo isso deu certo..
abraço
GOSTEI 0
Steve_narancic
26/08/2003
Substitua:
por
DMException.IdSMTP.AuthenticationType := atNone;
por
DMException.IdSMTP.AuthenticationType := atLogin;
GOSTEI 0
Samuel Basso
26/08/2003
Bom dia pessoal estopu com o mesmo problema usando o seguinte código:
SMTP.AuthType := satDefault;
SMTP.Authenticate;
SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
SMTP.UseTLS := utUseImplicitTLS;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 465;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
SMTP.Username := 'Email@yahoo.com.br';
SMTP.Password := 'senha';
SMTP.Host := 'smtp.mail.yahoo.com.br';
SMTP.Port := 465;
SMTP.UseEhlo := True;
SMTP.UseVerp := True;
SMTP.ReadTimeout := 10000;
with IdMsgSend do begin
From.Text := 'para';
From.Address := 'para';
CharSet := 'UTF-8';
ExtraHeaders.Clear;
end;
SMTP.Authenticate;
SMTP.Connect;
try
SMTP.Send(IdMsgSend);
finally
if SMTP.Connected then begin
Sleep(6000);
Application.ProcessMessages;
SMTP.Disconnect;
end;
end;
Testei as informções de [Steve Narancic] e [Alansvieceli] e nada ...
Algúem tem alguma outra opção...
SMTP.AuthType := satDefault;
SMTP.Authenticate;
SMTP.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
SMTP.UseTLS := utUseImplicitTLS;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 465;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
SMTP.Username := 'Email@yahoo.com.br';
SMTP.Password := 'senha';
SMTP.Host := 'smtp.mail.yahoo.com.br';
SMTP.Port := 465;
SMTP.UseEhlo := True;
SMTP.UseVerp := True;
SMTP.ReadTimeout := 10000;
with IdMsgSend do begin
From.Text := 'para';
From.Address := 'para';
CharSet := 'UTF-8';
ExtraHeaders.Clear;
end;
SMTP.Authenticate;
SMTP.Connect;
try
SMTP.Send(IdMsgSend);
finally
if SMTP.Connected then begin
Sleep(6000);
Application.ProcessMessages;
SMTP.Disconnect;
end;
end;
Testei as informções de [Steve Narancic] e [Alansvieceli] e nada ...
Algúem tem alguma outra opção...
GOSTEI 0
Steve Narancic
26/08/2003
Qual o erro que voce está tendo ?
GOSTEI 0
Steve Narancic
26/08/2003
Qual o erro que voce está tendo ?
GOSTEI 0