Eu uso esta função
function TEnviaEmail.EnviarEmail(Assunto,Destinatario, Anexo, De: String;
Mensagem: TMemo): Boolean;
var
Mail : TIDSmtp ;
MailMensagem : TIDMessage ;
begin
{ Cria Mensagem }
Mail:= TIdSMTP.Create( Nil );
MailMensagem:= TIdMessage.Create( Nil );
{ Configura a mensagem }
with MailMensagem do
begin
{ Destinatario }
From.Address := Destinatario ;
{ Nome de quem esta envianbdo }
From.Name := De ;
{ Copia }
ReplyTo.EMailAddresses:= Destinatario;
{ Manda }
Recipients.EMailAddresses := Destinatario;
{ Assunto }
Subject := Assunto ;
{ Tipo do Email }
ContentType := 'text/html';
{ Mensagem Mesmo }
Body.Text := Mensagem.Text;
{ Encode para ficar em html }
IsEncoded := true ;
{ Limpa o Anexo }
MessageParts.Clear;
{ Adidiona de Tiver }
if Anexo '' then
begin
{ verifica se tem o Arquivo }
if FileExists( Anexo ) then
begin
TIdAttachment.Create( MessageParts , Anexo );
end
end
end;
{ Configura Email para Envio }
Mail.Host := ServidorSMTP ;
Mail.Username := Usuario ;
Mail.Password := Senha ;
Mail.AuthenticationType := atLogin ;
{ Cnecta }
mail.Connect();
{ Verifica se conectou }
if Mail.Connected then
begin
{ Envia }
Mail.Send( MailMensagem );
Mail.Disconnect ;
Mail.Free ;
Result := true ;
end
else
begin
{ Limpa }
Mail.Free ;
Result := False ;
end;
end;
Wesley
From: Jackson Gomes - ToolsComps
Sent: Friday, September 26, 2008 2:36 PM
To: delphi-br@yahoogrupos.com.br
Subject: Re: [delphi-br] emails em delphi
tenho um BD de clientes em DBIsam ... e um dos campos é email do cliente
gostaria de montar uma rotina para encaminhar um email para todos os
endereços cadastrados ...
http://www.google.com.br/search?hl=pt-BRq=Send+e-Mail+DelphibtnG=Pesquisarmeta=
Jackson Gomes
ToolsComps - Controle de Usuários para Desenvolvedores CodeGear
Web Site: http://www.toolsandcomps.com
Nosso Fórum: http://groups.yahoo.com/group/toolsandcomps
e-mail: [EMAIL PROTECTED]
Fone: 27 3389 1138 - 8811 0324
--
Devhost - Webhost para desenvolvedores Delphi
http://www.devhost.com.br
[EMAIL PROTECTED]
__ Information from ESET NOD32 Antivirus, version of virus signature
database 3479 (20080929) __
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
