Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject
Sub test() Dim OutlookApp As Outlook.Application Dim OutlookNamespace As Namespace Dim Folder As MAPIFolder Dim OutlookMail As Variant Dim i As Integer Set OutlookApp = New Outlook.Application Set OutlookNamespace = OutlookApp.GetNamespace("MAPI") Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("veeam") i = 1 For Each OutlookMail In Folder.Items If OutlookMail.ReceivedTime >= Range("B1").Value Then Range("eMail_subject").Offset(i, 0).Value = OutlookMail.Subject Range("eMail_date").Offset(i, 0).Value = OutlookMail.ReceivedTime Range("eMail_sender").Offset(i, 0).Value = OutlookMail.SenderName Range("eMail_text").Offset(i, 0).Value = OutlookMail.Body i = i + 1 End If Next OutlookMail Set Folder = Nothing Set OutlookNamespace = Nothing Set OutlookApp = Nothing End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)