0

我正在做一个非常非常简单的项目，它在运行宏时在选定的消息上设置一个后续标志。

到目前为止，我已经创建了这个效果非常好，但我想通过替换“YA”首字母的手动输入并将默认配置文件用户首字母作为首字母来改进它。

我找到了 contactitem 对象，但我不知道如何从中获取首字母以将其作为 .FlagRequest

有什么想法吗？

这是目前我的代码：（GetCurrentItem 只返回选定的电子邮件）

Public Sub SetCustomFlagNormal()

Dim objMsg As Object
Set objMsg = GetCurrentItem()


With objMsg
    .MarkAsTask olMarkThisWeek
    .TaskDueDate = Now
    .FlagRequest = "YA"
    .ReminderSet = True
    .ReminderTime = Now + 2
    .Save
End With

Set objMsg = Nothing
End Sub
4

2 回答 2

0

我终于找到了办法。

访问多个网站后，我能够确定 Outlook 不提供获取用户姓名首字母的方法，并且必须调用 Word 来获取姓名首字母，因为 office 在所有办公应用程序中使用相同的姓名首字母。

我在这个网站上得到了回复。

http://blogs.technet.com/b/heyscriptingguy/archive/2008/03/18/how-can-i-retrieve-the-user-name-and-user-initials-from-microsoft-powerpoint.aspx

希望能帮助到你

于 2015-02-10T12:42:16.370 回答
0

Outlook 对象模型为 Namespace 和 Account 类提供 CurrentUser 属性。Namespace 类的属性将当前登录用户的显示名称作为 Recipient 对象返回。

Sub DisplayCurrentUser() Dim myNamespace As Outlook.NameSpace Set myNameSpace = Application.GetNameSpace("MAPI") MsgBox myNameSpace.CurrentUser End Sub

Account 类的属性返回一个 Recipient 对象，该对象表示该帐户的当前用户身份。请参阅 Recipient 类的Name属性。

于 2015-01-16T14:47:48.473 回答