Hell SQLcat.
here is a sample script, that sends a file "test.doc" from a directory
"dir1"
Why not try it - it's free and does the job.
you must change the
smarthost (should be your internal emailserver)
emailadresses (from, to)
directoryname
filename
You can't write scripts / no problem - many people can, i too
------------ save this as email.vbs ----------------------------
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Const cdoSendUsingPort = 2
StrSmartHost = "10.11.0.18"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
..Item("
http://schemas.microsoft.com/cdo/configuration/sendusing") =
cdoSendUsingPort
..Item("
http://schemas.microsoft.com/cdo/configuration/smtpserver") =
strSmartHost
..Item("
http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")
= 10
..Update
End With
' build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"
' apply the settings to the message
With iMsg
Set .Configuration = iConf
..To = "(e-mail address removed)"
..From = "(e-mail address removed)"
..Subject = "Here is your File test.doc from directory c:\dir1 (Sent via Port
25 on Server 10.11.0.18)"
..HTMLBody = strHTML
..AddAttachment "file://c:\dir1\test.doc"
..Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
-------------------------------------------------------------------------
--
Freundliche Grüße / with regards
Helmut Obertanner
Technical Consultant
Softwaredevelopment
DATALOG Software AG | Zschokkestr. 36 | D-80687 Munich
web:
www.datalog.de
.... and IT works!
