anexar em outlook

13/05/2003

1

Não consigo anexar um arquivo automaticamente. C:\Copia\Copia.zip
Agradeço pela Atenção


ShellExecute(Handle,
´open´,
pchar(´mailto:´+EditPara.text+´?subject=´+EditAssunto.text+´ ´),
nil,
´´,
Sw_ShowNormal);


Responder

Posts

13/05/2003

Marcelo.c

Ainda não testei este código, mas dê uma olhada:

Declare ComObj no uses.

const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
Body := ´corpo da mensagem´;
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end;
Outlook := Unassigned;
end;


Responder

13/05/2003

Valdemar_d

olá Marcelo
na linha ocorre esse erro <= ERRO RECORD, OBJECT OR CLASS TYPE
o que devo fazer?

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComObj, StdCtrls;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin <= ERRO RECORD, OBJECT OR CLASS TYPE REQUIRED
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
Body := ´corpo da mensagem´;
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end; //with
Outlook := Unassigned;
end;


Responder