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

私はついに方法を見つけました。

複数の Web サイトにアクセスした後、Outlook ではユーザーのイニシャルを取得する方法が提供されておらず、Office はすべてのオフィス アプリケーションで同じイニシャルを使用しているため、イニシャルを取得するには Word を呼び出す必要があることがわかりました。

こちらのサイトで回答を頂きました。

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 に答える