We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim objOL As Application Dim objNS As Outlook.NameSpace Dim myItems As Items Dim x As Int16 objOL = New Application() objNS = objOL.GetNamespace("MAPI") Dim olfolder As MAPIFolder olfolder = objOL.GetNamespace("MAPI").GetDefaultFolder(OlDefaultFolders.olFolderInbox) myItems = olfolder.Items For x = myItems.Count To 1 Step -1 If myItems.Item(x).To.ToString.Contains("Username") Then MsgBox(myItems.Item(x).SenderName) MsgBox(myItems.Item(x).Subject) End If Next x
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Back-end Database connect string being set someplace where I can't find it.||10||66|
|Do Wend Macro not working||22||70|
|Can't find the Caption Manager||2||60|
|Error 2147220960, SendUsing configuration invalid. error received while trying to send email||14||47|
Join the community of 500,000 technology professionals and ask your questions.