Re: [delphi-br] Re: Envio de email pelo OutLook
:= ERRO_MAPI_FAILURE;
MAPI_E_INSUFFICIENT_MEMORY: Result:= ERRO_MAPI_INSUFFICIENT_MEMORY;
MAPI_E_NOT_SUPPORTED : Result:= ERRO_MAPI_NOT_SUPPORTED ;
else
Result:= 'Erro ('+IntToStr(iRetorno)+') desconhecido !';
end;
Exit;
end;
aRecipiente[i].ulReserved := pRecipiente.ulReserved;
aRecipiente[i].lpszName := pRecipiente.lpszName;
aRecipiente[i].lpszAddress := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_BCC;
Delete( sCCo, 1, Pos( ';', sCCo ) );
Inc( I );
End;
iFiles := Length( aFiles );
// cria o tamanho do array de anexos
SetLength(aArquivoEnvio, iFiles);
// indica os parâmetros para cada recepiente de anexos
For I := 0 To High(aArquivoEnvio) Do
Begin
aArquivoEnvio[i].ulReserved := 0;
aArquivoEnvio[i].flFlags := 0;
aArquivoEnvio[i].nPosition:= 0;
aArquivoEnvio[i].lpszPathName := aFiles[I];
aArquivoEnvio[i].lpszFileName := Nil;
aArquivoEnvio[i].lpFileType := Nil;
End;
// configura o MapiMessage para ser usando pelo MapiSendMail
With MapiMessage Do
Begin
ulReserved := 0;
lpszSubject:= pAssunto;
lpszNoteText := pTexto;
lpszMessageType:= Nil;
lpszDateReceived := Nil;
lpszConversationID := Nil;
flFlags:= 0;
lpOriginator := Nil;
nRecipCount:= iRecip;
lpRecips := @aRecipiente[0];
nFileCount := iFiles;
lpFiles:= @aArquivoEnvio[0];
end;
// ativo o e-mail usado pelo usuário e coloca o destinatário,
Assunto,corpo do e-mail e anexos
// Result := MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI
or MAPI_NEW_SESSION, 0);
// caso você queira que não seja ativado o e-mail, apenas enviando a
mensagem use a linha abaixo no lugar da linha acima.
iRetorno := MapiSendMail( 0, 0, MapiMessage, 0, 0 );
If iRetorno 0 Then
iRetorno:=MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI
or MAPI_NEW_SESSION, 0);
If iRetorno 0 Then
Result:='Erro no envio ('+IntToStr(iRetorno)+')';
// libera a memória alocada para o Recipiente
MAPIFreeBuffer( pRecipiente );
End;
==
[ ]´s
Moacir
- Original Message -
From: Joubert Rinaldi [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 4: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 -, 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
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 -, 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,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
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
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 -, 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,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
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
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 -, 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,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
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
RES: [delphi-br] Re: Envio de email pelo OutLook
já foi postado na lista uma forma de criar objetos ole para o outlook, o
outlook express tem um exemplo no DTDelphi 2.6.
Abraços,
Fabiano
-Mensagem original-
De: Joubert Rinaldi [mailto:[EMAIL PROTECTED]
Enviada em: terça-feira, 26 de outubro de 2004 15:53
Para: [EMAIL PROTECTED]
Assunto: 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 -, 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,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html; = charset=3Diso-8859-1');
writeLn(Arq_mail,'META content=3DMSHTML 6.00.2800.1170
name=3DGENERATOR');
writeLn(Arq_mail,'STYLE/STYLE');
writeLn(Arq_mail,'/HEAD');
writeLn(Arq_mail,'BODY bgColor=3D#f0');
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
Re: [delphi-br] Re: Envio de email pelo OutLook
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($);
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 -, 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
Re: [delphi-br] Re: Envio de email pelo OutLook
;
aRecipiente[i].ulReserved := pRecipiente.ulReserved;
aRecipiente[i].lpszName := pRecipiente.lpszName;
aRecipiente[i].lpszAddress := pRecipiente.lpszAddress;
aRecipiente[i].ulEIDSize:= pRecipiente.ulEIDSize;
aRecipiente[i].lpEntryID:= pRecipiente.lpEntryID;
aRecipiente[i].ulRecipClass := MAPI_BCC;
Delete( sCCo, 1, Pos( ';', sCCo ) );
Inc( I );
End;
iFiles := Length( aFiles );
// cria o tamanho do array de anexos
SetLength(aArquivoEnvio, iFiles);
// indica os parâmetros para cada recepiente de anexos
For I := 0 To High(aArquivoEnvio) Do
Begin
aArquivoEnvio[i].ulReserved := 0;
aArquivoEnvio[i].flFlags := 0;
aArquivoEnvio[i].nPosition:= 0;
aArquivoEnvio[i].lpszPathName := aFiles[I];
aArquivoEnvio[i].lpszFileName := Nil;
aArquivoEnvio[i].lpFileType := Nil;
End;
// configura o MapiMessage para ser usando pelo MapiSendMail
With MapiMessage Do
Begin
ulReserved := 0;
lpszSubject:= pAssunto;
lpszNoteText := pTexto;
lpszMessageType:= Nil;
lpszDateReceived := Nil;
lpszConversationID := Nil;
flFlags:= 0;
lpOriginator := Nil;
nRecipCount:= iRecip;
lpRecips := @aRecipiente[0];
nFileCount := iFiles;
lpFiles:= @aArquivoEnvio[0];
end;
// ativo o e-mail usado pelo usuário e coloca o destinatário,
Assunto,corpo do e-mail e anexos
// Result := MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI
or MAPI_NEW_SESSION, 0);
// caso você queira que não seja ativado o e-mail, apenas enviando a
mensagem use a linha abaixo no lugar da linha acima.
iRetorno := MapiSendMail( 0, 0, MapiMessage, 0, 0 );
If iRetorno 0 Then
iRetorno:=MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI
or MAPI_NEW_SESSION, 0);
If iRetorno 0 Then
Result:='Erro no envio ('+IntToStr(iRetorno)+')';
// libera a memória alocada para o Recipiente
MAPIFreeBuffer( pRecipiente );
End;
==
[ ]´s
Moacir
- Original Message -
From: Joubert Rinaldi [EMAIL PROTECTED]
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 4: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 -, 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,'HTMLHEAD');
writeLn(Arq_mail,'META http-equiv=3DContent-Type
content=3Dtext/html
