Envio de email pelo OutLook

Colega baixe o Dicas E truques Delphi no Site: www.lloydsoft.hpg.ig.com.br
-------------------------------------------------------

esse exemplo achei lá...


Enviar um email
smtp.postmessage.toAddress := ´StringList (por ex uma listbox´;
smtp.postmessage.FromAdreess := ´ex: meu_email@123.pt´;
smtp.userid := ´ex: user@123.pt´
smtp.host := ´ex: smtp@123.pt´
smtp.postmessage.subject := ´Assunto´
smtp.postmessage.body := ´Texto da mensagem (stringlist)´

smtp.connect;
smtp.sendmail;
smtp.disconnect;
Contribuição:
O Anonymous.nick enviou um complemento explicando melhor o procedimento para enviar um e-mail usando o Delphi.

Fazer um aplicativo completo para manipulação de e-mails é um tanto trabalhoso e não é o assunto desta dica. Muitas vezes, porém, queremos apenas dar ao nosso software a capacidade de enviar simples e-mails. Isto é fácil, especialmente porque o Delphi5 nos oferece o componente TNMSMTP (paleta FastNet) que faz praticamente todo o trabalho para nós. Precisamos apenas alterar algumas propriedades e chamar alguns métodos para que a mensagem seja enviada. Vamos para a prática:

1. Coloque um componente TNMSMTP no form.

2. Coloque um botão e no evento OnClick deste botão escreva:

procedure TForm1.Button1Click(Sender: TObject);
begin

{ Seu servidor SMTP }
NMSMTP1.Host := ´smtp.servidor.com.br´;

{ Porta SMTP, **NÃO MUDE ISTO** }
NMSMTP1.Port := 25;

{ Nome de login do usuário }
NMSMTP1.UserID := ´MeuLogin´;

{ Conecta ao servidor }
NMSMTP1.Connect;

{ Se ocorrer algum erro durante a conexão com o servidor, avise! }
if not NMSMTP1.Connected then
raise Exception.Create(´Erro de conexão´);

with NMSMTP1.PostMessage do begin
{ Seu e-mail }
FromAddress := ´meuemail@meuserver.com.br´;

{ Seu nome }
FromName := ´Meu Nome´;

{ E-mail do destinatário }
ToAddress.Clear;
ToAddress.Add(´destinatario@servidor.com.br´);

{ Assunto da mensagem }
Subject := ´Assunto da mensagem´;

{ Corpo da mensagem }
Body.Clear;
Body.Add(´Primeira linha da mensagem´);
Body.Add(´Segunda linha da mensagem´);
Body.Add(´´); { Linha em branco }
Body.Add(´Última linha da mensagem´);

{ Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) }

Attachments.Clear;

{ Endereço do anexo }
Attachments.Add(´c:\diretorio\arquivo.ext´);

end;

{ Manda o e-mail }
NMSMTP1.SendMail;
{ Disconecta do servidor }
NMSMTP1.Disconnect;
end;


Pronto! É só fazer as adaptações necessárias e você terá envio de e-mails em sua aplicação.

Observações:
Para enviar o mesmo e-mail para vários destinatário de uma só vez basta adicionar os endereços de e-mails de todos os destinatários em NMSMTP1.PostMessage.ToAddress.

ESTA FUNCAO ENVIA E-MAIL COM UM ANEXO para VARIOS DESTINATARIOS (NAO IMPORTA SE O PARAMETRO VIER SEPARADO POR VIRGULA OU PONTO-VIRGULA)
A ROTINA MONTA DESTINATARIOS CUIDA DISSO. E VAI DIRETO PARA A CAIXA DE SAIDA DO OUTLOOK


function MontaDestinatariosEmail(Emails:String) : TStringList;
var
Lista : TStringList;
begin
Lista := TStringList.Create;
Lista.Clear;
Emails := ReplaceStr(Emails,',',';');
if POS(';',Emails) = 0 then
Lista.Add(Copy(Emails,1,Length(Emails))) // NESTE CASO TEM SÓ UM E_MAIL
else
ExtractStrings([';'],[' '],pchar(Emails),Lista);
result := Lista;
end;

function EnviaEmailOutlook(Destinatarios,Anexo,Assunto,Texto : String) : Boolean;
const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
i : Integer;
wDestinatarios : TStringList;
begin
try
Outlook := GetActiveOleObject('Outlook.Application') ;
except
Outlook := CreateOleObject('Outlook.Application') ;
end;
MailItem := Outlook.CreateItem(olMailItem) ;
wDestinatarios := TStringList.Create;
wDestinatarios.Clear;
wDestinatarios := MontaDestinatariosEmail(Destinatarios);
for i:=0 to wDestinatarios.Count-1 do
begin
MailItem.Recipients.Add(wDestinatarios[i]) ;
end;
MailItem.Subject := Assunto;

MailItem.Body := Texto;
if FileExists(Anexo) then
MailItem.Attachments.Add(Anexo) ;
MailItem.Send;
VarClear(Outlook);
Result := True;
end;