|
Помогите со скриптом 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] - эл сообщение на такой адрес уйдет а на телефон прийдет смс ! |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |