Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу VBA и VBScript
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
NeKR NeKR вне форума
Новичок
 
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 31.12.2005
По умолчанию VBA и VBScript - 03.02.2006, 17:25

Вобщем есть такой код на VBA, который должен брать список имен пользователей, зарегистрированных в MS Exchange Server и отправлять некое сообщение выбранному юзеру. Хорошо бы его переделать так, чтобы он работал под VBS. (Имеется ввиду тот VBS который используется при разработке пользовательских форм Outlook на основе стандартных (сообщение, контакт и т.п.)

Код:
Public a As String
Public oSession As MAPI.Session
Public oAList As MAPI.AddressList
Public oAEntry As MAPI.AddressEntry
Public aValue As Variant
Public i As Integer, j As Integer, v As Variant
Public Result1 As New Collection

Private Sub btnFillAddressList_Click()
    Set oSession = New MAPI.Session
    oSession.Logon
    Set oFolder = oSession.AddressLists("All Users")
    For Each oEntry In oFolder.AddressEntries
        For i = 1 To oEntry.Fields.Count
            v = oEntry.Fields(i).Value
            If IsArray(v) Then
                For j = LBound(v) To UBound(v)
                    If Mid(v(j), 1, 5) = "SMTP:" Then
                        cboAddressList.AddItem oEntry.Name
                        GoTo continue
                    End If
                Next j
            End If
        Next i
continue:
    Next oEntry
        
End Sub

Private Sub sendMailll_Click()
    Dim adrBook As Outlook.AddressList
    Dim adrEntry As Outlook.AddressEntry
    Dim newMessage As Outlook.MailItem
    Dim newRecipient As Outlook.Recipient
    Dim strAddress As String
    Dim myOutlookApp As Outlook.Application
    Dim MessageSubject As String
    Dim MessageBody As String
    MessageSubject = "Тема письма"
    MessageBody = "Текст письма"
    Set myOutlookApp = New Outlook.Application
    Set newMessage = myOutlookApp.CreateItem(olMailItem)
    Set oFolder = oSession.AddressLists("All Users")
        newMessage.Subject = MessageSubject
    newMessage.Body = MessageBody
    strAddress = a
    MsgBox a
    Set newRecipient = newMessage.Recipients.Add(cboAddressList.Value)
    newMessage.Send
End Sub
Наиболее интересующее меня место в коде это:

Public oAList As MAPI.AddressList
Public oAEntry As MAPI.AddressEntry

Пытаюсь писать:

Set oAList = createobject("MAPI.AddressList")
Set oAEntry = createobject("MAPI.AddressEntry")

Не выходит. Как быть?
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBScript, вызов функции из dll-ки Const3_14 Visual Basic 14 28.12.2007 14:37
Сведения о системе на VBScript СтарПёр DHTML, JavaScript, VBScript 0 14.11.2007 17:45
Вакансия: Разработчик VBscript, C++ leto Работа 0 19.06.2007 13:32
Вакансия: Разработчик VBscript, C++ leto Работа 0 09.06.2007 16:46
Как на VBScript-e создать папку muzzy.fkg DHTML, JavaScript, VBScript 0 01.05.2007 23:20
Пауза и цикл в VBScript aLLex_1 DHTML, JavaScript, VBScript 1 08.11.2006 14:22
VBScript. Непонятно блокируется PowerCat Visual Basic 3 21.09.2006 11:36
работа с массивами в vbscript timson9 Visual Basic 0 09.08.2006 23:27
Как подключится к серверу на VbScript Soul Железо. Написание драйверов 1 01.02.2006 17:40
Как перекодировать в UTF-8 с помощью Vbscript Gabit DHTML, JavaScript, VBScript 1 06.06.2005 14:52
Как удалять файлы на VBScript goodstas DHTML, JavaScript, VBScript 6 29.01.2004 05:43



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов