Outlook VBScript 按规则运行答案

【问题标题】：Outlook VBScript run as ruleOutlook VBScript 按规则运行
【发布时间】：2016-12-27 06:48:20
【问题描述】：

我是新用户，请对我温柔一点。

我创建了一个运行以下脚本的 Outlook 规则，该脚本将一些电子邮件属性写入 SQL 表。

连接工作正常，当我在所选邮件上将其作为宏运行时，它工作正常...但是当我让它按规则运行时，它只会继续写入当前所选的电子邮件...

我不知道我哪里错了......

代码如下：

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

【问题讨论】：

标签： vbscript outlook-2010

【解决方案1】：

您总是在使用当前选择的邮件项目。删除该行：

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

那么Item将是传递给Sub的那个

【讨论】：