CCPulse 7.2 Actions (send email notification)

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

This will only work with Outlook 2000, new releases of Microsoft Outlook have a security option that disables to send emails with CDO.

Is there another action that’s similar? I’ve only found the basic ones (noise, color, launch browser, etc.). Any suggestions would be apprecaited.

thanks,
David

search on google CDO alternatives. there is a free component that you can use.

Hi. this is a code

'Body of email message
Dim msgBody
Dim thresholdInfo
msgBody=“A mail from the CCPulse threshold engine!”+vbNewLine
thresholdInfo=CStr(Threshold.StatAlias)+“:”+CStr(Threshold.StatValue)+vbNewLine+“CFGObjectID:”+CStr(Threshold.CFGObjectID)+vbNewLine+“StatAlias:”+CStr(Threshold.StatAlias)+vbNewLine+“CFGTenantDbid:”+CStr(Threshold.CFGTenantDbid)+vbNewLine+“CFGDbid:”+CStr(Threshold.CFGDbid) + vbNewLine + “CFGType:”+CStr(Threshold.CFGType)+vbNewLine

Set poSendMail = CreateObject(“vbSendMail.clsSendMail”)

poSendMail.SMTPHost = " name of server"
poSendMail.From = “Nane of account”
poSendMail.FromDisplayName = “Ccpulse+”
poSendMail.Recipient = “name”
poSendMail.RecipientDisplayName = “DAMIAN”
poSendMail.ReplyToAddress = “”
poSendMail.Subject = “Message Ccpulse+”
poSendMail.Attachment = “”
poSendMail.Message = msgBody+ thresholdInfo
poSendMail.Send
Set poSendMail = Nothing

Note. You need to install vbSendMail.dll