[VBS]Outlookのユーザー名を取得する
コードmsgbox GetolAccountNamePrivate Function GetolAccountName() Set olapp = CreateObject("Outlook.Application") Set olAccounts = olapp.Session.Accounts fullname = olAccounts(1).CurrentUser.Name If instr(fullname, " ") > 0 Then lastname