Outlook and VB.net

I

Irene

Hi,

I am new to VB.net but I have been programing in VBA for a year or so.
I am trying to convert some vba code to vb.net bu I am running into some
propblems.
1) when I access a public folder on Exchange ( contact) I can only bring
back 272 names and then I get a error. If it is less then 272 names then I am
fine. How can I fix this error?
2) How can I access a user defined propertise in a custom form I designed
from vb.net. I have tried a couple of things, but it did not work.
3) is there any good books about office solutions and vb.net?
Down below is my code:
By pressing a button I want to fill a combobox with data from a outlook
folder ( public folder)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim objOutlook As Microsoft.Office.Interop.Outlook._Application
objOutlook = New Microsoft.Office.Interop.Outlook.Application()
Dim objNS As Microsoft.Office.Interop.Outlook._NameSpace = objOutlook.Session
Dim oAllPublicFolders As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim oPublicFolders As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim objContacts As Microsoft.Office.Interop.Outlook.MAPIFolder
Dim up As Microsoft.Office.Interop.Outlook.UserProperties


oPublicFolders = objNS.Folders("Public Folders")
oAllPublicFolders = oPublicFolders.Folders("All Public Folders")
objContacts = oAllPublicFolders.Folders("TT")


Dim objItems As Microsoft.Office.Interop.Outlook.Items = objContacts.Items
Dim iCount As Int16 = objItems.Count

MsgBox(iCount)

Dim i As Int16
For i = 1 To iCount
'box.Items.Add(objItems.Item(i).Fullname)
Console.WriteLine(objItems.Userpropertise.item("test"))
Next
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top