Hi,
I have created AFTLOAD event script which triggers mail upload completion of load step.
Code is working as expected except that I am getting .dat file as an attachment which is blank. Initially I was getting 4 blank .dat files. I customized code to include only one .dat file.But this file is shown up as blank file whicl the original .dat file in FDM\outbox has records.
Am i missing anything in code.
'Initialize message content variables
strFromAddress = DW.Security.fUserEmailGet(DW.Connection.PstrUserID)
strToAddress = "XXX"
strSubject = "Hyperion FDM Processing Status"
'Initialize Process State
lngStateload = 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 = lngStateload Then
'Load step successful
strSubject = "FDM: Extract Load Successful!"
strEmailMsgLine = "Dataload Successful"
Else
'Load step failed
strSubject = "FDM: Extract Load Failed!"
strEmailMsgLine = "Dataload failed"
End If
End With
'Initialize Mail Server variables
'SMTP server name
strSMTPServer = "mail.ad.ge.com"
'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
.AddAttachment strPublishPath
.Send
End With
End Sub
Thanks for your help