Lync notification de gens hors ligne à l'aide de VBA

Je vais avoir du VBA, Ajouté à mon outlook, qui envoie un message sur Lync.
Le Script est donnée ci-dessous.

Sub sendIM(toUsers As Variant, message As String)

    Dim msgr As CommunicatorAPI.IMessengerConversationWndAdvanced

   'Open messenger window and send message!!!!!
    Set msgr = messenger.InstantMessage(toUsers)
    msgr.SendText (message)
    Set msgr = Nothing

Il fonctionne très bien. Si il y a 10 utilisateurs, dans le toUsers variable, puis il envoie le message à tous comme un "Groupe".

Est ce que je veux, si il y a un utilisateur qui est hors ligne, je voudrais obtenir une notification que la personne n'est pas en ligne. Le Messager affiche "Erreur", en disant "Ne peut pas inviter "n" personnes à se joindre à la réunion".

Puis-je obtenir un statut, qui me renvoie les détails de tous les utilisateurs, dont le message n'a pas été envoyé?

OriginalL'auteur hari | 2013-01-07

  1. 5

    Vous allez sur ce de la mauvaise façon... Plutôt que de créer votre liste de distribution, puis à la recherche pour les exceptions, voir qui est en ligne et d'envoyer le message aux gens.

    Les deux fonctions suivantes retournera un tableau de tous vos contacts Lync avec leur statut actuel. Utilisez le tableau à la cible qui est inclus dans votre message.

    Function LyncContactsStatus() As Variant
Dim appLync As CommunicatorAPI.Messenger
Dim LyncDirectory As CommunicatorAPI.IMessengerContacts
Dim LyncContact As CommunicatorAPI.IMessengerContact
Dim arrContacts() As Variant
Dim lngLoopCount As Long
Set appLync = CreateObject("Communicator.UIAutomation")
appLync.AutoSignin
Set LyncDirectory = appLync.MyContacts
ReDim arrContacts(LyncDirectory.Count - 1, 1)
For lngLoopCount = 0 To LyncDirectory.Count - 1
Set LyncContact = LyncDirectory.Item(lngLoopCount)
arrContacts(lngLoopCount, 0) = LyncContact.FriendlyName
arrContacts(lngLoopCount, 1) = LyncStatus(LyncContact.Status)
Next lngLoopCount
LyncContactsStatus = arrContacts
Set appLync = Nothing
End Function
Function LyncStatus(IntStatus As Integer) As String
Select Case IntStatus
Case 1      'MISTATUS_OFFLINE
LyncStatus = "Offline"
Case 2      'MISTATUS_ONLINE
LyncStatus = "Online"
Case 6      'MISTATUS_INVISIBLE
LyncStatus = "Invisible"
Case 10     'MISTATUS_BUSY
LyncStatus = "Busy"
Case 14     'MISTATUS_BE_RIGHT_BACK
LyncStatus = "Be Right Back"
Case 18     'MISTATUS_IDLE
LyncStatus = "Idle"
Case 34     'MISTATUS_AWAY
LyncStatus = "Away"
Case 50     'MISTATUS_ON_THE_PHONE
LyncStatus = "On the Phone"
Case 66     'MISTATUS_OUT_TO_LUNCH
LyncStatus = "Out to Lunch"
Case 82     'MISTATUS_IN_A_MEETING
LyncStatus = "In a meeting"
Case 98     'MISTATUS_OUT_OF_OFFICE
LyncStatus = "Out of office"
Case 114    'MISTATUS_OUT_OF_OFFICE
LyncStatus = "Do not disturb"
Case 130    'MISTATUS_IN_A_CONFERENCE
LyncStatus = "In a conference"
Case Else
LyncStatus = "Unknown"
End Select
End Function

    OriginalL'auteur FillsTubs