Копирование тела электронной почты с помощью HTML ⇐ Html

[Anonymous]

Мы получаем статистику в теле электронной почты.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