Why and how do I fix it?
Imports Microsoft.SharePoint.WorkflowActions
Public Class LESBTAWorkflow
Inherits StateMachineWorkflowActivity
Public workflowProperties As New SPWorkflowActivationProperties
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
'####
'Various other activities that all work fine.
'######
Private Sub ManagerIssueTaskOnTaskChangedIfElseBranchSubmitted_CodeCondition(ByVal sender As System.Object, ByVal e As System.Workflow.Activities.ConditionalEventArgs)
Try
If CType(ManagerIssueOnTaskChanged_AfterProperties.ExtendedProperties("SendForApproval"), Boolean) = True Then
'managerIssueTCAssignedApprover = ManagerIssueOnTaskChanged_AfterProperties.ExtendedProperties("ApproverName").ToString()
'###### Starts the error here:
Dim cContact As Microsoft.SharePoint.WorkflowActions.Contact 'Throws friend error
Dim contacts() = cContact.ToContacts(ManagerIssueOnTaskChanged_AfterProperties.ExtendedProperties("ApproverName").ToString(), workflowProperties.Web)
For Each contact As cContact In contacts 'Throws friend error on cContact
'####### For Each is last line that gets the error
managerIssueTCAssignedApprover = contact.DisplayName
Next
e.Result = True
End If
Catch ex As Exception
Dim x As String = ex.Message
End Try
End Sub