Мы получаем статистику в теле электронной почты.Sub GetFromOutlook()
Dim OutlookApp As Outlook.Application
Dim OutlookNamespace As Outlook.Namespace
Dim Folder As Outlook.MAPIFolder
Dim OutlookMail As Variant
Dim i As Integer
Set OutlookApp = New Outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.Folders("XXX").Folders("XXX").Folders("XXX").Folders("XXX")
i = 1
For Each OutlookMail In Folder.Items
If OutlookMail.Subject >= Range("Subj2").Value Then
Range("DDump2").Value = OutlookMail.Body
i = i + 1
End If
Next OutlookMail
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End Sub
Подробнее здесь: https://stackoverflow.com/questions/742 ... using-html
