a quem possa interresar..essa função funciona perfeitamente.....
valeu a queem tentou dar uma ajuda
procedure TForm1.EnviarEMail(const sEMailDestino, sEMailFonte,
sAssunto,sMensagem: WideString);
var
Mensagem: TIdMessage;
begin
try
// Cria o objeto mensagem
Mensagem := TIdMessage.Create(Self);
// Define os parâmetros da mensagem
Mensagem.ContentType := 'text/HTML'; // Aqui permite que seu email
parâmetro sMensagem) tenha tags html!
Mensagem.Recipients.Add.Address := sEMailDestino;
Mensagem.From.Text := sEMailFonte;
Mensagem.Subject := sAssunto;
Mensagem.Body.Text := sMensagem;
with IdSMTP1 do
begin
// Define os parâmetros de autenticação se o seu provedor requer.
AuthenticationType := atLogin;
Host := 'smtp.bol.com.br';
UserName := 'alansvieceli';
PassWord := '456852';
// Faz a conexão com o servidor e envia a mensagem
try
Connect();
Send(Mensagem);
finally
Disconnect;
end;
end; // width
finally
Mensagem.Free;
end;
end;
--
<<<<< 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
