Kód: Vybrat vše
'***********************************************
'* Skript odešle určený soubor na danou adresu *
'* Jméno souboru si vytváří z aktuálního data *
'* *
'* Vytvořeno pro PC-HELP *
'* *
'* Etienn@Script v1.0 *
'***********************************************
' Deklarace proměnných
Option Explicit
Dim cislotydne, Mesic, Jmeno, Cesta, file, fso
Dim CisloDne, objOutlk, objMail, strMsg, olMailItem
cislotydne = DatePart ("ww", Now())
Mesic = MonthName(Month(Now()))
Jmeno = cislotydne & ". týden - " & Mesic
Cesta = "C:\Users\Thor\Documents\REPORT\" & Jmeno & ".docx"
file = Cesta
'MsgBox file
CisloDne = Weekday(Now())
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(file) Then
If CisloDne <> 1 Or CisloDne <> 7 Then Odeslani
Else
MsgBox "Soubor " & file & " nenalezen", vbOKOnly + vbCritical, "Chybová zpráva"
WScript.Quit
End If
Sub Odeslani
'Nová zpráva
Set objOutlk = createobject("Outlook.Application")
Set objMail = objOutlk.createitem(olMailItem)
objMail.To = "muj.mail@neco.cz" 'zde doplnit adresu
objMail.cc = "" 'Zde adresa pro kopii; objMail.bcc pro skrytou adresu
'Předmět
objMail.subject = "REPORT " & cstr(day(now)) & ". " & cstr(month(now)) & ". " & cstr(year(now))
'Zpráva
strMsg = "První řádek zprávy" & vbcrlf
strMsg = strMsg & "Druhý řádek zprávy"
'Příloha
objMail.attachments.add(file)
objMail.body = strMsg
'objMail.display 'Zobraz před odesláním, jinak rovnou objMail.Send pro odeslání
objMail.Send
End sub
'Clean up
Set objMail = Nothing
Set objOutlk = Nothing
Kód zkopíruj do textového editoru (notepadu) - nepoužívat Word a podobně!! a ulož. Zedituj e-mailovou adresu, předmět zprávy (teď to píše REPORT a aktuální datum) a první a druhý řádek zprávy. Pokud žádný text nechceš, pak před řádky strMsg dej apostrof ('). Ulož.
Změň příponu .txt na .vbs. Poklepáním na soubor se provede odeslání. Pokud skript soubor nenalezne, vypíše zprávu.
Kontrolu tvorby jména souboru lze zapnout odstraněním apostrofu u řádku -'MsgBox file-. (Slouží pro odladění).
Spuštění souboru v potřebný čas zajistíš přes plánovač úloh. Skript si sám kontroluje, zda není sobota, nebo neděle, v tom případě report neodešle.
Doporučuji nejdřív vyzkoušet na svůj e-mail, spustit poklepáním a v případě, že bude vše v pořádku, změnit e-mailovou adresu na správnou a zařadit do úloh.
V případě závad se klidně ozvi.