Automatisch een e-mail versturen?

[peter248|IA]

Vraagje...

Situatie is als volgt:
Door een extern programma wordt om de vijf minuten een bestand op een lokale disk geplaatst (C-schijf bijvoorbeeld). Dit bestand kan echter variëren in grootte. Als het bestand te groot word dient er automatisch een e-mail via Outlook na enkele adressen gestuurd te worden.

Iemand een idee hoe ik zoiets moet aanpakken? (Of kan ik deze vraag beter in een ander forum stellen?)

Alvast dank...
Peter

[Mr. Happy]

Robotask??

[Coach4All]

Om de 5 minuten controleren (scheduled scriptje) hoe groot het bestand is en indien > ??? mb mailtje sturen?

[elevator]

Als dit onder Windows is, kan je dit met een batch script en bijvoorbeeld Blat oplossen

[Verwijderd]

http://adocious.freeshell.org/filesize.html

Het scriptje uit de bovenstaande link kan je aanpassen zoals strFile, strSize en AlarmSize..

Tussen het IF THEN en END IF statement zet je dan het scriptdeel dat de e-mail moet sturen.
bv. onderstaande..

code:

Dim ToAddress (20)
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment

Dim ol, ns, newMail


ToAddress (1) = "[e-mail]"
ToAddress (2) = "[e-mail]"
ToAddress (3) = "[e-mail]"

MessageSubject = "NoReply-Test"
MessageBody = "This is an automated E-mail see attachment for Details."
'MessageAttachment = ""

' connect to Outlook
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")

For N=1 to 3

Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf

' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress (N))
myRecipient.Resolve
If Not myRecipient.Resolved Then
MsgBox "Unknown recipient"
Else
newMail.Recipients.Add(ToAddress (N))
'newMail.Attachments.Add(MessageAttachment).Displayname = "Check this out"
newMail.Send
End If

NEXT
SET OL = NOTHING

dim ToAddress(20) geeft je ruimte voor 20 recipients

of
http://searchexchange.tec...,sid43_gci1017045,00.html

Ps..Maar indien dit allemaal intern op hetzelfde netwerk blijft kan je volstaan met gebruik van windows Alerter service (Perfmon.msc-Action-New Alert setting) en hoef je niet persé te e-mailen.
Dan zal je denk ik die file wel zijn eigen kleine partitie moeten geven en kan perfmon die uitlezen en een alert over het net sturen bij het bereiken van een opgegeven grootte. Weet niet zeker of perfmon ook file of folder size aankan..(Dacht niet)