Question

我是新用户，所以请温柔地对待我。

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

连接工作正常，当我在选定的邮件上将其作为宏运行时，它运行正常...但是当我将其作为规则运行时，它只是继续编写当前选择的电子邮件... < / p>

我无法弄清楚我哪里出错...

代码如下：

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

Outlook VBScript作为规则运行

1 个答案: