Public Type pMContactType
Blocked As Boolean
CanPage As Boolean
FriendlyName As String
IsSelf As Boolean
ServiceID As String
ServiceName As String
SigninName As String
Status As MessengerAPI.MISTATUS
End Type
Public Function FillContactStatusChangeData(InputData As Object) As pMContactType
'pMContact.:
'Blocked (bool)
'CanPage (bool)
'FriendlyName (String) - CURRENT MSN DISPLAY NAME
'IsSelf (bool)
'ServiceID (string)
'ServiceName (string)
'SigninName (string) - EMAIL
'Status (Part of the MISTATUS API)
FillContactStatusChangeData.Blocked = InputData.Blocked
FillContactStatusChangeData.CanPage = InputData.CanPage
FillContactStatusChangeData.FriendlyName = InputData.FriendlyName
FillContactStatusChangeData.IsSelf = InputData.IsSelf
FillContactStatusChangeData.ServiceID = InputData.ServiceID
FillContactStatusChangeData.ServiceName = InputData.ServiceName
FillContactStatusChangeData.SigninName = InputData.SigninName
FillContactStatusChangeData.Status = InputData.Status
End Function