Já procurei em tudo quanto é canto uma forma de mandar e-mail pelo
Outlook com anexo e não achei nada.
O melhor a fazer é mudar a forma de manda-los.
[]'s
On Tue, 26 Oct 2004 04:05:14 -0000, ms_goncalves <[EMAIL PROTECTED]> wrote:
>
> Oi Mariana,
>
> > Tenho um projeto de envio de email que foi desenvolvido por outro
> > programador a algum tempo.
>
> "foi desenvolvido por outro programador" tudo bem ainda vai se
> tiver bem documentado... mas, com "a algum tempo" aih eh mortal! :)
>
> > como meu gerente quer.
>
> Sugiro vc refazer a funcao usando um daqueles componentes q ligam
> o Delphi ao Office. Se estiver usando o Delphi5 pode usar o
> componente TNMSMTP (paleta FastNet).
>
> []s
>
> MSG
>
> --- Em [EMAIL PROTECTED], "Mariana" <[EMAIL PROTECTED]> escreveu
>
>
> >
> > 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]
>
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
>
>
>
>
>
>
> ________________________________
> 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 Termos do Serviço do
> Yahoo!.
--
MSN: [EMAIL PROTECTED]
--
<<<<< 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
