A nevite nekdo o programu do ktereho jednoduse naskladam maily a text a ten
ho odesle?
Horys
----- Original Message -----
From: "Likavcan, Alexander" <Alexander.Likavcan@volkswagen.sk>
To: <servis-internet@nawebu.cz>
Sent: Wednesday, November 20, 2002 3:33 PM
Subject: RE: Hromadné maily
Zdar a silu Jan, dna 20.11.2002 si napisal(a):
> Pouziva Outlooooooook Expresssssssss
> Najde se neco?
> Diky
>
no a ked uz nainstalujes to dll tuhla toten kusok vbs-ka
toto ulož ako niečo.vbs
---------cut ----------------
Set MyFiles = CreateObject("Scripting.FileSystemObject")
'zmen cestu ku suboru kde su vsetky adresy,
'kazda na novom riadku
Set MyFile = MyFiles.OpenTextFile("c:\message\address.txt",1)
do
My_Send(MyFile.readLine)
Loop Until MyFile.AtEndOfStream = True
'toto je tu len preto, ze to dobehlo
msgbox "Sicke spavy boli odoslane"
sub My_Send(send_to)
Set Mail = CreateObject("Persits.MailSender")
'tu musis dat smtp
Mail.Host = "smtp_cez_koho_to_posle"
Mail.From = "jdoe@xxx.com"
Mail.FromName = "John Doe"
'zmen cestu ku sprave ktora má byt odoslana
Mail.AppendBodyFromFile "c:\message\message.txt"
Mail.AddAddress send_to
Mail.Send
end sub
--------------end cut------------------------------------------------------
s pozdravom
AleXXX
--
Remember: there are no strangers in the world,
only friends who have not yet met.
--
-- Konference magazinu Internet -------------- servis-internet --
-- Pravidla: http://pravidla.kab.cz ------ FAQ: http://faq.kab.cz
-- Archiv a instrukce pro odhlaseni: http://internet.nawebu.cz
This archive was generated by hypermail 2.1.2 : 20. 11. 2002, 16:58 CET