[ anon70939 @ 23.05.2014. 08:11 ] @
Imam neke xls izvestaje koji se izvrsavaju, snimaju na neko mesto, pa posle VBS skripta pokupi te fajlove i posalje na neke mail adrese. Ovako recimo izgleda Batch skripta Code: @echo off title Please Wait... start C:\IT\1_smena\Reports\MR.xls start C:\IT\1_smena\Reports\DS.xls start C:\IT\1_smena\Reports\HT.xls start C:\IT\1_smena\Reports\PO.xls start C:\IT\1_smena\Reports\MTD.xls PING 1.1.1.1 -n 1 -w 5000 >NUL t:\IT\1_smena\Daily_0720.vbs PING 1.1.1.1 -n 1 -w 5000 >NUL exit A VBS skripta ovako Code: Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) objMail.To = "[email protected]; [email protected]" objMail.cc = "[email protected]" objMail.Subject = "Dnevni Izvestaji" objMail.Body = "Pozdrav," & vbNewLine & "IT Kragujevac" objMail.Attachments.Add("t:\IT\1_smena\Reports\TMP\MR" & " " & Day(Now()) & "-" & MonthName(Month(Now()), 1) & ".xls") objMail.Attachments.Add("t:\IT\1_smena\Reports\TMP\DS" & " " & Day(Now()) & "-" & MonthName(Month(Now()), 1) & ".xls") objMail.Attachments.Add("t:\IT\1_smena\Reports\TMP\HT" & " " & Day(Now()) & "-" & MonthName(Month(Now()), 1) & ".xls") objMail.Attachments.Add("t:\IT\1_smena\Reports\TMP\PO" & " " & Day(Now()) & "-" & MonthName(Month(Now()), 1) & ".xls") objMail.Attachments.Add("t:\IT\1_smena\Reports\TMP\MTD" & " " & Day(Now()) & "-" & MonthName(Month(Now()), 1) & ".xls") objMail.Send Set objMail = Nothing Set objOutlook = Nothing Ranije sam u XLSu koristio makro koji bi odmah cim se izvrsi fajl, automatski posalje na mailove, ali kad se nagomilalo brdo izvestaja, ili jedan kolega da otkaz, onda moram da trazim fajlove koji su isli njemu, da ih otvaram jedan po jedan i ispravljam. Iz tog razloga bih hteo na gore pomenuti nacin da saljem. Ali bih zeleo da pojednostavim jos vise. Odnosno da ne upotrebljavam i batch i vbs nego jedno od ta dva. Za batch nisam uspeo da nadjem neki jednostavni nacin za slanje mailova, a to bi mi mozda najvise i odgovaralo. A za VBS nisam nasao neki nacin za pokretanje fajlova. Tj. sa batch skriptom kad napravim skriptu na gore pomenuti nacin, onda se izvrsava fajl po fajl. Prvo se startuje i izvrsi prvi, pa kad se zavrsi tek onda pokrece i sledeci i tako dalje... Za VBS nisam nasao na netu neki slican nacin, nego mi skripta pokrene sve fajlove odjednom pa mi racunar zabode... Dajte neki nacin da sa batch skriptom saljem mail ili sa VBS skriptom pokrecem fajlove jedan po jedan. Da napomenem da kod ove VBS skripte mi se svidja sto ne mora da mi bude ukljucen Outlook da bi se mail poslao. Sve odradi u pozadini u delicu sekunde |