anexar em outlook

Question

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);

Marcelo.c · Answer

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;

Valdemar_d · Answer

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;