Excel VBA-通過Lync / Communicator API發送組消息

Question

我正在嘗試使用VBA通過Excel從Lync / Microsoft Communicator向多個用戶發送組消息。

下面的代碼適用於單個電子郵件地址/用戶，但是如果提供了兩個電子郵件地址的單元格范圍，則會出現“對象IMessengerAdvanced'失敗的方法'CreateGroup'”錯誤。 任何建議將不勝感激。

Sub sendIM()
 Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced
 Dim msgTo As Variant
 msgTo = Sheets("Sheet1").Range("A1:A2").Value
 msgr = Messenger.InstantMessage(msgTo)
 msgr.SendText ("Test")
End Sub

根據下面的上一個主題，InstantMessage（Object）方法應該適用於> 1個用戶，但實際上它似乎並沒有...

使用VBA的線下人員的Lync通知

Answer 1

發送到群組時，界面需要一個電子郵件地址數組 。

代替：

Sub sendIM()
 Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced
 Dim msgTo As Variant
 msgTo = Sheets("Sheet1").Range("A1:A2").Value
 msgr = Messenger.InstantMessage(msgTo)
 msgr.SendText ("Test")
End Sub

測試一下：

Sub sendIM()
 Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced

 Dim msgTo() As Variant
 ReDim msgTo(0 To 0)                       'Allocate first element
 For Each cell In Sheets("Sheet1").Range("A1:A2")'put your range here
     msgTo(UBound(msgTo)) = cell.Value2          'Assign the array element
     ReDim Preserve msgTo(UBound(msgTo) + 1) 'Allocate next element
 Next
 ReDim Preserve msgTo(LBound(msgTo) To UBound(msgTo) - 1)  'Deallocate the last, unused element

 'sometimes you need to use Set, sometimes you dont, depending on environment you have, or maybe OPTION EXPLICIT
 Set msgr = Messenger.InstantMessage(msgTo)
 'msgr = Messenger.InstantMessage(msgTo)
 msgr.SendText ("Test")
End Sub