Имя: Пароль:
IT
 
Помогите со скриптом VB
0 Kloze
 
18.06.12
15:10
Написал скрипт который отправляет смс через 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
1 Mafoni
 
18.06.12
15:11
(0) - а юзать встроенный почтовый клиент не вариант ?
2 Kloze
 
18.06.12
15:13
так так именно что почта отправляеться, отправить так смс не получиться
3 Mafoni
 
18.06.12
15:46
А чем смс отличается от эл. почты ? разве что адресом -
[email protected] - эл сообщение на такой адрес уйдет а на телефон прийдет смс !
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс