返回代表当前登录的用户的 Recipient 对象。
expression.CurrentUser
expression 必选。该表达式返回 NameSpace 对象。
本 Visual Basic for Applications 示例使用 CurrentUser 属性获得当前登录用户的名称,并显示包含该名称的消息框。
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
MsgBox myNameSpace.CurrentUser.Name
如果使用 VBScript,则不必创建 Application 对象。本示例说明如何使用 VBScript 执行相同任务。
Set myNameSpace = Application.GetNameSpace("MAPI")
MsgBox myNameSpace.CurrentUser.Name