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.
This archive was generated by hypermail 2.1.2 : 20. 11. 2002, 16:36 CET