Question

我在Outlook 2010 VB编辑器中运行以下代码时出现错误的语法错误，似乎正在发生连接＆amp; myNamespace.CurrentUser＆amp; “

以下是代码：

Sub ConnectSqlServer()
  Dim myNamespace As Outlook.NameSpace
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim sConnString As String

  ' Create the connection string.
  sConnString = "Provider=SQLOLEDB;Data Source=WIN-NBST3PHVFV4\ECLIPSE;" & _
                "Initial Catalog=OBlive;" & _
                "User ID=outlook;Password=password123;"

  ' Create the Connection and Recordset objects.
 Set conn = New ADODB.Connection
 Set rs = New ADODB.Recordset
Set myNamespace = Application.GetNamespace("MAPI")

 ' Open the connection and execute.
 conn.Open sConnString
 Set rs = conn.Execute("INSERT INTO dbo.Submissions (CV, Consultant, Timestamp) VALUES ('1', " & myNamespace.CurrentUser & ", CURRENT_TIMESTAMP )")
 ' Clean up
 If CBool(conn.State And adStateOpen) Then conn.Close
 Set conn = Nothing
 Set rs = Nothing
End Sub

非常感谢任何帮助

Answer 1

您需要引用值：

...VALUES ('1', '" & myNamespace.CurrentUser & "', CURRENT_TIMESTAMP...

Answer 2

Namespace.CurrentUser返回Recipient对象。你的意思是myNamespace.CurrentUser。名称？

MS Outlook VB编程

2 个答案: