Enviar e-mail através do Outlook (Delphi5)

Companheiro, tenho esse comando de chamada de e-mail pelo outlook, não sei se vai resolver o seu problema, pois não sei como fazer para anexar arquivos ou até mesmo escrever o corpo do e-mail. Fazendo isso pelos componentes do Delphi é bem mais simples.

ShellExecute(GetDesktopWindow,´open´,pchar(´mailto:email@email.com.br´),nil,nil,sw_ShowNormal);

Para esse comando funcionar, informe ShellAPI na cláusula USES.

Ai vai.

Como enviar um e-mail usando sua conta padrão do Outlook?
var
Form1: TForm1;
const
olMailItem = 0;

implementation
uses comobj, olectrls;


{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject(´Outlook.Application´);
except
Outlook := CreateOleObject(´Outlook.Application´);
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´fulano@mundo.com.br´); // 1o Destin.
vMailItem.Recipients.Add(´ciclano@mundo.com.br´); // 2o Destin.
vMailItem.Subject := ´teste de email´; // assunto
vMailItem.Body := ´Isto é um teste´; // corpo
vMailItem.Attachments.Add(´C:\temp\arquivo.db´); // arq anexo
vMailItem.Send;

VarClear(Outlook);
end;

Mas precisa ter o Microsoft outlook instalado certo?
somente tendo o outlook express não funciona certo?????

Amigo, muito obrigado. Era isso mesmo que eu estava precisando!