'******发送人在邮箱中显示中文等价名******
Dim item As NotesItem
Dim v As Variant
Dim s As String
Set item = maildoc.AppendItemValue( "$LangFrom", "zh-CN" ) '给$LangFrom赋值
s="@UserNamesList"
v=Evaluate(s)
maildoc.AltFrom=v(1) '给AltFrom赋值( CN=等价名/O=等价组织 )
'******发送人在邮箱中显示中文等价名******