skript na automatické odesílání obrázků

...

Moderátor: Mods_senior

Call993
nováček
Příspěvky: 1
Registrován: září 12
Pohlaví: Žena
Stav:
Offline

skript na automatické odesílání obrázků

Příspěvekod Call993 » 25 zář 2012 17:46

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.

Reklama
Štučka
Level 2.5
Level 2.5
Příspěvky: 279
Registrován: srpen 12
Pohlaví: Žena
Stav:
Offline

Re: skript na automatické odesílání obrázků

Příspěvekod Štučka » 25 zář 2012 19:42

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


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek

Zpět na “Vše ostatní (inet)”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů