function SendMail(strNic, strFrom, strTo, strAss, pop, smtp, User, pw: string;
tsMsg, tsAnexos: TStringList; Auten: Boolean): Boolean;
{chamada da função
var t,t2: TStringList;
begin
t := TStringList.Create;
t.Add('corpo da msg');
t2 := TStringList.Create;
t2.Add('C:\diretorio.txt');
SendMail('Apelido', 'remete...@yahoo.com.br', 'destinata...@xyx.com.br',
'Assunto', 'pop.mail.yahoo.com.br', 'smtp.mail.yahoo.com.br', 'User', 'senha',
t,t2, true);
t.Free;
end;}
var i: Integer; srvPop: TIdPOP3; srvSmtp: TIdSMTP; IdMsg: TIdMessage; iAnex:
Integer;
begin
Result := True;
srvPop := TIdPOP3.Create(nil);
srvSmtp := TIdSMTP.Create(nil);
IdMsg := TIdMessage.Create(nil);
with IdMsg do //Composição da mensagem:
begin
Body.Assign(tsMsg); //Corpo da mensagem
From.Text := '"' + strNic + '" ' + strFrom; //Seu E-mail
ContentType := 'text/HTML'; // Aqui permite que seu email tenha tags html!
Recipients.EMailAddresses := Trim(strTo); //Destinatários
Subject := strAss; //Assunto
CCList.EMailAddresses := ''; //Com cópia para
for iAnex := 0 to tsAnexos.Count - 1 do
TIdAttachment.create(IdMsg.MessageParts, TFileName(tsAnexos[iAnex]));
end;
srvPop.Disconnect;
srvPop.Host := pop;
srvPop.Port := 110;
srvPop.Username := user; //Sua conta no servidor
srvPop.Password := pw; //sua senha no servidor
srvPop.Connect;
srvSmtp.Disconnect;
if Auten = true then
srvSmtp.AuthenticationType := atLogin; //atNone atLogin
srvSmtp.Host := smtp; //endereço SMTP do servidor
srvSmtp.Port := 25; //Porta do Servidor
srvSmtp.Username := user; //Sua conta no servidor
srvSmtp.Password := pw; //sua senha no servidor
srvSmtp.Connect; //conecta ao servidor
try
try
srvSmtp.Send(IdMsg); //envia a mensagem
except
Result := false;
end;
finally //quando terminar de enviar
srvPop.Free;
srvSmtp.Free;
IdMsg.Free;
end;
Application.MessageBox('Email enviado com sucesso!', 'Confirmação',
MB_ICONINFORMATION + MB_OK);
end;
--- Em delphi-br@yahoogrupos.com.br, Eduardo Suruagy <eduardosuru...@...>
escreveu
>
> Alguem aqui da lista pode me ajudar com relação ao envio de e-mail. Obrigado
> pela atenção!!
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
