From: Heiko Moeller <Heiko.Moeller@nikocity.de>
Date: Thu, 14 Oct 1999 11:18:16 +0200
Mailing-List: list usehamsternet@onelist.com; contact usehamsternet-owner@onelist.com
--------
From: Heiko Moeller <Heiko.Moeller@nikocity.de>

Hallo Sebastian,

>> >1.) Hamster prft, ob im Ordner 'Mailout' mails liegen, : if (Ja, online
>> >gehen und senden) else/or (nichts)
>> 
>> Kann man mit einem vbs-Skript machen.
>
>Wie? Ich hab's mal versucht und nach einigen vergeblichen Versuchen
>wieder aufgegeben.

Hier ein Beispiel fr die Abfrage auf Vorhandensein von Mails. Der
Hamsterpfad ist entsprechend anzupassen. Wenn man jetzt noch den Hamster
entsprechend aufrufen will, mu man nach dem Test die entsprechenden
Aufrufe hinzufgen. Das sollte jetzt aber kein Problem mehr sein, oder?

### Mailouttst.vbs
'Testet auf Vorhandensein von Mails im Mail.Out-Ordner.

dim fs		' Referenz zum FileSystemObject

'Zugriff auf ActiveX-Objekte des Systems herstellen
set fs = CreateObject("Scripting.FileSystemObject")

hamsterpfad = "d:\dfue\hamster\"

set mailpath = fs.GetFolder(hamsterpfad + "Mails\Mail.Out\")
zaehler = 0

for each mail in mailpath.files
  zaehler = zaehler + 1
next

if zaehler=0 then
   WScript.Echo "Keine Mails im Ordner vorhanden."
else 'Ab hier mte der Hamster zum Versand aufgerufen werden'
   if zaehler = 1 then
     WScript.Echo "Es ist eine Mail im Ordner vorhanden."
   else
     Wscript.Echo "Es sind " & zaehler & " Mails im Ordner vorhanden."
   end if
end if
### Mailouttst.vbs
-- 
Gru, Heiko