outlook anexar
14/05/2003
0
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;
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;
Valdemar_d
Curtir tópico
+ 0
Responder
Posts
14/05/2003
Mauromarques
Para sanar este erro que está aparecendo mude o fonte para:
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);
MailItem.Recipients.Add(´email@email.com´);
MailItem.Subject := ´Assunto´;
MailItem.Body := ´corpo da mensagem´;
MailItem.Attachments.Add(´C:\Windows\Win.ini´);
MailItem.Send;
Outlook := Unassigned;
end;
O Problema é que ele só quer funcionar no Outlook 2000
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);
MailItem.Recipients.Add(´email@email.com´);
MailItem.Subject := ´Assunto´;
MailItem.Body := ´corpo da mensagem´;
MailItem.Attachments.Add(´C:\Windows\Win.ini´);
MailItem.Send;
Outlook := Unassigned;
end;
O Problema é que ele só quer funcionar no Outlook 2000
Responder
Clique aqui para fazer login e interagir na Comunidade :)