Fórum Paleta INdy componente para email #360365

Amigo segue o exemplo:

[b:2b1c9dd1de]var[/b:2b1c9dd1de]
idSMTP: TIdSMTP;
idMessage: TIdMessage;
[b:2b1c9dd1de]begin[/b:2b1c9dd1de]

// E-mail destinatário
[b:2b1c9dd1de]if[/b:2b1c9dd1de] edPara.Text = ´´ [b:2b1c9dd1de]then[/b:2b1c9dd1de]
[b:2b1c9dd1de]begin[/b:2b1c9dd1de]
Application.MessageBox(´Informe o campo ´Para´´,´Erro´, MB_OK + MB_ICONERROR);
edPara.SetFocus;
exit;
[b:2b1c9dd1de]end[/b:2b1c9dd1de];

// Assunto
[b:2b1c9dd1de]if[/b:2b1c9dd1de] edAssunto.Text = ´´ [b:2b1c9dd1de]then[/b:2b1c9dd1de]
[b:2b1c9dd1de]begin[/b:2b1c9dd1de]
Application.MessageBox(´Informe o campo ´Assunto´´,´Erro´, MB_OK + MB_ICONERROR);
edAssunto.SetFocus;
exit;
[b:2b1c9dd1de]end[/b:2b1c9dd1de];

idSMTP := TIdSMTP.Create(nil);
idMessage := TIdMessage.Create(nil);

[b:2b1c9dd1de]with[/b:2b1c9dd1de] IdMessage [b:2b1c9dd1de]do[/b:2b1c9dd1de]
[b:2b1c9dd1de]begin[/b:2b1c9dd1de]
clear;
From.Address := [b:2b1c9dd1de]´email_cliente´[/b:2b1c9dd1de];
From.Name := [b:2b1c9dd1de]´NomeCliente´[/b:2b1c9dd1de];
Recipients.EMailAddresses := edPara.Text;
Subject := edAssunto.Text;
body := MemoTexto.Lines;
[b:2b1c9dd1de]if[/b:2b1c9dd1de] edAnexo.Text <> ´´ [b:2b1c9dd1de]then[/b:2b1c9dd1de]
TIdAttachment.Create(IdMessage.MessageParts, edAnexo.Text);
[b:2b1c9dd1de]end[/b:2b1c9dd1de];

[b:2b1c9dd1de]with[/b:2b1c9dd1de] IdSmtp [b:2b1c9dd1de]do[/b:2b1c9dd1de]
[b:2b1c9dd1de]begin[/b:2b1c9dd1de]
Host := [b:2b1c9dd1de]´ContaCliente´[/b:2b1c9dd1de];
Port := 25;
AuthenticationType := atLogin;
Username := [b:2b1c9dd1de]´UsuarioCliente´[/b:2b1c9dd1de];
PassWord := [b:2b1c9dd1de]´senha´[/b:2b1c9dd1de];
[b:2b1c9dd1de]end[/b:2b1c9dd1de];

IdSmtp.Connect;
IdSmtp.Send(IdMessage);
idSmtp.Disconnect;

ShowMessage(´Mensagem enviado com sucesso.´);[/b]