por favor..se alguem puder me ajudar com ENVIO de e-mail com Delphi
2005 e Indy10...não funciona...hehe
não sei pq...já vi um monte de livros e manuais e falam sempre a mesma
coisa...mas comigoi nunca funcionou....
abaixo está o código de testes q fiz...
IdMessage1.ContentType := 'text/html';
IdMessage1.Subject := 'Título';
IdMessage1.Body.Add('1° Linha');
IdMessage1.Body.Add('2° Linha');
IdMessage1.Body.Add('3° Linha');
IdMessage1.From.Address := '[EMAIL PROTECTED]';
IdMessage1.From.Name := 'Alan';
IdMessage1.From.Text := 'texto do from';
IdMessage1.Recipients.Clear;
IdMessage1.Recipients.Add.Address := '[EMAIL PROTECTED]';
wErro := '';
// Conecto pop por alguns SMTP só conectam depois do POP3
try
IdPOP31.Host := 'pop3.bol.com.br';
IdPOP31.Port := 110;
IdPOP31.Username := 'usuario';
IdPOP31.Password := 'senha';
try
IdPOP31.Connect;
wErro := 'Nenhum Erro com POP3';
except
on E:Exception do
wErro := 'Erro: '+E.Message;
end;
finally
IdPOP31.Disconnect;
end;
try
IdSMTP1.Host := 'smtp.bol.com.br';
IdSMTP1.Port := 25; // gmail a porta é 465
IdSMTP1.Username := 'usuario';
IdSMTP1.Password := 'senha';
// IdSMTP1.AuthType := atDefault;
try
IdSMTP1.Connect;
wErro := wErro + #13+'Nenhum Erro com SMTP';
except
on E:Exception do
wErro := wErro + #13+'Erro: '+E.Message;
end;
if (IdSMTP1.Connected) then
IdSMTP1.SendMsg(IdMessage1)
finally
IdSMTP1.Disconnect;
end;
ShowMessage(wErro);
se alguem puder me ajudar, agradeço....
Aan Veceli
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
