Zdar a silu joot, dna 18.06.2002 si napisal(a):
> to Alexxx:
> Upřesním to,běží to na win98, outlook 97, maily jsou v jedné složce,
> v odpovědi by měl byt stejny text, jinak je to jedno, jestli se uvede
> původní subj. zprávy, nebo nový, je celkem jedno, jestli se odpoví
> najednou, nebo každý adresát jeden mail. Dík
>
>
skopni to do notepadu a uloz ako vbs.
------------------------
Set mejl = CreateObject("Outlook.application")
Set myolNameSpace = mejl.GetNamespace("MAPI")
Set myFoldr = myolNameSpace.Folders("Nazov Foldra1").Folders("Nazov
Foldra2").Folders("Nazov Foldra3").Folders("Nazov Foldra4")
'riadok nad tym je hrierarchia ktora zacina z rootu ... uber alebo pridaj
dalsie nody
For i = 1 To myFoldr.Items.Count
Set myItem = myFoldr.Items(i)
myItem.Body = "spava ktoru chces poslat" & vbcrlf & "a pokracovanie na
dalsom riadku"
myItem.Reply
'myItem.Display 'pouzi len ak chces spravu pred odoslanim vidiet(netestovane
neviem co to spravi
myItem.send
Next
--------------------
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 : 18. 06. 2002, 15:49 CEST