Enviando Email com Indy

[DarkDucke 0]

Pequeno Exemplo :

 

procedure TForm1.btnEnviarClick(Sender: TObject);
begin
  IdMessage.From.Address:= 'Seu Endereco';
  IdMessage.From.Name:= 'Seu Nome';
  IdMessage.Recipients.EMailAddresses:= txtPara.Text;
  IdMessage.Subject:= txtAssunto.Text;
  IdMessage.Body:= mmBody.Lines;

  IdSMTP.Host:= txtSMTP.Text;
  IdSMTP.Port:= 465;
  IdSMTP.Username:= txtUser.Text;
  IdSMTP.Password:= txtPassword.Text;

  IdSMTP.Connect(3000);

  if IdSMTP.Connected then
  begin
	  IdSMTP.Send(IdMessage);
	  IdSMTP.Disconnect;
	  ShowMessage('Email enviado com sucesso!');
  end
  else
  begin
	  IdSMTP.Disconnect;
	  ShowMessage('Não foi possível se conectar com seu servidor de email!');
  end;
end;

vlw meu velho ... espero q isso lhe ajude.... depois fala c funfo Ok!

 

 

 

Aqui o código não funcinou, creio que não funcine tb,

alguem conseguiu fazer isso eviando para email em smtp diferente?

 

 

att.

[Raficcha 1]

DarkDucke, Você esta precisando de ajuda com e-mails em delphi?

 

Peço que não reviva tópicos tão antigos. Rodrigo Miss criou este tópico em 2007, veja: Postou 14 fevereiro 2007 - 18:15

 

Se precisa de ajuda e nenhum tópico está resolvendo, crie um novo tópico.

 

Grato pela atenção.