Outlook宏'；s：获取用户首字母

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

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

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

有什么想法吗

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

---

Outlook对象模型为命名空间和帐户类提供CurrentUser属性。Namespace类的属性返回当前登录用户作为收件人对象的显示名称

子显示CurrentUser（）
将myNamespace设置为Outlook.NameSpace
设置myNameSpace=Application.GetNameSpace（“MAPI”）
MsgBox myNameSpace.CurrentUser
末端接头

---

Account类的属性返回表示帐户当前用户标识的收件人对象。请参见收件人类的属性

我终于找到了办法

在访问多个网站后，我能够确定Outlook没有提供获取用户姓名首字母的方法，必须调用Word才能获取姓名首字母 As office在所有office应用程序中使用相同的首字母缩写

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

希望能有帮助

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