Отправка СМС через outlook 2010 - Visual Basic .NET

 Dim coll As Collection, ПутьКПапке As String
        ' получаем путь к папке РАБОЧИЙ СТОЛ
        ПутьКПапке = "F:\Agent\"
        ' считываем в колекцию coll нужные имена файлов
        coll = FilenamesCollection(ПутьКПапке, ".txt", 3)

        ' выводим результаты на лист
        For i = 1 To coll.Count ' перебираем все элементы коллекции, содержащей пути к файлам

            Dim olApp As New Outlook.Application
            Dim myMobileItem As Outlook.MobileItem
            'Dim myMobileItem
            myMobileItem = olApp.CreateItem(Outlook.OlItemType.olMobileItemSMS)
            Dim AddressEntries
            AddressEntries = olApp.GetNamespace("MAPI").AddressLists(1).AddressEntries
            Dim Flagnomer
            Dim nomer
            Dim SMS
            nomer = ""
            Flagnomer = True
            SMS = ""
 
            Dim buff As String
            FileOpen(1, coll(i), OpenMode.Input)
            Do While Not EOF(1)
                Input(1, buff)
                'Console.WriteLine(buff)
                If Flagnomer = True Then
                    nomer = buff
                    Flagnomer = False
                Else
                    SMS = SMS + buff
                End If
            Loop
 
            FileClose(1)
 
            Dim oNamespace As Outlook.NameSpace
            Dim oFolder As Outlook.MAPIFolder
            Dim oContactItem As Outlook.ContactItem
            oNamespace = olApp.GetNamespace("MAPI")
            oFolder = oNamespace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
            Dim imy
            Dim dog As Integer
            Dim Predog As Integer
            Dim adress
            dog = InStr(1, nomer, "@")
            Predog = dog - 1
            imy = Microsoft.VisualBasic.Left(nomer, Predog)
            adress = Microsoft.VisualBasic.Right(nomer, 11)
            Dim flagNewContact
            flagNewContact = True
 
            For Each oContactItem In oFolder.Items
                If (oContactItem.FirstName = imy) And (oContactItem.MobileTelephoneNumber = adress) Then
                    flagNewContact = False
                    myMobileItem.To = nomer
                End If
            Next
 
            Dim myiteam
            If flagNewContact = True Then
                myiteam = olApp.CreateItem(Outlook.OlItemType.olContactItem)
                myiteam.Display()
                myiteam.FullName = imy
                myiteam.BusinessFaxNumber = adress
                myiteam.BusinessTelephoneNumber = adress
                myiteam.FileAs = imy
                myiteam.FirstName = imy
                myiteam.HomeTelephoneNumber = adress
                myiteam.MobileTelephoneNumber = adress
                myiteam.Save()
                myMobileItem.To = nomer
            End If

            myMobileItem.To = imy + "(" + adress + ")"
            myMobileItem.Body = SMS
            myMobileItem.send(True)
 
        Next