现在的位置: 首页 > 综合 > 正文

如何附带上中文等价名信息

2011年02月03日 ⁄ 综合 ⁄ 共 280字 ⁄ 字号小中大 ⁄ 评论关闭

`*邮箱中显示中文等价名**`

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