2 Replies Latest reply on Aug 1, 2013 8:56 PM by user10757003

    FDM dataload notification via mail

    847750

      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