<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=us-ascii"><meta name=Generator content="Microsoft Word 14 (filtered medium)"><!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><title>Zpráva</title><style><!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:Consolas;
panose-1:2 11 6 9 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman","serif";
color:black;}
pre
{mso-style-priority:99;
mso-style-link:"HTML Preformatted Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:10.0pt;
font-family:"Courier New";
color:black;}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Balloon Text Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";
color:black;}
span.HTMLPreformattedChar
{mso-style-name:"HTML Preformatted Char";
mso-style-priority:99;
mso-style-link:"HTML Preformatted";
font-family:"Consolas","serif";
color:black;}
span.EmailStyle21
{mso-style-type:personal-reply;
font-family:"Calibri","sans-serif";
color:#1F497D;}
span.BalloonTextChar
{mso-style-name:"Balloon Text Char";
mso-style-priority:99;
mso-style-link:"Balloon Text";
font-family:"Tahoma","sans-serif";
color:black;}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body bgcolor=white lang=DE-AT link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><span style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Nedavno jsem hledal stejnou vec pro VBA (mail generovany z PPT)<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Podle me neni zadne jednoduche a univerzalni reseni.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Nakonec se mi podarilo uchodit kod pro plny Outlook (full) a Lotus notes.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Pokud neni ani jeden klient pritomny tak proste vygeneruji text v notepadu a autor si jej muze pomoci copy/paste odeslat.<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Tzn. Nebylo by to resenim?<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'>Pavel<o:p></o:p></span></p><p class=MsoNormal><span lang=EN-US style='font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1F497D'><o:p> </o:p></span></p><p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p><div><div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'><p class=MsoNormal><b><span lang=EN-US style='font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext'>From:</span></b><span lang=EN-US style='font-size:10.0pt;font-family:"Tahoma","sans-serif";color:windowtext'> Hw-list [mailto:hw-list-bounces@list.hw.cz] <b>On Behalf Of </b>Ondra hwnews<br><b>Sent:</b> 18. ledna 2014 17:31<br><b>To:</b> HW-news<br><b>Subject:</b> Re: OT: Je tu nejaky programator v DELPHI ?<o:p></o:p></span></p></div></div><p class=MsoNormal><o:p> </o:p></p><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Ja tajne doufal, ze tolik na verzi OE nebude zalezet.</span><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Robo poslal odkaz, ze ktereho kopiruji:</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p><em>2. create a message in Outlook using OLE:</em><o:p></o:p></p><pre><b>const<o:p></o:p></b></pre><pre><b> </b>olMailItem = 0;<o:p></o:p></pre><pre><b>var<o:p></o:p></b></pre><pre><b> </b>Outlook, MailItem: OLEVariant;<o:p></o:p></pre><pre><b>begin<o:p></o:p></b></pre><pre><b> try<o:p></o:p></b></pre><pre><b> </b>Outlook := GetActiveOleObject(<span style='color:blue'>'Outlook.Application'</span>);<o:p></o:p></pre><pre> <b>except<o:p></o:p></b></pre><pre><b> </b>Outlook := CreateOleObject(<span style='color:blue'>'Outlook.Application'</span>);<o:p></o:p></pre><pre> <b>end</b>;<o:p></o:p></pre><pre><o:p> </o:p></pre><pre> MailItem := Outlook.CreateItem(olMailItem);<o:p></o:p></pre><pre> MailItem.Recipients.Add(<span style='color:blue'>'mshkolnik@scalabium.com'</span>);<o:p></o:p></pre><pre> MailItem.Subject := <span style='color:blue'>'your subject'</span>;<o:p></o:p></pre><pre><span lang=EN-US> MailItem.Body := </span><span lang=EN-US style='color:blue'>'Welcome to my homepage: </span><span style='color:blue'><a href="http://www.scalabium.com"><span lang=EN-US>http://www.scalabium.com</span></a></span><span lang=EN-US style='color:blue'>'</span><span lang=EN-US>;<o:p></o:p></span></pre><pre><span lang=EN-US> </span>MailItem.Attachments.Add(<span style='color:blue'>'C:\Windows\Win.ini'</span>);<o:p></o:p></pre><pre> MailItem.Send;<o:p></o:p></pre><pre> <o:p></o:p></pre><pre> Outlook := Unassigned;<o:p></o:p></pre><pre><b>end</b>;<o:p></o:p></pre><pre>Ovsem tam neprojdu pres OleObject.<o:p></o:p></pre><pre>Ted poradte... :) O.<o:p></o:p></pre><pre> <o:p></o:p></pre><pre> <o:p></o:p></pre><pre> <o:p></o:p></pre></div><blockquote style='border:none;border-left:solid black 1.5pt;padding:0cm 0cm 0cm 4.0pt;margin-left:3.75pt;margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt'><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>----- Original Message ----- <o:p></o:p></span></p></div><div><p class=MsoNormal style='background:#E4E4E4'><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>From:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> <a href="mailto:skopalik@elektlabs.cz" title="skopalik@elektlabs.cz">Slavomir Skopalik</a> <o:p></o:p></span></p></div><div><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>To:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> <a href="mailto:hw-list@list.hw.cz" title="hw-list@list.hw.cz">'HW-news'</a> <o:p></o:p></span></p></div><div><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Sent:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> Saturday, January 18, 2014 4:21 PM<o:p></o:p></span></p></div><div><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Subject:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> RE: OT: Je tu nejaky programator v DELPHI ?<o:p></o:p></span></p></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Dobry den,</span><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>jaka komponent aVam chybi ?</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>V delphi je moznost importovat ActiveX objekty registrovane v systemu.</span><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Dalsi moznosti je nevisualni pristup (mate stejne moznosti jako v C++, nebo Visual basicu).</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Zde je vice informaci o OLE a Outlook express, bohuzel ve VB.</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'><a href="http://www.bigresource.com/VB-ole-automation-with-outlook-express-8o6V3ZZ9Q9.html">http://www.bigresource.com/VB-ole-automation-with-outlook-express-8o6V3ZZ9Q9.html</a></span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'><a href="http://www.codeproject.com/Articles/9166/Reading-and-Writing-Messages-in-Outlook-Express">http://www.codeproject.com/Articles/9166/Reading-and-Writing-Messages-in-Outlook-Express</a></span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Jeste by se hodila informace, jakou verzi OE to chcete posilat.</span><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Nezalezi ani tak na verzi Delphi (windows API mate k dispozici ve vsech, co tam neni, neni problem si doplnit).</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Dalsi moznosti je to udelat tak, ze zpravu odeslete a odesilatele date do skryte kopie.</span><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Takto to delamy my, pokud odesilame E-maily ze serveru jako reakci na akci uzivatele systemu (web klient).</span><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Vyhodou je, ze je nam jedno, jak ma klient nakonfigurovane cteni posty (web, Outlook, OE, TB, ...).</span><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Navic na serveru zustane kopie puvodni odeslane zpravy.</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif";color:blue'>Slavek</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p><span style='font-size:10.0pt'>Ing. Slavomir Skopalik<br>Jednatel spolecnosti<br>Elekt Labs s.r.o.<br>Sber a vyhodnoceni dat ze stroju a laboratori<br>systemem MASA (<a href="http://www.elektlabs.cz/m2demo">http://www.elektlabs.cz/m2demo</a>)<br>----------------------------------------------<br>Adresa:<br>Elekt Labs s.r.o.<br>Chaloupky 158<br>783 72 Velky Tynec<br>Czech Republic<br>----------------------------------------------<br>Mobil: +420 724 207 851<br>icq:199 118 333<br>skype:skopaliks<br>e-mail:skopalik@elektlabs.cz<br><a href="http://www.elektlabs.cz/">http://www.elektlabs.cz</a><br> </span> <o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><blockquote style='border:none;border-left:solid blue 1.5pt;padding:0cm 0cm 0cm 4.0pt;margin-left:3.75pt;margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt'><p class=MsoNormal style='margin-bottom:12.0pt'><span lang=CS style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>-----Original Message-----<br><b>From:</b> Hw-list [<a href="mailto:hw-list-bounces@list.hw.cz">mailto:hw-list-bounces@list.hw.cz</a>] <b>On Behalf Of </b>Ondra hwnews<br><b>Sent:</b> Friday, January 17, 2014 10:46 PM<br><b>To:</b> HW-news<br><b>Subject:</b> Re: OT: Je tu nejaky programator v DELPHI ?</span><span lang=CS><o:p></o:p></span></p><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Diky obema za snahu, bohuzel cesta pres ShellAPI nevede, ten email musi obsahovat prilohu a tato funkce neni podporovana.</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Ta druha moznost: </span><em>2. create a message in Outlook using OLE: </em><o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>vyzaduje komponentu kterou nemam,nebo ji neumim najit.</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><blockquote style='border:none;border-left:solid black 1.5pt;padding:0cm 0cm 0cm 4.0pt;margin-left:3.75pt;margin-top:5.0pt;margin-right:0cm;margin-bottom:5.0pt'><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>----- Original Message ----- <o:p></o:p></span></p></div><div><p class=MsoNormal style='background:#E4E4E4'><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>From:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> <a href="mailto:robomail@atlas.cz" title="robomail@atlas.cz">Robo</a> <o:p></o:p></span></p></div><div><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>To:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> <a href="mailto:hw-list@list.hw.cz" title="hw-list@list.hw.cz">HW-news</a> <o:p></o:p></span></p></div><div><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Sent:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> Friday, January 17, 2014 4:46 PM<o:p></o:p></span></p></div><div><p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Subject:</span></b><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'> Re: OT: Je tu nejaky programator v DELPHI ?<o:p></o:p></span></p></div><div><p class=MsoNormal><o:p> </o:p></p></div><div><p class=MsoNormal><a href="http://www.scalabium.com/faq/dct0049.htm">http://www.scalabium.com/faq/dct0049.htm</a><br>Dne 17.1.2014 16:22, Ondra hwnews napsal(a):<o:p></o:p></p></div><blockquote style='margin-top:5.0pt;margin-bottom:5.0pt'><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Omlouvam se za lehke zneuziti konference.</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Nasel by se tu nekdo, kdo programuje v Delphi a byl by mi ochoten vytvorit formular na kterem by bylo jedno tlacitko, po jeho stisku by se mi vytvoril email do vychoziho postovniho programu (outlook express).</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Uz to zkousim 2 dny a nemuzu prijit na to jake komponenty musim na formular nandat.</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Tedy nejde mi o poslani exe souboru, ale o projekt.</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Jsem v prostredi Delphi7.</span><o:p></o:p></p></div><div><p class=MsoNormal> <o:p></o:p></p></div><div><p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>diky Ondra</span> <o:p></o:p></p></div><p class=MsoNormal><br><br>__________ Informace od ESET Smart Security, verze databaze 9304 (20140117) __________<br><br>Tuto zpravu proveril ESET Smart Security.<br><br><a href="http://www.eset.cz">http://www.eset.cz</a><br><br><br><br><o:p></o:p></p><pre>_______________________________________________<o:p></o:p></pre><pre>HW-list mailing list - sponsored by <a href="http://www.HW.cz">www.HW.cz</a><o:p></o:p></pre><pre><a href="mailto:Hw-list@list.hw.cz">Hw-list@list.hw.cz</a><o:p></o:p></pre><pre><a href="http://list.hw.cz/mailman/listinfo/hw-list">http://list.hw.cz/mailman/listinfo/hw-list</a><o:p></o:p></pre><pre><o:p> </o:p></pre><pre><o:p> </o:p></pre><pre><o:p> </o:p></pre><pre>__________ Informace od ESET Smart Security, verze databaze 9304 (20140117) __________<o:p></o:p></pre><pre><o:p> </o:p></pre><pre>Tuto zpravu proveril ESET Smart Security.<o:p></o:p></pre><pre><o:p> </o:p></pre><pre><a href="http://www.eset.cz">http://www.eset.cz</a><o:p></o:p></pre><pre><o:p> </o:p></pre></blockquote><p class=MsoNormal><o:p> </o:p></p><div class=MsoNormal align=center style='text-align:center'><hr size=2 width="100%" align=center></div><p class=MsoNormal><span lang=EN-US>_______________________________________________<br>HW-list mailing list - sponsored by </span><a href="http://www.HW.cz"><span lang=EN-US>www.HW.cz</span></a><span lang=EN-US><br></span><a href="mailto:Hw-list@list.hw.cz"><span lang=EN-US>Hw-list@list.hw.cz</span></a><span lang=EN-US><br></span><a href="http://list.hw.cz/mailman/listinfo/hw-list"><span lang=EN-US>http://list.hw.cz/mailman/listinfo/hw-list</span></a><span lang=EN-US><o:p></o:p></span></p></blockquote></blockquote><div class=MsoNormal align=center style='text-align:center'><hr size=2 width="100%" align=center></div><p class=MsoNormal><span lang=EN-US>_______________________________________________<br>HW-list mailing list - sponsored by </span><a href="http://www.HW.cz"><span lang=EN-US>www.HW.cz</span></a><span lang=EN-US><br></span><a href="mailto:Hw-list@list.hw.cz"><span lang=EN-US>Hw-list@list.hw.cz</span></a><span lang=EN-US><br></span><a href="http://list.hw.cz/mailman/listinfo/hw-list"><span lang=EN-US>http://list.hw.cz/mailman/listinfo/hw-list</span></a><span lang=EN-US><o:p></o:p></span></p></blockquote></div></body></html>