Descobrir Se Uma Janela Criada Por Ole Ainda Está Aberta

[Guest Thiago Marques]

Estou montando um sistema que cria uma mensagem do Outlook para o usuário.

Porem assim que o sistema monta mensagem ele finaliza, e isso pode gerar um problema caso o sistema comece a criar varias mensagens e o usuario não as envie. Por isso gostaria que meu sistema só finaliza-se apos esta mensagem ter sido fechada.

Abaixo o Codigo..... Se alguém tiver o Arquivo de Help ou souber onde acho o arquivo de Help das classes COMOBJ e ACTIVEX por favor me indique, pois faz muita falta!!!

Vlw

Outlook := CreateOleObject('Outlook.Application');
  MailItem := Outlook.CreateItem(0);
  MailItem.Recipients.Add(lTo);
  MailItem.Subject := lSubject;
  MailItem.HTMLBody := '<div style="font-family:' + QuotedStr('Courier') +' ">';
  While not Eof(lMensagem) do
    begin
      Readln(lMensagem,lLinha);
      lLinha := StringReplace(lLinha,'&','E',[rfReplaceAll]);
      MailItem.HTMLBody := MailItem.HTMLBody + lLinha + '<br>';
    end;
  MailItem.HTMLBody := MailItem.HTMLBody + '</div>';
  MailItem.Display;

[Churc]

opa

verifique se não tem a propriedade HWND, pro Internet Explorer tem...

então você faria

uses

Variants;

if ((not varisempty(Outlook)) and (iswindowvisible(outlook.hwnd))) then

a janela esta aberta else

a janela esta fechada...

se a variavel outlook não possuir a propriedade HWND, procure por Handle, e também tente o mesmo na variavel MailItem

abraço