SLIK: Opprette planlagte e-postmeldinger ved hjelp av WSH- og CDONTS


Vi anbefaler på det sterkeste at alle brukere har oppgradert til Microsoft Internet Information Services (IIS) versjon 7.0 kjører på Microsoft Windows Server 2008. IIS 7.0 øker betraktelig Web-infrastruktur. Hvis du vil ha mer informasjon om IIS-sikkerhetsrelaterte emner, kan du gå til følgende Microsoft-webområde:Hvis du vil ha mer informasjon om IIS 7.0, kan du gå til følgende Microsoft-webområde:

Sammendrag


Som standard installerer Microsoft Windows NT 4.0 med Windows NT alternativet Pack (NTOP) og Microsoft Windows 2000 SMTP Simple Mail Transfer Protocol ()-tjenesten som kan brukes til en rekke formål. En av de vanligste bruksområdene er Active Server Pages (ASP) for e-postbaserte behandling for HTML-skjemaet.

Denne trinnvise artikkelen beskriver hvordan du oppretter planlagte mail utsjekking ved hjelp av Windows Script Host (WSH) og e postfunksjoner i SMTP-tjenesten CDONTS. NewMail objekt. Eksemplet viser hvordan du oppretter en tekstfil som du kan oppdatere for e-postmeldingen innholdet, en WSH-skript til å sende en e-postmelding, og en planlagt oppgave for å planlegge e-postmeldingen som skal sendes.



Kontroller at tjenesten Oppgaveplanlegging kjører

  • På en datamaskin kjører som Windows NT 4.0 og Internet Information Server (IIS) 4.0:
    1. Klikk Start, velg Innstillingerog deretter Kontrollpanel.
    2. Dobbeltklikk tjenesteri Kontrollpanel.
    3. Rull ned til tjenesten Task Scheduler .
    4. Kontroller at angir statusen startet. Hvis statusen ikke er satt til startet, klikker du for å velge Task Scheduler , og klikk deretter Start.
    5. Kontroller at Oppstart angir automatisk. Hvis Oppstart ikke er satt til automatisk, klikker du for å velge Task Scheduler og deretter Oppstart. Klikk for å velge automatiskunder Oppstartstypen, og klikk deretter OK.
    6. Klikk Lukk.
    7. Lukk kontrollpanelet for å avslutte.
  • På en datamaskin kjører som Windows 2000 og Internet Information Services (IIS) 5.0:
    1. Klikk Start, velg Innstillingerog deretter Kontrollpanel.
    2. Dobbeltklikk Administrative verktøy, og dobbeltklikk deretter Datamaskinbehandling.
    3. Utvid tjenester og programmeri den venstre ruten av vinduet Datamaskinbehandling, og klikk deretter for å velge tjenester.
    4. Bla gjennom listen over tjenester i navn -kolonnen i den høyre ruten av vinduet Datamaskinbehandling.
    5. Rull ned til tjenesten Task Scheduler .
    6. Kontroller at angir statusen startet. Hvis tjenesten ikke er startet, høyreklikker du tjenesten Task Scheduler , og klikk deretter Start.
    7. Kontroller at Oppstartstype angir automatisk. Hvis Oppstartstypen ikke er satt til automatisk, Høyreklikk tjenesten Task Scheduler , og klikk deretter Egenskaper. Vinduet tjenestenavn vises med Generelt -kategorien. Legg merke til at du kan klikke de andre kategoriene øverst i vinduet for å se andre alternativer. Klikk rullegardinpilen ved siden av Oppstartstype, og velg deretter automatisk.
    8. Klikk OK.
    9. Lukk Datamaskinbehandling-vinduet for å avslutte.

Opprette e-filen

  1. Åpne Notisblokk. Hvis du vil gjøre dette, klikk Start, klikk Kjør, Skriv Notisblokk, og deretter klikker du OK.
  2. Lim inn følgende linjer i Notisblokk:
    <p>This is line 1.</p>
    <p>This is line 2.</p>
  3. I Notisblokk, klikk fil -menyen, klikker du Lagre som, Skriv inn C:\Mailout.txt i filnavn -tekstboksen og klikk deretter OK.
  4. Lukk Notisblokk for å avslutte.

Opprette WSH-skript

  1. Åpne Notisblokk. Hvis du vil gjøre dette, klikk Start, klikk Kjør, Skriv Notisblokk, og deretter klikker du OK.
  2. Lim inn følgende linjer i Notisblokk:Merk: du må angi en gyldig e-postadresse. Hvis du vil gjøre dette, kan du tilpasse senderen og mottakeren ved å endre verdien for strFrom og strTo -variabler i følgende kode:
    '--------------------------------------------------------------------
    '
    ' 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. I Notisblokk, klikk fil -menyen, klikker du Lagre som, Skriv inn C:\mailout.vbs i filnavn -tekstboksen og klikk deretter OK.
  4. Lukk Notisblokk for å avslutte.

Opprette en oppgave for å planlegge ut e-post skal sendes

  1. Klikk Start, klikk Kjør, Skriv inn CMD, og deretter klikker du OK for å åpne en ledetekst.
  2. I Ledetekst-vinduet skriver du inn noe som ligner på følgende eksempler:
    • Følgende oppgave kjøres én gang klokken 9:00.
      AT 9:00pm Cscript.exe C:\Mailout.vbs
    • Oppgaven kjøres hver mandag klokken 6:00.
      AT 6:00am /every:M Cscript.exe C:\Mailout.vbs
    • Denne oppgaven kjøres først i hver måned på 01:00.
      AT 1:00am /every:1 Cscript.exe C:\Mailout.vbs
      Merk: avhengig av hvilken av disse eksemplene du velger, e-postmeldingen sendes på det planlagte tidspunktet.

  3. Skriv inn EXIT for å lukke ledeteksten.

Referanser


Hvis du vil ha mer informasjon om Microsoft scripting technologies, kan du gå til følgende webområde for Microsoft Developer Network (MSDN):