K2.Destinations.Add(DestinationType.User, "K2MEGAKarenB")
You would then typically:
Loop through List of Users
'Assign current user as Destination
K2.Destinations.Add(DestinationType.User, CurrentUser)
End the Loop
Hope this helps,
Ockert
Loop through List of Users
'Assign current user as Destination
K2.Destinations.Add(DestinationType.User, CurrentUser)
End the Loop
" & _
" FROM K2Users "
OpenConnection(sqlConn)
Dim rReader As System.Data.SqlClient.SqlDataReader
rReader = sqlComm.ExecuteReader
While rReader.Read
K2.ProcessInstance.DataFields("DestUsers").Value = K2.ProcessInstance.DataFields("DestUsers").Value & "," & rReader("UserName").ToString
Console.WriteLine(">>> " & K2.ProcessInstance.DataFields("DestUsers").Value)
End While
rReader.Close()
Catch ex As System.Exception
Throw New System.Exception(ex.Message)
End Try
SqlConn.Close()
K2.Synchronous = True
End Sub
Sub Main(ByVal K2 As DestinationRuleContext)
Dim oDSH As New SourceCode.K2Utilities.DSHelper()
Dim oDEManager As System.DirectoryServices.DirectoryEntry
Dim sManager As String
Dim bAllTrue As Boolean = True
Dim oDest1 As New CDest1
Dim DestUsers() As String
Dim intX As Integer
oDest1.Main(K2)
If oDest1.IsSuccess Then
'== sendto
DestUsers = Split(K2.ProcessInstance.DataFields("DestUsers").Value, ",")
For intX = 1 To UBound(DestUsers)
Console.WriteLine(">>> " & intX & ": " & DestUsers(intX))
K2.Destinations.Add(DestinationType.User, DestUsers(intX).ToString())
Next intX
If Not bAllTrue Then Exit Sub
End If
End Sub
'// Destination Classes
Private Class CDest1
Public IsSuccess As Boolean = False
Sub Main(ByVal K2 As DestinationRuleContext)
Me.IsSuccess = True
End Sub
End Class
Enter your username or e-mail address. We'll send you an e-mail with instructions to reset your password.