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

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\'******发送人在邮箱中显示中文等价名******