Funcao do outlook no delphi

Delphi

18/10/2003

Como eu faco para que em um formulário quando eu apertar um botao abra uma janela do outlook para ser enviado um email para uma determinada pessoa?


Neoramza

Neoramza

Curtidas 0

Respostas

Fsouzarj

Fsouzarj

18/10/2003

procedure SendOutlookMail;
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\sample.txt´);
vMailItem.Send;

VarClear(Outlook);
end;


GOSTEI 0
Neoramza

Neoramza

18/10/2003

Valeu pela ajuda! :D


GOSTEI 0
Neoramza

Neoramza

18/10/2003

Meu delphi na identifica a funcao ´GetActiveOleObject´. Meu delphi é o ´6´. O que eu faço?


GOSTEI 0
Neoramza

Neoramza

18/10/2003

Nem a funcao ´CreateOleObject´


GOSTEI 0
Cpuinover

Cpuinover

18/10/2003

// Declare ShellApi na cláusula USES.
ShellExecute(Handle, ´open´, ´mailto:aldemirjr@ig.com.br´, ´´, ´´,SW_SHOW);


GOSTEI 0
Fabianavale

Fabianavale

18/10/2003

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 ???


GOSTEI 0
POSTAR