Outlook VBScriptをルールとして実行

Question

私は新しいユーザーですので、気楽に行ってください。

私はいくつかの電子メールメッセージのプロパティをSQLテーブルに書き込む以下のスクリプトを実行するOutlookルールを作成しました。

接続が正常に動作していますが、選択したメッセージでマクロとして実行すると正常に動作しますが、ルールとして実行するとそのまま現在選択されているメールが書き込まれます...私は間違っているつもりだところ、私は理解することはできません

...

コードは以下の通りです：あなたは、常に現在選択されているメールアイテムを使用している

Sub TEST_TO_SQL(Item As MailItem) 

Dim sSubject As String 
Dim sTo As String 
Dim sFrom As String 
Dim sMsgeID As String 
Dim sRcvd As Date 

Set Item = Application.ActiveExplorer.Selection.Item(1) 
sSubject = Item.Subject 
sTo = Item.ReceivedByName 
sFrom = Item.SenderEmailAddress 
sMsgID = Item.EntryID 
sRcvd = Item.ReceivedTime 

Const adOpenStatic = 3 
Const adLockOptimistic = 3 
Set objConnection = CreateObject("ADODB.Connection") 
Set objRecordSet = CreateObject("ADODB.Recordset") 

objConnection.Open _ 
    "Provider=SQLOLEDB;" & _ 
    "Data Source=SQLSERVER\SQLEXPRESS;" & _ 
    "Trusted_Connection=Yes;" & _ 
    "InitialCatalog=SQLDB;" & _ 
    "User ID=sa;Password=password;" 
objRecordSet.Open _ 
    "INSERT INTO [SQLDB].[dbo].[EMAIL_Log] (LogCompanyID, LogSubject, LogStartDate, LogEndDate, LogShortDesc, LogLongDesc, LogFrom, LogTo, LogMessageID, LogCategory1)" & _ 
    "VALUES ('11'," & "'" & sSubject & "'" & ", " & "'" & Format(sRcvd, "yyyy-mm-dd hh:mm:ss", vbUseSystemDayOfWeek, vbUseSystem) & "'" & ", '', 'short desc', 'Long Desc', " & "'" & sFrom & "'" & ", " & "'" & sTo & "'" & ", " & "'" & sMsgID & "'" & ", '47')", objConnection, adOpenStatic, adLockOptimistic 
End Sub 

Answer 1

。行を削除します。次に

Set Item = Application.ActiveExplorer.Selection.Item(1) 

ItemはSub

に渡されたものになります