ルール内でスクリプトコードを実行するアイテムを特定しました

Question

受け取った電子メールの内容を自動的にテキストファイルにエクスポートします。そのテキストファイルに既にテキストがある場合、新しいテキストはそれを上書きする必要があります。

電子メールを受信したときにこのスクリプトを実行するルールを作成できます。

例：
「ハッピーバースデー」というメールが届きました。

テキスト「ハッピーバースデー」は「incomingEmail.txt」に保存されている必要があり

Sub extractDataAsString(item As Outlook.MailItem) 
    Dim olItem As Outlook.MailItem 
    Dim sText As String 

    Set olItem = ActiveExplorer.Selection.item(1) 
    sText = olItem.Body 

    Dim fso As Object 
    Set fso = CreateObject("Scripting.FileSystemObject") 

    Dim Fileout As Object 
    Set Fileout = fso.CreateTextFile("K:\Project\Python\incomingEmail.txt", True, True) 
    Fileout.Write sText 
    Fileout.Close 

End Sub 

上記のコードは、テキストファイルに現在選択された電子メールの本文をエクスポートします。新しい電子メールの本文をテキストファイルにエクスポートしたいと思います。

私はこれが原因行であると思う：

Set olItem = ActiveExplorer.Selection.item(1) 

しかし、私は、最新の電子メールを選択する方法を見つけることができません。

Answer 1

スクリプトコードを実行するアイテムがコードに渡されます。もう一度それを見つける必要はありません。

Sub RunAScript_code(item As Outlook.MailItem) 

    MsgBox "The item that triggered this code is: " & item.subject 

End Sub