添加LYNC消息的主题

Question

我发现重新发送LYNC消息的每个代码都没有消息的主题。 我需要的是授权我发送给特定用户的消息。 在一个典型的代码片段下面，您可以找到发送邮件时没有关于邮件主题的信息。

有人可以建议如何添加主题行吗？ 确保可以通过点击“更改对话主题”手动获取。在消息窗口中。 由于我需要使用excel文件并且对真正的编码无能为力，我需要VBA线。

感谢avraance。

Sub przeskok()
    Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced
    Dim ToUser As String
    Dim message As String

    Application.ScreenUpdating = False

    ToUser = "Konrad.P@XXX.com"
    message = "***w pliku KPI brak danych o ewentualnych spóznionych zamówieniach***"

    On Error Resume Next
    Set msgr = Messenger.InstantMessage(ToUser)
    'Send message to window
    msgr.SendText (message)
    'msgr.Close
    Application.ScreenUpdating = True
End Sub