Nie umiem sobie poradzić z tym errorem - jestem początkujący.
Przy debugowaniu zaznacza linijkę z if na żółto - tylko jeden wiersz z if działa - reszta zamieniona na komentarz - zielony
Sub GetFromOutlook()
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("awarie WRB")
i = 1
For Each OutlookMail In Folder.Items
'If OutlookMail.ReceivedTime >= Range(“email_Receipt_Date”).Value Then
'If OutlookMail.ReceivedTime >= Range("start_Date").Value And OutlookMail.ReceivedTime <= Range("end_Date") And OutlookMail.Sender = Range("Sender") Then
If OutlookMail.ReceivedTime >= Range("start_Date").Value And OutlookMail.ReceivedTime <= Range("end_Date") And OutlookMail.Subject = Range("Subject") Then
'If OutlookMail.ReceivedTime >= Range(“email_Receipt_Date”).Value And Date <= 28 – mar – 2018 Then
Range("email_Subject").Offset(i, 0).Value = OutlookMail.Subject
Range("email_Subject").Offset(i, 0).Columns.AutoFit
Range("email_Subject").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Date").Offset(i, 0).Value = OutlookMail.ReceivedTime
Range("email_Date").Offset(i, 0).Columns.AutoFit
Range("email_Date").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Sender").Offset(i, 0).Value = OutlookMail.SenderName
Range("email_Sender").Offset(i, 0).Columns.AutoFit
Range("email_Sender").Offset(i, 0).VerticalAlignment = xlTop
Range("email_Body").Offset(i, 0).Value = OutlookMail.Body
Range("email_Body").Offset(i, 0).Columns.AutoFit
Range("email_Body").Offset(i, 0).VerticalAlignment = xlTop
i = i + 1
End If
Next OutlookMail
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End Sub