Delphi 5, Enviar Email Pelo Outlook Express

[Guest - Marcos -]

Bom Dia gostaria de saber como enviar um email pelo Delphi através do Outlook Express, colocando destinatário, texto, e um arquivo em anexo?

Alguém sabe?

[Churc]

opa

var 
  Outlook: OleVariant; 
  vMailItem: variant; 
begin 
  try 
    Outlook := GetActiveOleObject('Outlook.Application'); 
  except 
    Outlook := CreateOleObject('Outlook.Application'); 
  end; 
  vMailItem := Outlook.CreateItem(olMailItem); 
  vMailItem.Recipients.Add('email@algumsite.com'); 
  vMailItem.Subject := 'Teste'; 
  vMailItem.Body := 'Apenas um teste!'; 
  vMailItem.Attachments.Add('Caminho do Arquivo'); 
  vmailItem.Execute; 
  vMailItem.Display;

Se você trocar o Display por Send ele até envia só

que vai mostrar uma mensagem de aviso pro usuário que

outro programa está tentando enviar emails...

Outra solução é usar o MAPI, da uma olhada nesse link.

abraço

[Sr.Eddye]

Este código não está funcionando com o Outlook Express, tem como fazer isto, em alguns lugares que eu pesquisei encontrei coisas parecidas e pessoas dizendo que o Outlook express não é um objeto OLE e sendo assim só poderia ser feito via MAPI.

Existe alguma solução dentro do OLE para isto, ou vou ter que ficar com a versão MAPI?