定义时未出现字符串

Question

Const vbDoubleQuote As String = """" 'represents 1 double quote (")
Const vbSingleQuote As String = "'" 'represents 1 single quote (')
Private WithEvents myOlItems  As Outlook.Items

Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
  Set olApp = Outlook.Application
  Set objNS = olApp.GetNamespace("MAPI")
  Set myOlItems = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myOlItems_ItemAdd(ByVal item As Object)

Dim Msg As Outlook.MailItem
Dim Title As String
Dim Body As String
Dim Message As String

  Set Msg = item

Title = Msg.Subject
Body = Msg.Body

TargetURL = "https://api.pushbullet.com/v2/pushes"


Set HttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
HttpReq.Option(4) = 13056
HttpReq.Open "POST", TargetURL, False
HttpReq.SetCredentials "user", "password", 0

HttpReq.setRequestHeader "Authorization", "Bearer myAPI"
HttpReq.setRequestHeader "Content-Type", "application/json"


Message = "{""channel_tag"": ""myChannel"", ""type"": ""note"",  ""title"": " & _
  vbDoubleQuote & Title & vbDoubleQuote & ", ""body"": " & _
  vbDoubleQuote & Body & vbDoubleQuote & "}"
  HttpReq.Send (Message)

大家好，如果这个问题对你们来说太简单了，我很抱歉，但我对此一无所知。

上面是我的代码，在消息中我把标题放在代码中间来阅读我定义的内容：

 (""title"": " & _
  vbDoubleQuote & Title & vbDoubleQuote & ") as "Title = Msg.Subject". 

但仍然在推送没有任何消息的空消息，只是一个空消息。

我是否错误地定义了字符串？

Answer 1

您需要在续行之间关闭并重新打开您的字符串：

您可能还需要为 vbDoubleQuote 声明一个常量

Const vbDoubleQuote As String = """"

Message = "{""channel_tag"": ""myChannel"", ""type"": ""note""," & _
    """title"": " & _
    vbDoubleQuote & Title & vbDoubleQuote & ", ""body"": " & _
    vbDoubleQuote & Body & vbDoubleQuote & "}"

给予

{"channel_tag": "myChannel", "type": "note","title": "MYTITLE", "body": "MYBODY"}