Re: Datei mailen
Date: 08/02/04

Date: Mon, 2 Aug 2004 05:53:51 -0700

Hallo Holger,

hilft Dir das weiter?

Send messages automatically through VBScript

Use this VB Script to automatically send an email message
from a computer.

Copy and paste the following script (between the lines)
into Notepad, making sure to have Word Wrap disabled, then
save it with a .vbs extension.

'// Mail setup
Dim strSubject
Dim strBody
Dim objCDOMail

Set objCDOMail = CreateObject("CDONTS.NewMail")

objCDOMail.From = ""
objCDOMail.To = "" '// seperate addresses
with a comma

strSubject = "<SUBJECT>"
strBody = "<BODY>"

'// Set the properties of the object
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody

objCDOMail.Importance = "2" '(0=Low,1=Normal, 2=High)
objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt

'// Send the message!
Set objCDOMail = Nothing

NOTE: Make sure you have the latest scripting engines on
the workstation you run this script from. Download the
latest scripting engines here: Microsoft Scripting Home