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

Question

我正試圖通過VBA將羣組消息發送給超過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級的用戶，但在實踐中似乎沒有......

Lync notification of offline people using VBA

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