如何在VBA中包含.NET类？

Question

我是VBA新手，现在想创建发送JSON消息的Outlook代码。它不会编译。

Compile error: expected end of statement

或

Compile error: expected =

这是代码：

Imports System.Net 
Imports System.IO 
Imports System.Text 

Public Sub SendMessage(mail As MailItem) 
    Dim uri As New Uri("http://myip:9050/message") 

    Dim req As Net.HttpWebRequest = Net.WebRequest.Create(uri) 
    req.Method = "PUT" 
    req.Accept = "application/json;" 
    req.ContentType = "application/json; charset=UTF-8" 

    Dim jsonString As String = "{ ""message"" : """ + mail + """ }" 
    Dim jsonDataBytes = System.Text.Encoding.UTF8.GetBytes(jsonString) 
    req.ContentLength = jsonDataBytes.Length 

    Dim stream As IO.Stream = req.GetRequestStream() 
    stream.Write(jsonDataBytes, 0, jsonDataBytes.Length) 
    stream.Close() 

    req.GetResponse() 

End Sub 

或视觉：

我怎样才能得到这个工作过？

Answer 1

VBA和.Net是不同的世界。

在这种情况下，我建议开发一个Outlook加载项（例如，基于VSTO），您可以在其中使用所有BCL类。请参阅Walkthrough: Creating Your First Application-Level Add-in for Outlook快速入门。

另外你可能会发现在MSDN中的Outlook Solutions部分很有帮助。