I am trying to develop a subroutine that will send an IM to a user. The idea being if the user is online, the code sends an IM to the user via communicator. If the user is offline, it sends an email.
The code does work, in that it does open the communicator window, but it does not send the message text.
I am testing this off a button atm, but the code sample I found used Communicator 2007 -- there is no SendText() method in Communicator 2005. I have been unable to find a solution online, so I am hoping someone here will have a suggestion.
Private Sub Command0_Click()
Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced
Dim strTo As String
Dim strMsg As String
strTo = "email@test.com"
strMsg = "Test from VBA"
On Error Resume Next
Set msgr = Messenger.InstantMessage(strTo)
'msgr.SendText(strMsg) 'Only for Communicator 2007
msgr.Close
End Sub
