This function seems to errorneously call AppendNotificationHistory for Explicit name (row 150).
An easy fix would be
Case "2" 'Explicit Name<br/>
Dim nn As New notesname (RoleDoc.a_Formula(0))<br/>
SendTo.appendToTextList nn.Canonical<br/>
Dim nnArr() As String<br/>
Redim nnArr(0)<br/>
nnArr(0) = nn.Canonical<br/>
Call AppendNotificationHistory (nnArr, NotifyDoc, RoleDoc) 'First param is ARRAY not a string