<html>
  <head>
    <meta content="text/html; charset=ISO-8859-2"
      http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <div class="moz-cite-prefix">a mas v uses ComObj<br>
      <br>
      <br>
      jeste zkus<br>
      <br>
      <pre>uses
  ShellAPI;
        
begin
  ShellExecute(0,<span class="ST">'open'</span>,<span class="ST">'mailto: <a class="moz-txt-link-abbreviated" href="mailto:email@email.cz?subject=Predmet&body=text">email@email.cz?subject=Predmet&body=text</a> emailu'</span>,
               NIL, NIL, SW_SHOWNORMAL);
end</pre>
      <br>
      <br>
      <br>
      Dne 18.1.2014 17:31, Ondra hwnews napsal(a):<br>
    </div>
    <blockquote cite="mid:D474BA461D5C430BA0E84F6588697B40@PCo"
      type="cite">
      <title>Zpráva</title>
      <meta http-equiv="Content-Type" content="text/html;
        charset=ISO-8859-2">
      <meta content="MSHTML 6.00.2900.6470" name="GENERATOR">
      <div><font size="2" face="Arial">Ja tajne doufal, ze tolik na
          verzi OE nebude zalezet.</font></div>
      <div><font size="2" face="Arial">Robo poslal odkaz, ze ktereho
          kopiruji:</font></div>
      <div> </div>
      <div>
        <p><em>2. create a message in Outlook using OLE:</em><br>
        </p>
        <pre><b>const
  </b>olMailItem = 0;
<b>var
  </b>Outlook, MailItem: OLEVariant;
<b>begin
  try
    </b>Outlook := GetActiveOleObject(<font color="blue">'Outlook.Application'</font>);
  <b>except
    </b>Outlook := CreateOleObject(<font color="blue">'Outlook.Application'</font>);
  <b>end</b>;

  MailItem := Outlook.CreateItem(olMailItem);
  MailItem.Recipients.Add(<font color="blue">'<a class="moz-txt-link-abbreviated" href="mailto:mshkolnik@scalabium.com">mshkolnik@scalabium.com</a>'</font>);
  MailItem.Subject := <font color="blue">'your subject'</font>;
  MailItem.Body := <font color="blue">'Welcome to my homepage: <a class="moz-txt-link-freetext" href="http://www.scalabium.com">http://www.scalabium.com</a>'</font>;
  MailItem.Attachments.Add(<font color="blue">'C:\Windows\Win.ini'</font>);
  MailItem.Send;
  
  Outlook := Unassigned;
<b>end</b>;
</pre>
        <pre>Ovsem tam neprojdu pres OleObject.</pre>
        <pre>Ted poradte... :)  O.</pre>
        <pre> </pre>
        <pre> </pre>
        <pre> 
</pre>
      </div>
    </blockquote>
    <br>
  </body>
</html>