Fórum executar outlook e anexar arquivo no delphi #193003
05/11/2003
0
Executei esse código no delphi 5.0 e está dando um erro de ´sequencia de classe inválida.´
procedure TForm1.Button1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject(´Outlook.Application´);
except
Outlook := CreateOleObject(´Outlook.Application´);
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´dummy@hotmail.com´);
vMailItem.Subject := ´test email´;
vMailItem.Body := ´This is a test´;
vMailItem.Attachments.Add(´C:\temp\m0128102003.est´);
vMailItem.Send;
VarClear(Outlook);
end;
Alguém poderia me ajudar ???
procedure TForm1.Button1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject(´Outlook.Application´);
except
Outlook := CreateOleObject(´Outlook.Application´);
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´dummy@hotmail.com´);
vMailItem.Subject := ´test email´;
vMailItem.Body := ´This is a test´;
vMailItem.Attachments.Add(´C:\temp\m0128102003.est´);
vMailItem.Send;
VarClear(Outlook);
end;
Alguém poderia me ajudar ???
Fabianavale
Curtir tópico
+ 0
Responder
Posts
05/11/2003
Sam
Amigão utilize este componente, ele já vem com HELP e Exemplo.
[url]http://www.programmersheaven.com/d/click.aspx?ID=F16319[/url]
[url]http://www.programmersheaven.com/d/click.aspx?ID=F16319[/url]
Responder
Gostei + 0
05/11/2003
Sam
Eu o utilizo assim, ele vai abrir o seu gerenciador de Email padrão automaticamente e carregar estes dados informados. Basta vc colocar o endereço de destino.
-----------------------------------------------------------------------------
begin
MapiControl1.Reset;
MapiControl1.Body := ´AQUI VC COLOCA O TEXTO´;
MapiControl1.Subject := ´AQUI VOCÊ COLOCA O ASSUNTO´;
MapiControl1.FromName := ´AQUI VOCÊ COLOCA O NOME´;
MapiControl1.FromAdress := ´email@origem.com.br´;
// assim vc escolhe o arquivo para atachar, mas se vc quiser automatico basta escrever o caminho do arquivo a ser anexado
if OpenDialog1.Execute then
begin
MapiControl1.AttachedFiles.AddStrings(opendialog1.Files);
end;
//
MapiControl1.sendmail;
end;
-----------------------------------------------------------------------------
begin
MapiControl1.Reset;
MapiControl1.Body := ´AQUI VC COLOCA O TEXTO´;
MapiControl1.Subject := ´AQUI VOCÊ COLOCA O ASSUNTO´;
MapiControl1.FromName := ´AQUI VOCÊ COLOCA O NOME´;
MapiControl1.FromAdress := ´email@origem.com.br´;
// assim vc escolhe o arquivo para atachar, mas se vc quiser automatico basta escrever o caminho do arquivo a ser anexado
if OpenDialog1.Execute then
begin
MapiControl1.AttachedFiles.AddStrings(opendialog1.Files);
end;
//
MapiControl1.sendmail;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)