outlookvba

質問

outlookvbaについて教えてください

現在選択中（現在開いている）メールの受信日時や送信者などをｖｂａで取得したいのですが
間違っているようで、エラーになります。

Sub Sample()
Dim myNaSp As NameSpace
Dim myOlSel As Outlook.Selection
Dim myItem As MailItem

Set myNaSp = GetNamespace("MAPI")
Set myOlSel = Application.ActiveExplorr.Selection　’ここでエラー

Debug.Print myItem.ReceivedTime
Debug.Print myItem.SenderName
Debug.Print myItem.To
Debug.Print myItem.Subject

Set myNaSp = Nothing

End Sub

エラーの部分で、
実行時エラー '438':
オブジェクトは、このプロパティまたはメソッドをサポートしていません。
になります。

修正箇所などご教授いただければ助かります。
よろしくお願いします。

回答No.1

queuerev2 · ベストアンサー

WinXPSP3, Outlook2007でやってみました。

Set myOlSel = Application.ActiveExplorr.Selection　’ここでエラー

を

Set myOlSel = Application.ActiveExplorer.Selection '綴り修正
Set myItem = myOlSel(1) '追加

にしたらうまく動きました。
お試しください。

お礼

早速のご回答有難うございます。
ActiveExplorerのeが抜けていましたね。
気付きませんでした。

うまくできました。
ご回答ありがとうございました。