Список проголосовавших за комментарий "… охохоюшки… и как люди роботов в excel'е пишут, если связать их с outlook'ом не могут — не понимаю...<br/> … вот пример (находится за пару минут) с планеты эксель, почти все необходимое в нем есть:<br/> <br/> Private Sub Application_NewMail()<br/> Set myOlApp = Application<br/> Set myNameSpace = myOlApp.GetNamespace(«MAPI»)<br/> Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)<br/> Set myitem = myFolder.Items(myFolder.Items.Count)<br/> <br/> If myitem.SenderName = «Нужный отправитель» Then<br/> txt = myitem.Body<br/> a = Split(txt, vbNewLine)<br/> For i = 0 To UBound(a)<br/> <br/> If InStr(1, a(i), «При трассировке пользователем») > 0 Then Stop: us = «FIO» ' тут необходимо распарсить нужный текст<br/> If InStr(1, a(i), «сервер — клиент:») > 0 Then Stop: Ls = 123 ' тут необходимо распарсить нужный текст<br/> If InStr(1, a(i), «клиент — сервер: „) > 0 Then Stop: UpLs = 123 ' тут необходимо распарсить нужный текст<br/> If InStr(1, a(i), “тестовый объем: „) > 0 Then: dSize = 1234 ' тут необходимо распарсить нужный текст<br/> Next<br/> Set XL = CreateObject(“excel.application»)<br/> XL.Visible = False<br/> xlsFileName = «C:\test.xls» 'Путь к вашему файлу<br/> Set b = XL.workbooks.Open(xlsFileName)<br/> Set r = b.Application.Range(«DATA») 'имя вашей таблицы<br/> i = r.rows.Count<br/> r(i + 1, 1) = us<br/> r(i + 1, 2) = Ls<br/> r(i + 1, 3) = UpLs<br/> r(i + 1, 4) = dSize<br/> b.Close True<br/> XL.Quit<br/> End If<br/> End Sub"