outlook anexar

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



Testei tambem o código abaixo, mas

na linha -- with -- 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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira