das ganze geht auch ohne blat usw.

--------------------------------------------------------------------------------------
--------------------------------------------------------------------------------------
---------------------*.vbs datei----------------------





Set ws = CreateObject("WScript.Shell")

Dim FS, DS, File, Pfad, Anhang, ENachricht, NachRicht
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2

Const cdoAnonymous = 0
Const cdoBasic = 1
Const cdoNTLM = 2

' SEND MAIL
Pfad = "D:\emailalarm\test\"

if Pfad = "" then
AuS
else
'nix
end if

Set objMessage = CreateObject("CDO.Message")

objMessage.Subject = "AlarmFax - Am " & date & " um " & time
objMessage.From = """AlarmFax"" "
objMessage.To = " objMessage.TextBody = "AlarmFax - Am " & date & " um " & time & " Uhr"

'Dateien
Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FolderExists (Pfad)=True Then
'msgbox "Ordner ist da!",vbinformation,"Ordner da!"
Set DS = FS.GetFolder(Pfad)
for Each File in DS.Files
Anhang = File.Name
objMessage.AddAttachment Pfad & Anhang
next
Set DS = Nothing
Set FS = Nothing
else
msgbox "Ordner ist nicht da!",vbinformation,"Ordner nicht da!"
set FS = nothing
end if

'Konfiguration SMTP Server

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.gmx.de"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "BENUTZERNAME"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORT"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

objMessage.Send

Set objMessage = Nothing

AuS

Private Sub AuS
WScript.Quit
End Sub