Guest User

Untitled

a guest
May 21st, 2018
275
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.40 KB | None | 0 0
  1. Dim Folder As MAPIFolder
  2. Dim OutlookMail As Outlook.MailItem
  3.  
  4. Set objOwner = OutlookNamespace.CreateRecipient("xyz@abc.com")
  5. objOwner.Resolve
  6.  
  7. If objOwner.Resolved Then
  8. Set Folder = OutlookNamespace.GetSharedDefaultFolder(objOwner, olFolderInbox)
  9. End If
  10.  
  11.  
  12. For Each OutlookMail In Folder.Items 'here is the doubt
  13.  
  14. ...
  15. ...
  16.  
  17. Next
Add Comment
Please, Sign In to add comment