Вопрос : Как загружать и установить/регистр ActiveX

Здравствулте! специалисты!

This будет рискованное предприятие потому что я не думаю по возможности но мы имеем весьма трудное время с нашими управлениями ActiveX от поздно и многообещающий мы можем получить продукт некоторого advice.

Background
Our были продуктом основанным стержнем на ЛЕТЫ и мы всегда использовали управления ActiveX (кабины) построенные в Делфи 5. Управление все еще работой большой в сегодняшних браузерах. Однако, мы осуществляем технологией будет вызревание и мы медленно weening далеко от их. Для показа управлений ActiveX мы всегда как раз использовали бирку

Ответ : Как загружать и установить/регистр ActiveX

О'кейо, пытается это.

«
            Петля
            «На следующей линии редактируйте сообщение как пожелано.»
            .HTMLBody = «Hi,




1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:



Sub ImportFromFileAndSend ()
    Тусклое objFSO как предмет, _
        objFile1 как предмет, _
        objFile2 как предмет, _
        olkMsg как предмет, _
        strBuffer как шнур, _
        arrParts как вариант, _
        strTable как шнур
    Установите objFSO = CreateObject («Scripting.FileSystemObject»)
    «На следующей линии редактируйте архив - имя и курс.»
    Установите objFile1 = objFSO.OpenTextFile («C:\eeTesting\masterfile.txt ")
    Не сделать до objFile1.AtEndOfStream
        strBuffer = objFile1.ReadLine
        arrParts = разделили (strBuffer, «; ")
        Установите olkMsg = Application.CreateItem (olMailItem)
        С olkMsg
            «На следующей линии редактируйте курс архива.»
            Установите objFile2 = objFSO.OpenTextFile («C:\eeTesting\» & arrParts (0))
            «На следующей линии изменении вопрос как пожелано.»
            . Вопрос = «ваш вопрос идет здесь»
            . К = arrParts (1)
            .BodyFormat = olFormatHTML
            Не сделать до objFile2.AtEndOfStream
                «На следующей линии редактируйте HTML как пожелано.»
                strTable = strTable & «
«& objFile2.ReadLine &» 
«& strTable &»Имя средства программированияКомментарии


Отношения
Somename "
            . Индикация
        Конец с
        objFile2.Close
    Петля
    Установите olkMsg = ничего
    Установите objFile1 = ничего
    Установите objFile2 = ничего
    Установите objFSO = ничего
Закончите подводную лодку