Интерфейс между Outlook и Excel

[Евгений Таб]

Добрый день,

Моя задача заключается в том чтобы переносить данные из тела письма с определенной темой и получателем в эксель накопительным итогом.

Насколько я понимаю можно обойтись только VBA-макросом на стороне Outlook.

Например, тело письма содержит 4 столбца :



После факта получения нужно записать значения в эксель файл :




Поделитесь решением или идеей, если таковая есть.
Всем заранее спасибо!

[Aleksandr H.]

это читали https://www.mrexcel.com/forum/excel-...lications.html
? Не получается?

[Евгений Таб]

Сообщение от Aleksandr H.

это читали https://www.mrexcel.com/forum/excel-...lications.html
? Не получается?

Наверное слишком сложный код, все решается проще?

Александр, не мог бы адаптировать под мои 4 строки, я дальше докручу.

спасибо!

[Aleksandr H.]

Сообщение от Евгений Таб

Александр, не мог бы адаптировать под мои 4 строки, я дальше докручу.

идея отсюда

Sub dd()
Dim item As MailItem, x%
Dim r As Object  'As Word.Range
Dim doc As Object 'As Word.Document

Dim xlApp As Object, wkb As Object
Set xlApp = CreateObject("Excel.Application")
Set wkb = xlApp.Workbooks.Add
xlApp.Visible = True

Dim wks As Object
Set wks = wkb.Sheets(1)

For Each item In Application.ActiveExplorer.Selection
Set doc = item.GetInspector.WordEditor
    For x = 1 To doc.tables.Count
     Set r = doc.tables(x)
       wks.Range("A3") = Trim(r.Columns(2).Cells(1))
       wks.Range("B3") = r.Columns(2).Cells(2)
       wks.Range("C3") = r.Columns(2).Cells(3)
       wks.Range("D3") = r.Columns(2).Cells(4)
       wks.Range("E3") = r.Columns(2).Cells(5)
    Next
Next
End Sub

докрутить: 1)запись в существующий файл, вместо создания нового; 2) избавиться от крякозабла в конце ячейки

[Евгений Таб]

Сообщение от Aleksandr H.

докрутить:

Вставил макрос в аутлук, но не могу создать правило для его запуска при получении нового мэйла, в окошке запустить скрипт ПУСТО.

Причем, только с этим макросом.

Спасибо.