本文介绍如何在Lotus Notes中设置发送人的中文等价名在邮件中显示的方法。通过使用VBA代码为$LangFrom和AltFrom属性赋值来实现中文等价名的正确显示。
'******发送人在邮箱中显示中文等价名******
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=等价组织 )
'******发送人在邮箱中显示中文等价名******
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
