skript na automatické odesílání obrázků
Napsal: 25 zář 2012 17:46
od Call993
Zdravím,potřeboval bych poradit,jak vytvořit skript pro automatické odeslání obrázků.Abych vám vysvětlil situaci,tak to řeknu takhle: Jeden týpek na aukru firewalker123 prodává klíče do her,hned jak se mu na aukro účtu připíší peníze,do 20sekund máte oskenovaný klíč na emailu.Tento skript bych potřeboval vytvořit,psal jsem mu,jestli by mi ho nemohl prodat a neustále píše že neví,že se musí dohodnout. Předem díky za odpovědi.
Re: skript na automatické odesílání obrázků
Napsal: 25 zář 2012 19:42
od Štučka
Scénář byl napsán v jazyce Visual Basic. Použijte ho jako vzor. Změnte i dejte ho do Plánovač úloh.
Dim objEmail, sDirectoryPath
Set oFSO = CreateObject("Scripting.FileSystemObject")
sDirectoryPath = "C: youdir"
set oFolder = oFSO.GetFolder(sDirectoryPath)
set oFileCollection = oFolder.Files
For each oFile in oFileCollection
Set objEmail = CreateObject("CDO.Message")
objEmail.Bodypart.Charset = "windows-1252"
objEmail.From = "uz@praha.cz"
objEmail.To = "rc@praha.cz"
objEmail.Subject = "Theme"
objEmail.Textbody = "Letter Content"
objEmail.AddAttachment oFile.Path
objEmail.Configuration.Fields.Item ("http://www.site.com/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://www.site.com/smtpserver") = "SMTP Server"
objEmail.Configuration.Fields.Item ("http://www.site.com/smtpserverport") = 25
objEmail.Configuration.Fields.Item ("http://www.site.com/sendusername") = "Send Username"
objEmail.Configuration.Fields.Item ("http://www.site.com/sendpassword") = "Send Password"
objEmail.Configuration.Fields.Update
objEmail.Send
Set objEmail = Nothing
Next
Uložte skript s .vbs