<div>
Seems that your working session timed-out. Maybe you can create another thread with this session as parameter and do some stuff to avoid timeout.
</div>

<div>
don't understand what you mean? Can you give an example please?
</div>

<div>
Try following code (modified your a bit): 
 

<pre><code class="code-10 nolinks" id="code-20-41516092-1">function TForm1.SendMail(toAdress, ToCC, ToBCC, Subject: String; AttachedFileNames: array of String): Boolean;
var
 MailItem: _MailItem;
 Mail: TMailItem;
 i: integer;
begin
 Result := false;
 OutlookApplication1.Connect;
 try
 MailItem := OutlookApplication1.CreateItem(olMailItem) as _MailItem;

 Mail := TMailItem.Create(nil);
 try
 Mail.ConnectTo(MailItem);

 if toAdress &lt;&gt; '' then
 MailItem.Recipients.Add(toAdress);
 MailItem.CC := ToCC;
 MailItem.BCC := ToBCC;
 MailItem.Subject := Subject;
 if Length(AttachedFileNames) &gt; 0 then
 begin
 for i := Low(AttachedFileNames) to High(AttachedFileNames) do
 MailItem.Attachments.Add(AttachedFileNames[i], EmptyParam, EmptyParam, EmptyParam);
 end;
 MailItem.Display(true);
 Result := MailItem.Sent; //check if send
 finally
 Mail.Free;
 end;
 finally
 OutlookApplication1.Disconnect;
 end;
end;
</code></pre>
 
Function result takes if message has been sent.
</div>

<div>
TMailItem is unknown in Delphi XE7
</div>

<div>
How can I close this question. I didn't get a solution?
</div>

<div>
TMailItem should be defined in &lt;...delphi inst. folder&gt;\OCX\Servers as OutlookXP.pas or Outlook2000.pas (so, add Outlook2000 to uses ...) 
Did you resolved by yourself? Only few people can test this situation: XE7 + Outlook2013 .... 
I can't .....
</div>

<div>
nobody could solve the problem so I used a workaround.
</div>

<div>
<div class="content wysiwyg-content">
Hi 
 
Delphi XE7 
Outlook 2013 
 
I have writen a function to send EMails with simple mapi and that works
<pre><code class="code-10 nolinks" id="code-10-28934393-1"> OutlookApplication1.Connect;
 MailSent := false;
 try
 MailItem1 := OutlookApplication1.CreateItem(olMailItem) as MailItem;
 if toAdress &lt;&gt; '' then
 MailItem1.Recipients.Add(toAdress);
 MailItem1.CC := ToCC;
 MailItem1.BCC := ToBCC;
 MailItem1.Subject := Subject;
 if AttachedFileNames &lt;&gt; nil then
 begin
 for i := 0 to AttachedFileNames.Count - 1 do
 MailItem1.Attachments.Add(AttachedFileNames[i], EmptyParam, EmptyParam, EmptyParam);
 end;
 MailAktiv := True;
 MailItem1.Display(true);
 finally
 //MailItem1.Close(olSave); //Disconnect;
 OutlookApplication1.Disconnect;
 Result := MailSent;
 end;
</code></pre>
 
In event ItemSent of tOutlookApplication I set the boolean MailSent to true to notify that the email is sent. If I send the email within &lt;1 minute it works. If I send the email with a delay of &gt;&nbsp;1 minute the ItemSent-event is not fired. How can I solve this problem? Thanks.
</div>
</div>

Hi

Delphi XE7
Outlook 2013

I have writen a function to send EMails with simple mapi and that works(CODE)

In event ItemSent of tOutlookApplication I set the boolean MailSent to true to notify that the email is sent. If I send the email within <1 minute it works. If I send the email with a delay of > 1 minute the ItemSent-event is not fired. How can I solve this problem? Thanks.

simple mapi timeout

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.