Re: Datei mailen

rainhard.schroeder_at_gmx.com
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 = "you@you.net"
objCDOMail.To = "them@them.com" '// seperate addresses
with a comma

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

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

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

'// Send the message!
objCDOMail.Send
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
Page