JAK: Vytvoření naplánované e-mailové zprávy pomocí WSH a objekty CDONTS


Důrazně doporučujeme, aby všichni uživatelé upgradovali na Internetovou informační službu (IIS) verze 7.0 běžící na systému Microsoft Windows Server 2008. Služba IIS 7.0 výrazně zvyšuje zabezpečení webové infrastruktury. Další informace o tématech souvisejících se zabezpečením služby IIS naleznete na následujícím webu společnosti Microsoft:Další informace o službě IIS 7.0 naleznete na následujícím webu společnosti Microsoft:

Souhrn


Microsoft Windows NT 4.0 s aktualizací Service Pack sady možnost Windows Windows NT (NT) a Microsoft Windows 2000 nainstalovat služba Simple Mail Transfer Protocol (SMTP), který lze použít pro různé účely. Jedním z běžných využití je Active Server Pages (ASP)-na základě zpracování formuláře HTML.

Tento podrobný článek popisuje vytvoření naplánované pošty li pomocí systému Windows Script Host (WSH) a e-mailové funkce služby SMTP objekty CDONTS. NewMail objektu. Příklad ukazuje, jak vytvořit textový soubor, který lze aktualizovat pro obsah e-mailové zprávy, odeslání e-mailové zprávy a naplánované úlohy naplánovat e-mailové zprávy zasílané skriptu prostředí WSH.



Ověřte, zda je spuštěna služba Plánovač

  • V počítači se systémem Windows NT 4.0 a Internet Information Server (IIS) 4.0:
    1. Klepněte na tlačítko Start, klepněte na tlačítko Nastavenía potom na příkaz Ovládací panely.
    2. V okně Ovládací panely poklepejte na položku služby.
    3. Přejděte dolů služba Plánovač úloh .
    4. Ověřte, že Stav označuje spuštěno. Pokud Stav není nastavena na zahájeno, klepnutím vyberte Plánovač úloh a potom klepněte na tlačítko Start.
    5. Ověřte, zda spouštěcí označuje Automatické. Pokud při spuštění není nastavena na Automatické, klepnutím vyberte Plánovač úloh a potom klepněte na tlačítko Po spuštění. Ve skupinovém rámečku Typ spouštěníklepněte na možnost automatickya potom klepněte na tlačítko OK.
    6. Klepněte na tlačítko Zavřít.
    7. Chcete-li ukončit, zavřete Ovládací panely.
  • V počítači se systémem Windows 2000 a Internetová informační služba (IIS) 5.0:
    1. Klepněte na tlačítko Start, klepněte na tlačítko Nastavenía potom na příkaz Ovládací panely.
    2. Poklepejte na panel Nástroje pro správua poklepejte na panel Správa počítače.
    3. V levém podokně okna Správa počítače rozbalte položku služby a aplikacea poté klepnutím vyberte služby.
    4. Procházejte seznam služeb ve sloupci název v pravém podokně okna Správa počítače.
    5. Přejděte dolů služba Plánovač úloh .
    6. Ověřte, že Stav označuje spuštěno. Pokud služba není spuštěna, klepněte pravým tlačítkem na službu Plánovač úloh a klepněte na Start.
    7. Ověřte, že Typ spouštění označuje Automatické. Pokud není nastaven Typ spouštění na možnost automaticky, klepněte pravým tlačítkem na službu Plánovač úloh a potom klepněte na příkaz Vlastnosti. Na kartě Obecné zaškrtnuto, objeví se okno Název_služby . Všimněte si, že klepnete na tlačítko Další karty v horní části okna zobrazíte další možnosti. Klepněte na šipku rozevíracího seznamu Typ spouštěnía potom vyberte položku automaticky.
    8. Klepněte na tlačítko OK
    9. Chcete-li ukončit, zavřete okno Správa počítače.

Vytvořit soubor pošty

  1. Spusťte program Poznámkový blok. Chcete-li to provést, klepněte na tlačítko Start, klepněte na příkaz Spustit, zadejte Poznámkový bloka potom klepněte na tlačítko OK.
  2. V programu Poznámkový blok vložte následující řádky:
    <p>This is line 1.</p>
    <p>This is line 2.</p>
  3. V programu Poznámkový blok klepněte v nabídce soubor klepněte na příkaz Uložit jako, do pole název souboru zadejte C:\Mailout.txt a klepněte na tlačítko OK.
  4. Chcete-li ukončit, ukončete program Poznámkový blok.

