Помогите со скриптом VB

Написал скрипт который отправляет смс через outlook. Все было хорошо но захотелось еще упростить отправку смс. Щас это выглядит так, в 1с выбирается получатель смс и пишется текст. обработка сохраняет это все в файл, запускается outlook, при запуске выполняется скрипт. Можно ли как то сделать так чтобы этот скрипт сам запускал outlook (а лучше не запускал а выполнял все фоново)
Сам скрипт:

Dim olApp As Outlook.Application
Dim myMobileItem As Outlook.MobileItem
Set olApp = Outlook.Application
Set myMobileItem = olApp.CreateItem(olMobileItemSMS)
Set AddressEntries = olApp.GetNamespace("MAPI").AddressLists(1).AddressEntries
Dim Flagnomer
Dim nomer
Dim SMS
nomer = ""
Flagnomer = True
SMS = ""

Open "E:\sms.txt" For Input As #1
Do Until EOF(1)
Line Input #1, stroka
If Flagnomer = True Then
nomer = stroka
Flagnomer = False
Else
SMS = SMS + stroka
End If
Loop
Close #1

Dim oNamespace As NameSpace
Dim oFolder As MAPIFolder
Dim oContactItem As ContactItem
Set oNamespace = Outlook.Application.GetNamespace("MAPI")
Set oFolder = oNamespace.GetDefaultFolder(olFolderContacts)
Dim imy
Dim dog
Dim adress
dog = InStr(nomer, "@")
imy = Left(nomer, dog - 1)
adress = 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

If flagNewContact = True Then
Set myiteam = olApp.CreateItem(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.Display