Dim Poczta As Object 
    Dim Folder As Object  
    Dim Mail As Object                                    

    Set Poczta = CreateObject(“Outlook.Application”)
Set Folder = Poczta.GetNamespace(“MAPI”).GetDefaultFolder(olFolderInbox).Folders(“Excel_Test”)

For Each Mail In Folder.Items                                  

If Mail.ReceivedTime >= DateAdd(“ww”, -1, Now()) And _        InStr(Mail.Subject, “potwierdzenie przyjęcia”) > 0 Then 
w=2
 
While Cells(w, 1) >= DateAdd(“ww”, -1, Now())      

If Cells(w, 2) = Left(Mail.Subject, 9) Then  

Cells(w, 3) = “Potwierdzone”           
w = w + 100                                                      

End If
w = w+1
Wend
End If
Next
End Sub

‘ Definicja zmiennej Poczta
‘Definicja zmiennej Folder
‘Definicja zmiennej Mail

‘Przypisz do zmiennej Poczta obiekt Outlook

‘Przypisz do zmiennej Folder katalog Excel_Test z Inbox Outlooka

 ‘Dla każdego maila w katalogu

 ‘Sprawdź czy przyszedł w ostatnim tygodniu oraz
‘Czy w temacie zawiera tekst “potwierdzenie przyjęcia”

‘Ustaw zmienną w (numer sprawdzanego wiersza tabelki) na 2
‘Dla każdego wiersza w którym data w kolumnie 1 tabeli jest nie starsza niż tydzień
 ‘Jeżeli numer zamówienia w tabeli równa się numer zamówienia w mailu
‘Wpisz “Potwierdzone” w kolumnie 3 tabeli
‘i skocz o 100 wierszy w dół (żeby nie sprawdzać kolejnych wierszy)
‘W przeciwnym razie nic nie rób
‘zwiększ numer wiersza o 1
‘Koniec sprawdzania tabeli
‘Jeżeli mail nie pasuje do wzorca nic nie rób
‘Weź następny mail