Claro que dá, segue abaixo:
COMO CHAMAR A FUNCTION:
EnviarEMail('De ', 'Para', 'Enviar Arquivo', 'Segue em anexo o arquivo...', seu
arquivo, True)
A FUNCTION:
function EnviarEMail(const De, Para, Assunto, Texto, Arquivo: string; Confirma:
Boolean): Integer;
var
Msg: TMapiMessage;
lpSender, lpRecepient: TMapiRecipDesc;
FileAttach: TMapiFileDesc;
SM: TFNMapiSendMail;
MAPIModule: HModule;
Flags: Cardinal;
begin
// cria propriedades da mensagem
FillChar(Msg, SizeOf(Msg), 0);
with Msg do begin
if (Assunto <> '') then lpszSubject := PChar(Assunto);
if (Texto <> '') then lpszNoteText := PChar(Texto);
// remetente
if (De <> '') then begin
lpSender.ulRecipClass := MAPI_ORIG;
lpSender.lpszName := PChar(De);
lpSender.lpszAddress := PChar(De);
lpSender.ulReserved := 0;
lpSender.ulEIDSize := 0;
lpSender.lpEntryID := nil;
lpOriginator := @lpSender;
end;
// destinatário
if (Para <> '') then begin
lpRecepient.ulRecipClass := MAPI_TO;
lpRecepient.lpszName := PChar(Para);
lpRecepient.lpszAddress := PChar(Para);
lpRecepient.ulReserved := 0;
lpRecepient.ulEIDSize := 0;
lpRecepient.lpEntryID := nil;
nRecipCount := 1;
lpRecips := @lpRecepient;
end
else
lpRecips := nil;
// arquivo anexo
if (Arquivo = '') then begin
nFileCount := 0;
lpFiles := nil;
end
else begin
FillChar(FileAttach, SizeOf(FileAttach), 0);
FileAttach.nPosition := Cardinal($FFFFFFFF);
FileAttach.lpszPathName := PChar(Arquivo);
nFileCount := 1;
lpFiles := @FileAttach;
end;
end;
// carrega dll e o método para envio do email
MAPIModule := LoadLibrary(PChar(MAPIDLL));
if MAPIModule = 0 then
Result := -1
else begin
try
if Confirma then
Flags := MAPI_DIALOG or MAPI_LOGON_UI
else
Flags := 0;
@SM := GetProcAddress(MAPIModule, 'MAPISendMail');
if @SM <> nil then
Result := SM(0, Application.Handle, Msg, Flags, 0)
else
Result := 1;
finally
FreeLibrary(MAPIModule);
end;
end;
end;
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
----- Original Message -----
From: Alexandre Oliveira
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:28 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Olá,
É possível disponibilizar para o grupo ?
Alexandre
----- Original Message -----
From: "MOITA" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, October 26, 2004 5:12 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
Se for no Outloook Express eu tenho uma rotina legal para enviar anexos !
----- Original Message -----
From: Joubert Rinaldi
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 3:53 PM
Subject: Re: [delphi-br] Re: Envio de email pelo OutLook
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
--
Este e-mail está livre de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.3 - Data de Lançamento:
25/10/2004
--
Mensagens enviadas estão livres de vírus.
Verificado por AVG Anti-Vírus (http://www.avgbrasil.com.br).
Versão: 7.0.280 / Banco de dados de Vírus: 264.12.3 - Data de Lançamento: 25/10/2004
--
<<<<< 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
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
