<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">ještě vyzkoušej<br>
      <br>
      <a class="moz-txt-link-freetext" href="http://delphi.cz/post/Zasilani-mailu-1-MAPI.aspx">http://delphi.cz/post/Zasilani-mailu-1-MAPI.aspx</a><br>
      <br>
      v příspěvku dole. Vyzkoušel jsem a funguje bez problému<br>
      <br>
      Dne 18.1.2014 19:45, Ondra hwnews napsal(a):<br>
    </div>
    <blockquote cite="mid:91A5B199C42F49A98BAF82CA7DAD1657@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">
      <style></style>
      <div><font size="2" face="Arial">1.Mam uses ComObj, ale pri
          zavolani se dozvim: raised exception class EOleSysError with
          message 'Nesprávný řetězec třídy'. Process stopped.</font></div>
      <div><font size="2" face="Arial">2.Verze s ShellAPI chodi, ale
          neumi to prilohu, tedy s retezcem
          &att:filename="c:\autoexec.bat" sice mam pripraven email s
          prilohou, ale ta priloha neodpovida...</font></div>
      <div> </div>
      <blockquote style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px;
        MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT:
        0px">
        <div style="FONT: 10pt arial">----- Original Message ----- </div>
        <div style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color:
          black"><b>From:</b> <a moz-do-not-send="true"
            title="robomail@atlas.cz" href="mailto:robomail@atlas.cz">Robo</a>
        </div>
        <div style="FONT: 10pt arial"><b>To:</b> <a
            moz-do-not-send="true" title="hw-list@list.hw.cz"
            href="mailto:hw-list@list.hw.cz">HW-news</a> </div>
        <div style="FONT: 10pt arial"><b>Sent:</b> Saturday, January 18,
          2014 7:18 PM</div>
        <div style="FONT: 10pt arial"><b>Subject:</b> Re: OT: Je tu
          nejaky programator v DELPHI ?</div>
        <div><br>
        </div>
        <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 moz-do-not-send="true" 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">
          <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 moz-do-not-send="true" 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 moz-do-not-send="true" 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>
        <p> </p>
        <hr> _______________________________________________<br>
        HW-list mailing list  -  sponsored by <a class="moz-txt-link-abbreviated" href="http://www.HW.cz">www.HW.cz</a><br>
        <a class="moz-txt-link-abbreviated" href="mailto:Hw-list@list.hw.cz">Hw-list@list.hw.cz</a><br>
        <a class="moz-txt-link-freetext" href="http://list.hw.cz/mailman/listinfo/hw-list">http://list.hw.cz/mailman/listinfo/hw-list</a><br>
      </blockquote>
      <br>
      <br>
      __________ Informace od ESET Smart Security, verze databaze 9307
      (20140118) __________<br>
      <br>
      Tuto zpravu proveril ESET Smart Security.<br>
      <br>
      <a moz-do-not-send="true" href="http://www.eset.cz">http://www.eset.cz</a><br>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
HW-list mailing list  -  sponsored by <a class="moz-txt-link-abbreviated" href="http://www.HW.cz">www.HW.cz</a>
<a class="moz-txt-link-abbreviated" href="mailto:Hw-list@list.hw.cz">Hw-list@list.hw.cz</a>
<a class="moz-txt-link-freetext" href="http://list.hw.cz/mailman/listinfo/hw-list">http://list.hw.cz/mailman/listinfo/hw-list</a>



__________ Informace od ESET Smart Security, verze databaze 9307 (20140118) __________

Tuto zpravu proveril ESET Smart Security.

<a class="moz-txt-link-freetext" href="http://www.eset.cz">http://www.eset.cz</a>

</pre>
    </blockquote>
    <br>
  </body>
</html>