Imports System
Imports Microsoft.Messenger

Public Class MAR Implements IMessengerAddIn

    Private WithEvents Mess As MessengerClient

        Public Sub Initialize(ByVal messenger As Microsoft.Messenger.MessengerClient) Implements Microsoft.Messenger.IMessengerAddIn.Initialize
            Mess = messenger //Set The Object

            messenger.AddInProperties.Creator = "Mario Achkar"
            messenger.AddInProperties.Description = "MAR UNofficial Messenger Addin"
            messenger.AddInProperties.FriendlyName = "Mario's Addin Beta 1.0"
        End Sub

        Private Sub Mess_IncomingTextMessage(ByVal sender As Object, ByVal e As Microsoft.Messenger.IncomingTextMessageEventArgs) Handles Mess.IncomingTextMessage

            If (Mess.LocalUser.Status = UserStatus.Away) then
	        Mess.SendTextMessage(String.Format("I'm Away {0} ({1}) - Please Leave A Message!", e.UserFrom.Email, e.UserFrom.FriendlyName), e.UserFrom)
	    End if
        End Sub