Funcao do outlook no delphi

Question

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

Fsouzarj · Answer

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:tempsample.txt�);  vMailItem.Send;  VarClear(Outlook);end;...

Neoramza · Answer

Valeu pela ajuda!  :D...

Neoramza · Answer

Meu delphi na identifica a funcao �GetActiveOleObject�. Meu delphi � o �6�. O que eu fa�o?...

Neoramza · Answer

Nem a funcao �CreateOleObject�...

Cpuinover · Answer

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

Fabianavale · Answer

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

F�rum Funcao do outlook no delphi #189437