发送邮件时，如何附带上中文等价名信息

1'******发送人在邮箱中显示中文等价名******

2     Dim item As NotesItem

3     Dim v As Variant

4     Dim s As String

5     Set item = maildoc.AppendItemValue( "$LangFrom", "zh-CN" )  '给$LangFrom赋值

6     s="@UserNamesList"

7     v=Evaluate(s)

8     maildoc.AltFrom=v(1)         '给AltFrom赋值( CN=等价名/O=等价组织 )

9'******发送人在邮箱中显示中文等价名******