<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>