OT: Je tu nejaky programator v DELPHI ?

[Slavomir Skopalik]

Podle vseho, pro odeslani pres OE jsou dve moznosti:
 
1. MAPI (asi lepsi volba, nez uzka navaznost na OE).
 
2. Ulozit E-mail do slozky "posta k odeslani"
 
rozhrani je zde:
 
http://msdn.microsoft.com/en-us/library/ms710250%28v=vs.85%29.aspx
 
http://msdn.microsoft.com/en-us/library/ms710214%28v=vs.85%29.aspx
 
http://www.codeproject.com/Articles/9166/Reading-and-Writing-Messages-in-Out
look-Express
 
 
Slavek
Ing. Slavomir Skopalik
Jednatel spolecnosti
Elekt Labs s.r.o.
Sber a vyhodnoceni dat ze stroju a laboratori
systemem MASA (http://www.elektlabs.cz/m2demo)
----------------------------------------------
Adresa:
Elekt Labs s.r.o.
Chaloupky 158
783 72 Velky Tynec
Czech Republic
----------------------------------------------
Mobil: +420 724 207 851
icq:199 118 333
skype:skopaliks
e-mail:skopalik na elektlabs.cz
http://www.elektlabs.cz <http://www.elektlabs.cz/> 
  

-----Original Message-----
From: Hw-list [mailto:hw-list-bounces na list.hw.cz] On Behalf Of Robo
Sent: Sunday, January 19, 2014 10:06 AM
To: HW-news
Subject: Re: OT: Je tu nejaky programator v DELPHI ?


ještě vyzkoušej

http://delphi.cz/post/Zasilani-mailu-1-MAPI.aspx

v příspěvku dole. Vyzkoušel jsem a funguje bez problému

Dne 18.1.2014 19:45, Ondra hwnews napsal(a):


1.Mam uses ComObj, ale pri zavolani se dozvim: raised exception class
EOleSysError with message 'Nesprávný řetězec třídy'. Process stopped.
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...
 

----- Original Message ----- 
From: Robo <mailto:robomail na atlas.cz>  
To: HW-news <mailto:hw-list na list.hw.cz>  
Sent: Saturday, January 18, 2014 7:18 PM
Subject: Re: OT: Je tu nejaky programator v DELPHI ?

a mas v uses ComObj


jeste zkus


uses

  ShellAPI;

	

begin

  ShellExecute(0,'open','mailto: email na email.cz?subject=Predmet
<mailto:email na email.cz?subject=Predmet&body=text> &body=text emailu',

               NIL, NIL, SW_SHOWNORMAL);

end



Dne 18.1.2014 17:31, Ondra hwnews napsal(a):


Ja tajne doufal, ze tolik na verzi OE nebude zalezet.
Robo poslal odkaz, ze ktereho kopiruji:
 

2. create a message in Outlook using OLE:


const

  olMailItem = 0;

var

  Outlook, MailItem: OLEVariant;

begin

  try

    Outlook := GetActiveOleObject('Outlook.Application');

  except

    Outlook := CreateOleObject('Outlook.Application');

  end;



  MailItem := Outlook.CreateItem(olMailItem);

  MailItem.Recipients.Add('mshkolnik na scalabium.com');

  MailItem.Subject := 'your subject';

  MailItem.Body := 'Welcome to my homepage: http://www.scalabium.com';

  MailItem.Attachments.Add('C:\Windows\Win.ini');

  MailItem.Send;

  

  Outlook := Unassigned;

end;
Ovsem tam neprojdu pres OleObject.
Ted poradte... :)  O.
 
 
 




  _____  

_______________________________________________
HW-list mailing list  -  sponsored by www.HW.cz
Hw-list na list.hw.cz
http://list.hw.cz/mailman/listinfo/hw-list




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

Tuto zpravu proveril ESET Smart Security.

http://www.eset.cz

 

_______________________________________________

HW-list mailing list  -  sponsored by www.HW.cz

Hw-list na list.hw.cz

http://list.hw.cz/mailman/listinfo/hw-list







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



Tuto zpravu proveril ESET Smart Security.



http://www.eset.cz




------------- další část ---------------
HTML příloha byla odstraněna...
URL: <http://list.hw.cz/pipermail/hw-list/attachments/20140119/7d85b305/attachment.html>