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

最新推荐文章于 2025-06-05 00:15:00 发布

weixin_33972649

最新推荐文章于 2025-06-05 00:15:00 发布

阅读量73

点赞数

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

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