Vytvoření skriptu modulu Windows Script Host

  1. Spusťte program Poznámkový blok. Chcete-li to provést, klepněte na tlačítko Start, klepněte na příkaz Spustit, zadejte Poznámkový bloka potom klepněte na tlačítko OK.
  2. V programu Poznámkový blok vložte následující řádky:Poznámka: je třeba zadat platnou e-mailovou adresu. Chcete-li to provést, upravte odesílatel a příjemce změníte hodnotu proměnné strFrom a strTo v následujícím kódu:
    '--------------------------------------------------------------------
    '
    ' Mailout using CDONTS.NewMail
    '
    '--------------------------------------------------------------------

    ' Declare all variables.
    Option Explicit
    Dim objSendMail
    Dim strTo, strFrom
    Dim strSubject, strBody

    ' Mail constants (some are for reference).
    Const CdoBodyFormatHTML = 0 ' Body property is HTML
    Const CdoBodyFormatText = 1 ' Body property is plain text (default)
    Const CdoMailFormatMime = 0 ' NewMail object is in MIME format
    Const CdoMailFormatText = 1 ' NewMail object is plain text (default)
    Const CdoLow = 0 ' Low importance
    Const CdoNormal = 1 ' Normal importance (default)
    Const CdoHigh = 2 ' High importance

    strFrom = "someone@microsoft.com" ' Change to your e-mail address.
    strTo = "someone@microsoft.com" ' Change to the recipient address.
    strSubject = "Test Message" ' Change to your subject.

    ' This line calls the ReadFile() function to read the page contents.
    strBody = ReadFile("C:\MAILOUT.TXT")

    ' This line calls the MakePage() function to format the page as HTML.
    strBody = MakePage(strSubject,strBody)

    ' The following section creates the mail object and sends the mail.
    Set objSendMail = CreateObject("CDONTS.NewMail")
    objSendMail.From = strFrom
    objSendMail.To = strTo
    objSendMail.Subject = strSubject & " (" & Date() & ")"
    objSendMail.Body = strBody

    objSendMail.BodyFormat = CdoBodyFormatHTML
    objSendMail.MailFormat = CdoMailFormatMime
    objSendMail.Importance = CdoNormal

    objSendMail.Send
    Set objSendMail = Nothing

    ' This function returns a properly formatted HTML page.
    Function MakePage(txtSubject, txtBody)
    Dim txtTemp
    txtTemp = "<HTML>" & vbCrLf
    txtTemp = txtTemp & "<HEAD><TITLE>"
    txtTemp = txtTemp & txtSubject
    txtTemp = txtTemp & "</TITLE></HEAD>" & vbCrLf
    txtTemp = txtTemp & "<BODY>" & vbCrLf
    txtTemp = txtTemp & "<H2>" & txtSubject & "</H2>" & vbCrLf
    txtTemp = txtTemp & txtBody & vbCrLf
    txtTemp = txtTemp & "</BODY>" & vbCrLf
    txtTemp = txtTemp & "</HTML>"
    MakePage = txtTemp
    End Function

    ' This function opens a file and returns the contents of the file.
    Function ReadFile(txtFile)
    Dim txtTemp, objFS, objFL
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objFL = objFS.OpenTextFile(txtFile)
    Do While Not objFL.AtEndOfStream
    txtTemp = txtTemp & objFL.ReadLine
    txtTemp = txtTemp & vbCrLf
    Loop
    objFL.Close
    Set objFS = Nothing
    ReadFile = txtTemp
    End Function
  3. V programu Poznámkový blok klepněte v nabídce soubor klepněte na příkaz Uložit jako, do pole název souboru zadejte C:\mailout.vbs a klepněte na tlačítko OK.
  4. Chcete-li ukončit, ukončete program Poznámkový blok.

Vytvořte úkol k naplánování odchodu pošty k odeslání

  1. Klepněte na tlačítko Start, klepněte na příkaz Spustit, zadejte příkaz CMDa potom klepněte na tlačítko OK otevřete okno příkazového řádku.
  2. V okně příkazového řádku zadejte něco podobná následující příklady:
    • Jednou spuštěn následující úlohu na 9:00.
      AT 9:00pm Cscript.exe C:\Mailout.vbs
    • Tato úloha se spustí každé pondělí v 6:00.
      AT 6:00am /every:M Cscript.exe C:\Mailout.vbs
    • Tato úloha se spustí první každý měsíc na 1:00
      AT 1:00am /every:1 Cscript.exe C:\Mailout.vbs
      Poznámka: podle toho, které tyto příklady zvolíte, se bude e-mail odeslán v naplánovanou dobu.

  3. Zadejte EXIT zavřete příkazový řádek.

Odkazy


Další informace o skriptovací technologie společnosti Microsoft naleznete následujícím webu Microsoft Developer Network (MSDN):