Olá amigos,
Alguém já conseguiu enviar e-mail autenticado usando uma conta do GMAIL ?
Eu tentei vários exemplos pesquisados na "REDE" com Indy 10 e não consegui´.
Ao meu ver o código está correto e desconfio que a minha rede
(trabalho) está bloqueando a saída.
Alguém que já passou por isso, poderia dá uma Luz.
Obrigado amigos
procedure TForm1.Button1Click(Sender: TObject);
begin
with MSG do
begin
Body.Add(Memo1.Text);
From.Address := Edit2.Text;
From.Name := 'Siger Suporte'; //opcional
Recipients.Add;
Recipients.Items[0].Address := Edit1.Text;//'[EMAIL PROTECTED]';
Recipients.Items[0].Name := 'Atendimento On-Line';
Subject := 'Suporte Técnico';
end;
try
SMTP.Connect();
SMTP.Send(MSG);
SMTP.Disconnect;
except
on E : Exception do
begin
ShowMessage('Falha no envio!'+E.Message);
exit;
end;
end;
ShowMessage('Mensagem enviada com sucesso!');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with SMTP do
begin
AuthType := atSASL; (já mudei para Default e deu o mesmo erro.
Host := 'smtp.gmail.com';
IOHandler:= SSLSocket;
Password := '123456789';
Port := StrToInt(Edit3.Text);// 995;
Username := '[EMAIL PROTECTED]';
end;
SSLSocket.SSLOptions.Method := sslvSSLv2;
SSLSocket.SSLOptions.Mode := sslmClient;
end;
--
Att,
Jorge Ericsson S. Pinheiro
Analista/Projetista de Sistemas
Ericsson Sistemas e Soluções
http://www.jericsson.com.br
61 9227.4785 / 3967.6172
Brasília - DF
