[VBS]Outlookのユーザー名を取得する

コード

msgbox GetolAccountName
Private Function GetolAccountName()
  Set olapp = CreateObject("Outlook.Application")
  Set olAccounts = olapp.Session.Accounts
  fullname = olAccounts(1).CurrentUser.Name
  If instr(fullname, " ") > 0 Then
    lastname = Left(fullname, InStr(fullname, " ") - 1)
    GetolAccountName = lastname
  Else
    GetolAccountName = fullname
  End If
  Set olAccounts = Nothing
  Set olapp = Nothing
End Function

所感

意外と情報が見つからなくて出来ないのかと思ったらできた。
これが取得できないと本文で名乗れないので Account.CurrentUser から取得できてよかった。

役に立つかもしれない情報

Recipient オブジェクト (Outlook) | Microsoft Learn
Account.CurrentUser プロパティ (Outlook) | Microsoft Learn
アカウント オブジェクト (Outlook) | Microsoft Learn