Outlook Express

04/04/2003

0

Pessoal, estou com um problema, nao consigo fazer com que abra o outlook express, esta abrindo o microsoft outlook, alguem sabe como faço a chamada do outlook espress ???

obrigado

procedure TForm1.Button1Click(Sender: TObject);
var
outlook: OleVariant;
vMailItem: variant;
begin

try
// ShellExecute(0,´open´,´C:\Arquivos de programas\Outlook Express\msimn.exe´, nil, nil, SW_SHOW);
outlook := GetActiveOleObject(´outlook.Application´);
except
outlook := CreateOleObject(´outlook.Application´);
end;
vMailItem := outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´teste@uol.com.br´); // 1o Destin.
vMailItem.Recipients.Add(´teste@bol.com.br´); // 2o Destin.
vMailItem.Subject := ´teste de email´; // assunto
vMailItem.Body := ´Isto é um teste´; // corpo
vMailItem.Attachments.Add(´C:\fer.html´); // arq anexo
vMailItem.display;

VarClear(outlook);
end;


Anonymous

Anonymous

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar