skript na automatické odesílání obrázků
skript na automatické odesílání obrázků
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ů
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
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
-
-
automaticke nastaveni velikosti komentare v Excelu
od Mikik Block » 04 zář 2024 15:17 » v Kancelářské balíky - 0
- 3334
-
od Mikik Block
Zobrazit poslední příspěvek
04 zář 2024 15:17
-
-
-
Problémy v síti na obrázku - proč nemůžou počítače komunikovat mezi sebou Příloha(y)
od zuzana3 » 25 pro 2024 20:33 » v Administrace sítě - 7
- 5269
-
od zuzana3
Zobrazit poslední příspěvek
25 pro 2024 22:23
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů