tcl proc for sending out email or beeper alerts

[Donna McKibbon]

does anyone know how to configure the Alerts to send out email or beeper alerts? 🙄

Topic

[Jim Kosloskey]

Donna,

What O/S are you using?

email: jim.kosloskey@jim-kosloskey.com 29+ years Cloverleaf, 59 years IT - old fart.

[Donna McKibbon]

Windows Server 2003   😆

[Sergey Sevastyanov]

Donna

If you are on CL 5.7 there is a built-in email alert action there

In earlier versions you’ll have to use Tcl

[Troy Morton]

Code:

#
# My Simpel Tcl Mail Proc
#

package require tclMail

proc SendEmail { MyArgs } {

set mailfrom “mymail@mailserver.com”
set eamil “emailrecipient@mydomain.org”
set mailmsg “This is a test email mesage from Cloverleaf”
set mailsubj “Test email subject”
set mailserver or
set maildomain “mydomain.org”
set authuser “myemailauthuser@mydomain.org”

set mailarray(FROM) $mailfrom
set mailarray(TO) $email
set mailarray(MSG) $mailmsg
set mailarray(SUBJ) $mailsubj
set mailarray(SERVER) $mailserver
set mailarray(DOMAIN) $maildomain
set mailarray(USER) $authmailuser

tclMail::SendMail mailarray

}

[Author]

Replies