[delphi-br] Envio de email pelo OutLook

Mariana Mon, 25 Oct 2004 12:09:28 -0700


Amigos...
Tenho um projeto de envio de email que foi desenvolvido por outro 
programador a algum tempo.
Ele funciona legal, e envia o email pelo OutLook deixando uma cópia 
nos itens enviados como meu gerente quer.
Só que agora eu tenho que anexar arquivos nos emails a serem 
enviados, e eu gostaria de saber se existe uma maneira de fazer isso 
no código que já existe ou se tenho que refazer este código.
Segue o código:


AssignFile(Arq_mail, sFileN );
Rewrite(Arq_mail);
writeLn(Arq_mail,'From: ');
writeLn(Arq_mail,'To: '+ sMailDest );
writeLn(Arq_mail,'Cc: '+ sCopia );
writeLn(Arq_mail,'Bcc: '+ sCopiaOculta );
writeLn(Arq_mail,'Subject: '+ sSubject );
writeLn(Arq_mail,'Date: ');
writeLn(Arq_mail,'MIME-Version: 1.0');
writeLn(Arq_mail,'Content-Type: multipart/alternative;');
writeLn(Arq_mail,'        boundary="----
=_NextPart_000_003E_01C33CDC.81459AC0"');
writeLn(Arq_mail,'X-Priority: 3');
writeLn(Arq_mail,'X-MSMail-Priority: Normal');
writeLn(Arq_mail,'X-Unsent: 1');
writeLn(Arq_mail,'X-MimeOLE: Produced By Microsoft MimeOLE 
V6.00.2800.1165');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'This is a multi-part message in MIME format.');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'------=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/plain;');
writeLn(Arq_mail,'        charset="iso-8859-1"');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');

writeLn(Arq_mail,'------=_NextPart_000_003E_01C33CDC.81459AC0');
writeLn(Arq_mail,'Content-Type: text/html;');
writeLn(Arq_mail,'        charset="iso-8859-1"');
writeLn(Arq_mail,'Content-Transfer-Encoding: quoted-printable');
writeLn(Arq_mail,' ');
writeLn(Arq_mail,'<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 
Transitional//EN">');
writeLn(Arq_mail,'<HTML><HEAD>');
writeLn(Arq_mail,'<META http-equiv=3DContent-Type 
content=3D"text/html; = charset=3Diso-8859-1">');
writeLn(Arq_mail,'<META content=3D"MSHTML 6.00.2800.1170" 
name=3DGENERATOR>');
writeLn(Arq_mail,'<STYLE></STYLE>');
writeLn(Arq_mail,'</HEAD>');
writeLn(Arq_mail,'<BODY bgColor=3D#fffff0>');
writeLn(Arq_mail,'');
For nQtLines := 0 to  memoHtml.Lines.Count - 1  do
    writeLn(Arq_mail, memoHtml.Lines.Strings[nQtLines]);

CloseFile(Arq_mail);
{$I+}
if lAbrir Then
  ShellExecute(Handle,'open', PChar( sFileN ), nil, nil, 
SW_SHOWNORMAL);

Desde já agradeço

Mariana





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que vocę faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

[delphi-br] Envio de email pelo OutLook

Responder a