Genesys CTI User Forum

Genesys CTI User Forum => Genesys CTI Technical Discussion => Topic started by: davidw on January 17, 2008, 07:10:45 PM

Title: CCPulse 7.2 Actions (send email notification)
Post by: davidw on January 17, 2008, 07:10:45 PM

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

Title: Re: CCPulse 7.2 Actions (send email notification)
Post by: cavagnaro on January 17, 2008, 07:22:54 PM

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

Title: Re: CCPulse 7.2 Actions (send email notification)
Post by: davidw on January 21, 2008, 05:21:08 PM

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

Title: Re: CCPulse 7.2 Actions (send email notification)
Post by: cavagnaro on January 21, 2008, 07:39:42 PM

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

Title: Re: CCPulse 7.2 Actions (send email notification)
Post by: dsanchez on January 22, 2008, 08:03:15 PM

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