Hi All,
I am using a After validate event script once the validation is done it should send mail to the user. Event script is running fine without errors but its not generating email to user. in FDM I had mentioned the mail id for the user we have created .
'Declare local variables
Dim strFromAddress
Dim strToAddress
Dim strSubject
Dim strEmailMsgLine
Dim objMsg
Dim objConfig
Dim intSendUsing
Dim strSMTPServer
Dim intSendPort
Dim lngStateCheck
'Initialize message content variables
strFromAddress =" xxxxxxxx " 'DW.Security.fUserEmailGet(DW.Connection.PstrUserID)
strToAddress = "xxxxxxxx"
'Initalize Process State
lngStateCheck = 31 'Load OK
'With API.MaintenanceMgr.fProcessStatus(strLoc, strCat, strPer)
With API.MaintenanceMgr.fProcessStatus(API.POVMgr.PPOVLocation, API.POVMgr.PPOVCategory, API.POVMgr.PPOVPeriod)
If .lngStatus = lngStateCheck Then
'Load step successful
strSubject = "FDM: Actuals Load (" & strFile & ") successful!"
strEmailMsgLine = "Actuals data load successful"
Else
'Load step failed
strSubject = "FDM: Actuals Load (" & strFile & ") failed!"
strEmailMsgLine = "Actuals data load failed"
End If
End With
'Initialize Mail Server variables
'SMTP server name
strSMTPServer = "xxxxxxxx"
'CdoSendUsing enumeration-1=use smtp On local machine,2=use smtp over network
intSendUsing = 2
'SMTP port on server
intSMTPPort = 25
'Create CDO configuration object
Set objConfig = CreateObject("CDO.Configuration")
'Set Config object settings
With objConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = intSendUsing
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= intSMTPPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Update
End With
'Create CDO message object
Set objMsg = CreateObject("CDO.Message")
'Assign config object to configuration property of message object
Set objMsg.Configuration = objConfig
'Set Message object settings and send mail
With objMsg
.To = strToAddress
.From = strFromAddress
.Subject = strSubject
.TextBody = strEmailMsgLine
End With
'Destroy message objects
Set objMsg = Nothing
Set objConfig = Nothing
End Sub
Is there anything I am missing ?
Thanks is advance