VB初心者質問スレPart2

>>322
じゃー。↓はどう？
Outlookの環境ないから検証はしてないっす。

Function Item_Read()
Set Application = CreateObject("Outlook.Application")
Set myCurrenItem= Application.ActiveInspector.CurrentItem
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myCurrenItem.Subject
End Function