如何解决如何获取 Outlook.NameSpace.CurrentUser 值？
Dim app As Microsoft.Office.Interop.outlook.application = GetApplicationObject()
Dim ns As Microsoft.Office.Interop.Outlook._NameSpace = nothing
Dim inBoxFolder As Microsoft.Office.Interop.Outlook.MAPIFolder = nothing
ns = app.GetNamespace("MAPI")
ns.CurrentUser = Username
我正在尝试获取用户名数据项的 .CurrentUser 值。
我收到此编译器错误：
我怎样才能得到它的价值？尝试使用 Get Return。
解决方法
将您的代码更改为
Username = ns.CurrentUser.Name
您似乎正在尝试在 Outlook 中设置当前用户，但这是不可能的。该属性与错误消息状态一样，是只读的。如果你想获得用户名，你需要在赋值运算符的右侧有操作数：
Namespace 类的 CurrentUser 属性将当前登录的用户作为 Recipient 对象返回，该对象代表 Outlook 中的用户或资源，通常是邮件或移动消息收件人。 Recipient.Name 属性返回一个字符串值，表示对象的显示名称。
Dim myNamespace As Outlook.NameSpace
Dim recipient as Outlook.Recipient
Dim userName as string
myNameSpace = Application.GetNameSpace("MAPI")
recipient = myNameSpace.CurrentUser
userName = recipient.Name
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
