E ae Jorge, blz? vc colocou na pasta do system32 os dois arquivos de conexão?
Onjahyr Jorge Ericsson escreveu: > > 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] > <mailto:%2F%2F%27shaokhann%40gmail.com>'; > 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] <mailto:%27meusuporte%40gmail.com>'; > 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 <http://www.jericsson.com.br> > 61 9227.4785 / 3967.6172 > Brasília - DF > >
