Outlook,

Question

'u otomatikleştirirken en son e-postayı görüntülemiyor Bir e-postayı almak ve kontrol etmek için aşağıdaki kodu kullanıyorum, ancak e-posta 12/22'den başlayıp en son veya en eski olan postaları geri gönderirken en eski postayı almasını sağlayın.

Set oapp = CreateObject("Outlook.Application") 
Set oMAPI = oapp.GetNamespace("MAPI") 
Set oInbox = oMAPI.GetDefaultFolder(6) 
oInbox.Display 
Set oallmails = oInbox.Items 
Set oreqemail = oallmails.GetFirst 
For oTotalmail = 1 To oallmails.Count 
    ostringmatch = oreqemail.Subject 
    'Using regex function to match 
    'If MatchString(ostringmatch,"89554 Completed") Then 
    'End If 
'Exit For 
Set oreqemail = oallmails.GetNext 
Next 

Kod görünmüyor gibi herhangi bir görünüm ayarını kaçırmıyorum. Teşekkürler

Answer 1

Outlook'ta her zaman en yeni veya en eski e-postayı aldığınızdan emin olmak için, Items sınıfının Sort yöntemini kullanmanız gerekir. Öğelerin koleksiyonunu belirtilen özellik tarafından sıralar. Bu yöntemin tamamlanmasıyla koleksiyonun endeksi 1'e sıfırlanır. Örneğin, parantez içine alınabilecek sırasının, "[CompanyName]" gibi adı.

Not, Sıralama sadece koleksiyondaki öğelerin sırasını etkiler. Gezgini görünümünde öğelerin sırasını etkilemez.

Set oapp = CreateObject("Outlook.Application") 
Set oMAPI = oapp.GetNamespace("MAPI") 
Set oInbox = oMAPI.GetDefaultFolder(6) 
oInbox.Display 
Set oallmails = oInbox.Items 
oallmails.Sort "[RecievedTime]" 
Set oreqemail = oallmails.GetFirst 
For oTotalmail = 1 To oallmails.Count 
    ostringmatch = oreqemail.Subject 
    'Using regex function to match 
    'If MatchString(ostringmatch,"89554 Completed") Then 
    'End If 
    'Exit For 
    Set oreqemail = oallmails.GetNext 
Next 

fazla bilgi için Outlook VBA: How to sort emails by date and open the latest email found? bakınız.