I'm testing the actions and thresholds in CCPulse 7.2. I've been able to get all of them except one to work. I've been unable to get the action " SendE-MailWithCDO" to work. I tested with the given script and tried to make some modifications and have had no luck
. Hoping someone else has run into this issue and can help.
Any suggestions would be greatly appreciated. Here is the gievn script.
Body of e-mail message:
Dim msgBody
Dim thresholdInfo
msgBody="A mail from the CCPulse+ threshold
engine!"+vbNewLine
thresholdInfo="StatValue:"+CStr(Threshold.StatValue)+vbNewLi
ne+
"StatAlias:"+CStr(Threshold.StatAlias)+vbNewLine+
"CFGTenantDbid:"+CStr(Threshold.CFGTenantDbid)+vbNewLine+
"CFGDbid:"+CStr(Threshold.CFGDbid) + vbNewLine +
"CFGObjectID:"+CStr(Threshold.CFGObjectID)+vbNewLine+
"CFGType:"+CStr(Threshold.CFGType)+vbNewLine
Call this function using profile, recipient, message, and subject, as shown
below:
SendMail "","",msgBody+thresholdInfo,"Alarm notification
from CCPulse+"
Sub SendMail(profile, recipient,msg,subject)
Dim objSession, objAddrEntry, oInbox, colMessages,
oMessage, colRecipients, oRecipient
Set objSession = CreateObject("MAPI.Session")
objSession.Logon profile,"",True,False,0, False
Set objAddrEntry = objSession.CurrentUser
Set oInbox = objSession.Inbox
Set colMessages = oInbox.Messages
Set oMessage = colMessages.Add()
Set colRecipients = oMessage.Recipients
If recipient = "" Then
colRecipients.Add objAddrEntry
Else
colRecipients.Add recipient
End If
colRecipients.Resolve
oMessage.Subject = subject
oMessage.Text = msg
oMessage.Send
objSession.Logoff
Set objSession = nothing
End Sub
