Вопрос : Как использовать внешний вид VBA для того чтобы выбрать сообщения в скоросшивателе внешнего вида и, котор побежали макросе VBA

Это будет прослеживание к разрешению: href= " http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html " ware/Office_Productivity/Office_Suites/MS_Office/Excel/Q_26357973.html

I e.com/Soft http://www.experts-exchang хотел было бы закрепить петлеть хотя все сообщения в определенных почтовой картотеке и беге тот макрос VBA в ранее разрешении против каждого сообщения почты в того пунктах folder.

250 для входного сигнала помогает me
500 для работы code. class=

Ответ : Как использовать внешний вид VBA для того чтобы выбрать сообщения в скоросшивателе внешнего вида и, котор побежали макросе VBA

Здравствулте! снова, cschene.

Это должно сделать его.  Замените названную подпрограмму Cschene с одним ниже.  Использовать это

1.  Раскройте скоросшиватель с деталями, котор вы хотите обрабатывать
2.  Выберите детали для того чтобы обрабатывать.  CTRL+A выберет их все
3.  Побегите макрос
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:

Sub CSchene ()
    Const ForAppending = 8
    Тусклое olkMsg как Outlook.MailItem, strIncidentNumber как шнур, strStatus как шнур, varLine как вариант, _
        arrLine вариант как, objFSO как предмет, objFile как предмет
    Установите objFSO = CreateObject («Scripting.FileSystemobject»)
    «На следующей линии изменении архив - имя и курс.»
    Установленное objFile = objFSO.OpenTextFile («C:\eeTesting\CShene.txt», ForAppending, поистине)
    Для каждого olkMsg в Application.ActiveExplorer.Selection
        Для каждого varLine в разделении (olkMsg.Body, vbCrLf)
            arrLine = разделило (varLine, «: ")
            Если UBound (arrLine) > 0 после этого
                Выберите arrLine случая (0)
                    Покрывайте «номер случая»
                        strIncidentNumber = arrLine (1)
                    Случай «состояние»
                        strStatus = arrLine (1)
                        Выходите для
                Закончите отборное
            Закончитесь если
        Затем
        objFile.WriteLine GetPrintable (strIncidentNumber) & «,» & GetPrintable (strStatus)
    Затем
    objFile.Close
    Установите objFSO = ничего
    Установите objFile = ничего
    Установите olkMsg = ничего
    «сделанное» msgbox
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us