Anexando arquivo no outlook
02/03/2010
0
Simone
Posts
02/03/2010
Wilson Junior
Espero ter colaborado.
02/03/2010
Simone
02/03/2010
Wilson Junior
Exemplo:
var
stlAnexo: TStringList;
begin
stlAnexo := TStringList.Create;
try
stlAnexo.Add( 'C:\Arquivo1.txt' );
stlAnexo.Add( 'C:\Arquivo2.txt' );
stlAnexo.Add( 'C:\Arquivo3.txt' );
{ Sendo assim, irá anexar todos os arquivos incluídos na lista }
EnviarEmail('email@dominio.com', 'Meu assunto'; 'Corpo do e-mail'; stlAnexo );
finally
FreeAndNil( stlAnexo );
end;
end;
Espero ter colaborado.
02/03/2010
Wilson Junior
EnviarEmail('email@dominio.com', 'Meu assunto', 'Corpo do e-mail');
03/03/2010
Simone
type
TAttachAccessArray = array [0..0] of TMapiFileDesc;// erro aqui
PAttachAccessArray = ^TAttachAccessArray; // erro aqui
var
MapiMessage: TMapiMessage;
MError: Cardinal;
Sender: TMapiRecipDesc; // erro aqui
PRecip, Recipients: PMapiRecipDesc;
Attachments: PAttachAccessArray;
x: integer;
04/03/2010
Alison Bissoli
04/03/2010
Alison Bissoli
Esse componente é interligado às contas de email configuradas no painel de controle.
Download: http://sourceforge.net/projects/jvcl/files/JVCL%203/JVCL%203.37/JVCL337CompleteJCL1105-Build3400.zip/download
Instale em uma maquina de testes, porque são muitos os componentes instalados junto e pode pesar muito a sua máquina no carregamento do delphi.
jvemail: TJvMail;
jvemail.Attachment.Clear;
jvemail.Attachment.Add(nomefile); //adicionando anexo
jvemail.Subject := 'MECMINAS - Cotação'; // assunto
jvemail.Recipient.Clear;
jvemail.Recipient.AddRecipient(endereço do email,nome do contato); // destinatario
jvemail.body.clear;
jvemail.Body.Text := corpo do email;
jvemail.SendMail(true); // se me lembro bem, o true é se irá mostrar ao usuário a mensagem antes de ser enviada "TRUE" ou será enviada diretamente "FALSE"
04/03/2010
Alison Bissoli
Esse componente é interligado às contas de email configuradas no painel de controle.
Download: http://sourceforge.net/projects/jvcl/files/JVCL%203/JVCL%203.37/JVCL337CompleteJCL1105-Build3400.zip/download
Instale em uma maquina de testes, porque são muitos os componentes instalados junto e pode pesar muito a sua máquina no carregamento do delphi.
jvemail: TJvMail;
============================================================
jvemail.Attachment.Clear;
jvemail.Attachment.Add(nomefile); //adicionando anexo
jvemail.Subject := 'COTAÇÃO'; // assunto
jvemail.Recipient.Clear;
jvemail.Recipient.AddRecipient(endereço do email,nome do contato); // destinatario
jvemail.body.clear;
jvemail.Body.Text := corpo do email;
jvemail.SendMail(true); // se me lembro bem, o true é se irá mostrar ao usuário a mensagem antes de ser enviada "TRUE" ou será enviada diretamente "FALSE"
============================================================
04/03/2010
Thiago Santana
Clique aqui para fazer login e interagir na Comunidade :)