Report Additional subscriber did not have email sent

Hello Team,

I have set additional subscriber to my report and generated report.

Mail was sent to me but not to my CC'd User. I observed RPS_RPSSubscriptionCC_Send_Report_to_CC job is not generated.

How can we fix this?

Parents
  • Did you check the generation condition of the process? The CC'd person needs to neither permanently nor temporarily deactivated and of course, needs to have a defaultEmailAddess set.

  • Hi Markus, Version is 8.1. User is active in system. Pre script is as follows : 

    Dim StorageFolder as String = Connection.GetConfigParm("QER\RPS\SubscriptionStorageShare")
    If StorageFolder <> "" and StorageFolder <> "\\<Server>\<Share>" Then
    If not StorageFolder.EndsWith("\") Then
    StorageFolder = StorageFolder & "\"
    End If
    StorageFolder = StorageFolder & $FK(UID_Person).CentralAccount$
    values("StorageFolder") = StorageFolder

    End If

    Dim fileExtens as String = "pdf"

    'if not given, the type is PDF
    If $FK(UID_RPSSubscription).ExportFormat$ <> "" Then
    fileExtens = $FK(UID_RPSSubscription).ExportFormat$.ToLowerInvariant()
    End If

    values("filenameReport") = $FK(UID_RPSSubscription).Ident_RPSSubscription$ & "_" & _
    $FK(UID_Person).CentralAccount$ & "_" & _
    DateTime.UTCNow.ToString("yyyy-MM-dd_HH-mm-ss") & _
    "." & fileExtens

    Dim culture as String
    Dim Pers as ISingleDbObject = Connection.CreateSingle("Person", $UID_Person$)
    values("culture") = Pers.Custom.CallMethod("GetCulture").ToString

    Generating condition :

    Value = Connection.GetConfigParm("QER\RPS\StoreSubscription")<> "1" _
    AndAlso $FK(UID_Person).DefaultEmailAddress$ <> "" _
    ANDAlso not $FK(UID_Person).IsInActive:Bool$ ANDAlso Not $FK(UID_Person).IsTemporaryDeactivated:Bool$

Reply
  • Hi Markus, Version is 8.1. User is active in system. Pre script is as follows : 

    Dim StorageFolder as String = Connection.GetConfigParm("QER\RPS\SubscriptionStorageShare")
    If StorageFolder <> "" and StorageFolder <> "\\<Server>\<Share>" Then
    If not StorageFolder.EndsWith("\") Then
    StorageFolder = StorageFolder & "\"
    End If
    StorageFolder = StorageFolder & $FK(UID_Person).CentralAccount$
    values("StorageFolder") = StorageFolder

    End If

    Dim fileExtens as String = "pdf"

    'if not given, the type is PDF
    If $FK(UID_RPSSubscription).ExportFormat$ <> "" Then
    fileExtens = $FK(UID_RPSSubscription).ExportFormat$.ToLowerInvariant()
    End If

    values("filenameReport") = $FK(UID_RPSSubscription).Ident_RPSSubscription$ & "_" & _
    $FK(UID_Person).CentralAccount$ & "_" & _
    DateTime.UTCNow.ToString("yyyy-MM-dd_HH-mm-ss") & _
    "." & fileExtens

    Dim culture as String
    Dim Pers as ISingleDbObject = Connection.CreateSingle("Person", $UID_Person$)
    values("culture") = Pers.Custom.CallMethod("GetCulture").ToString

    Generating condition :

    Value = Connection.GetConfigParm("QER\RPS\StoreSubscription")<> "1" _
    AndAlso $FK(UID_Person).DefaultEmailAddress$ <> "" _
    ANDAlso not $FK(UID_Person).IsInActive:Bool$ ANDAlso Not $FK(UID_Person).IsTemporaryDeactivated:Bool$

Children