Вопрос : Макрос внешнего вида для того чтобы запросить архив txt и послать электронная почта.

Hi, макрос

Outlook запросить архив txt и послать emails.
I хотят помощь с макросом когда бег проверяет архив txt который имеет данные как this

Filename1; Address
Filename2 электронная почта; Address
Filename3 электронная почта; Архив address

The электронная почта - имя должно быть проверено внутри скоросшивателю где все эти архивы txt имеющиеся и после этого посылать содержание по электронной почте архива txt в тело и адресом электронная почта в К адресу электронная почта box
Each был бы вопрос different

A как с меньшее data
I bod хочет содержание txt в таблицу. Так он смотрит neat.

Regards
Sharath
class=

Ответ : Макрос внешнего вида для того чтобы запросить архив txt и послать электронная почта.

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

                       «
            Петля
            «На следующей линии редактируйте сообщение как пожелано.»
            .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 = ничего
Закончите подводную лодку

           