Databases
StackOverflow2013
Postsdbo
POGenerate new message in Outlook and display as modal
 

Note that there are some explanatory texts on larger screens.

plurals
  1. POGenerate new message in Outlook and display as modal
    primarykey
    data
    text
    <p>I need to generate and send message with Outlook from application. Mail form should be displayed as modal, mostly because i generate attachment and it should be deleted when user send email (or discard it). </p> <p>My problem is when i make Outlook dialog modal ("MailIt.Display(True)"), Outlook message window shown in background. Command "Outlook.ActiveWindow.Activate" brings it to front, but it can be called when windows already visible and so i can't call it if window is modal. I tried this code:</p> <pre><code>MailIt.Display(False); OleVariant(Outlook.ActiveWindow).Activate; MailIt.Display(True); </code></pre> <p>But id doesn't work, if form already displayed it normal mode it can not be switched to modal. Any ideas? My environment: Windows 8 (UAC disabled), XE3, Outlook 2010.</p> <p>Just tried to send my form into background as suggested by Arioch:</p> <pre><code>SetWindowPos(AWnd, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE); MailIt.Display(AModal); SetForegroundWindow(AWnd); </code></pre> <p>In this case Outlook became foreground (as i need it), but my from can became invisible (if there are other running apps with opened forms), so it also doesn't solve the problem. It should be Outlook in modal state on the top and my application is next to Outlook.</p> <pre><code>SetWindowPos(AWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE) </code></pre> <p>Better then HWND_BOTTOM, but it is not guaranteed that Outlook became foreground.</p> <p>EDITED2. Final (hopefully) solution based on events (suggestion from Kobik):</p> <pre><code>uses Vcl.OleServer, Winapi.ActiveX; Type TOutlookMsgForm = class private protected FOutlook: OutlookApplication; FMessageSent: Boolean; procedure OnOpen(ASender: TObject; var Cancel: WordBool); procedure OnSend(ASender: TObject; var Cancel: WordBool); function TryDisplayOutlookMail(const AMailTo, ASubject, ABody: string; const AAttachmentFileNames: array of string; AWnd: HWND; AModal: Boolean): boolean; property Outlook: OutlookApplication read FOutlook write FOutlook; property MessageSent: Boolean read FMessageSent write FMessageSent; public class function DisplayOutlookMail(const AMailTo, ASubject, ABody: string; const AAttachmentFileNames: array of string; AWnd: HWND; AModal: Boolean = True): boolean; static; end; { TOutlookMsgForm } procedure TOutlookMsgForm.OnOpen(ASender: TObject; var Cancel: WordBool); begin if (Outlook&lt;&gt;nil) and (Outlook.ActiveWindow&lt;&gt;nil) then OleVariant(Outlook.ActiveWindow).Activate; end; procedure TOutlookMsgForm.OnSend(ASender: TObject; var Cancel: WordBool); begin Cancel := False; MessageSent := True; end; function TOutlookMsgForm.TryDisplayOutlookMail(const AMailTo, ASubject, ABody: string; const AAttachmentFileNames: array of string; AWnd: HWND; AModal: Boolean): boolean; var MailIt: MailItem; Mail: TMailItem; i: Integer; begin MessageSent := False; try OleInitialize(nil); try Outlook := CoOutlookApplication.Create; Mail := nil; try MailIt := Outlook.CreateItem(olMailItem) as MailItem; MailIt.To_ := AMailTo; MailIt.Subject := ASubject; MailIt.Body := ABody; for i := Low(AAttachmentFileNames) to High(AAttachmentFileNames) do MailIt.Attachments.Add(AAttachmentFileNames[i], EmptyParam, EmptyParam, EmptyParam); Mail := TMailItem.Create(nil); Mail.ConnectTo(MailIt); Mail.OnOpen := OnOpen; Mail.OnSend := OnSend; MailIt.Display(AModal); if AModal and (AWnd&lt;&gt;0) then SetForegroundWindow(AWnd); Result := true; finally FreeandNil(Mail); MailIt := nil; Outlook := nil; end; finally OleUnInitialize; end; except Result := False; end; end; </code></pre> <p>So it is solved (try#3). Thanks!</p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USAndrei Galatyn
    1. USAndrei Galatyn
    plurals
    1. PL
      singulars
      1. LTLinked
    2. PL
      singulars
      1. LTLinked
    1. PL
      singulars
      1. LTLinked
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. POGenerate new message in Outlook and display as modal
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. POGenerate new message in Outlook and display as modal
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. POGenerate new message in Outlook and display as modal
      1. USkobik
      1. VTFavorite
    1. COcan it be called from a separate thread ?
      singulars
      1. POGenerate new message in Outlook and display as modal
      1. USArioch 'The
    2. CO@Arioch: Yes, it is not a problem to call it in separate thread or call it in main thread but move to foreground from another thread. But i am not sure that it is safe to call Outlook.ActiveWindow.Activate from another thread.
      singulars
      1. POGenerate new message in Outlook and display as modal
      1. USAndrei Galatyn
    3. CO@Arioch: From MSDN: "When a background thread makes a call to the Office application, the call is automatically marshaled across the STA boundary. ... Excel might be in a state such that it cannot immediately handle an incoming call. For example, the Office application might be displaying a modal dialog.". So seems if form is shown modal, then calls to object may not work from another thread.
      singulars
      1. POGenerate new message in Outlook and display as modal
      1. USAndrei Galatyn
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload