Question

我使用OLE和Delphi从我的delphi应用程序通信到Outlook。

我使用以下代码在Outlook中打开新的电子邮件表单。问题是表单是在背景上，所以如果我生成电子邮件表单的表单最大化，它将覆盖＆＃34; Outlook新邮件表单。

如何让该表单显示在顶部？（不是＆＃34;坚持顶部＆＃34;，只是它显示在顶部，然后用户可以根据需要最小化它。）

这是代码：

try
    OutlookApp := GetActiveOleObject('Outlook.Application');
  except
    OutlookApp := CreateOleObject('Outlook.Application');
  end;
  try
    MailItem := OutlookApp.CreateItem(olMailItem);
    MailItem.To := 'Test@mail.com';     
    MailItem.Subject := 'This is the subject';
    MailItem.HTMLBody    := '<HTML>Test</HTML>';
    MailItem.Display;
  finally
    OutlookApp    := VarNull;
  end;
end;

Answer 1

再添加一个电话：

MailItem.Display;
OutlookApp.ActiveWindow.Activate;

激活将Outlook带到了前面。

Answer 2

MailItem.Display有可选参数Modal，它应该使你的窗口模态化，所以尝试使用：

MailItem.Display(True);

Answer 3

我意识到这是一个老话题，但我最近对Outlook 2016的用户也有同样的问题。对我来说，解决方案需要能够包含签名和附件并在顶部打开新的Outlook窗口。如果您调用MailItem.Display（True），则会丢失附件。这是对我有用的解决方案。

注意Window名称中“Message（HTML）”之后的额外空格。我花了很长时间才发现新HTML电子邮件的窗口名称最后有一个额外的空白区域。

procedure DisplayMail(Address, Subject, Body: string; Attachment: TFileName);
var
  Outlook: OleVariant;
  Mail: OleVariant;
  H : THandle;                                                              
  TempTitle : String;                                                      
begin
  TempTitle := 'Temp-'+IntToStr(Random(1000000));                         
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  Mail := Outlook.CreateItem(olMailItem);
  Mail.To := Address;
  Mail.Subject := TempTitle;                                             
  Mail.Display(false);
  H := FindWindow('rctrl_renwnd32',PWidechar(TempTitle+' - Message (HTML) '));
  Mail.Subject := Subject;                                               
  if Body <> '' then
    Mail.HTMLBody := InsertMessage(Body,Mail.HTMLBody);
  if Attachment <> '' then                                              
    Mail.Attachments.Add(Attachment);                                  
  try
    if H <> 0 then
      SetForegroundWindow(H);
  finally
  end;
end;

这对我有用，它允许我添加附件，并保留默认签名。我希望这有助于某人。

如何在Outlook中使用OLE在前面（而不是在背景上）显示新的电子邮件表单？

3 个答案: