VB Script in Outlook

Computer: Software & Programmierung Visual Basic
#1

Hi Leute!

Ich bin gerade dabei mir in Outlook ein Formular zu basteln was auch super funktioniert!

Mein Problem:

Ich möchte eine ComboBox mit den Namen meiner Kontakte füllen.
Funktioniert auch teilweise jedoch geht das nur mit meinen persönlichen Kontakten. Ich müsste die Kontakte von einem anderen Postfach (Exchange) auslesen.

Hier mein Code:

Sub Item_Open

’ Set the NameSpace object
Set objOLNS = Application.GetNameSpace(„MAPI“)

’ Set the Contacts folder, which is in the MAPI NameSpace
Set objContactFolder = objOLNS.GetDefaultFolder(10)

’ Set the collection of all Contact items
Set objAllContacts = objContactFolder.Items

’ Set the object referring to the form page the combo box is on
Set objFormTab = Item.GetInspector.ModifiedFormPages(„TabName“)

’ Set the object referring to the combo box
Set objCombo = objFormTab.Controls(„ComboBox1“)

’ Loop through all of the contacts
For Each Contact in objAllContacts
’ Add the current contact’s full name to the combo box
objCombo.AddItem Contact.FullName
Next
End Sub

Für eure Hilfe wär ich euch sehr dankbar!

Liebe Grüße

#2

Habs jetzt mal probiert jedoch wird die ComboBox nicht mit Kontakten ausgefüllt…

Sub Item_Open()

Set olns = Application.GetNameSpace(„MAPI“)

Set objOrdner1 = olns.Folders(„Öffentliche Ordner“)
Set objOrdner2 = objOrdner1.Folders(„Alle Öffentlichen Ordner“)
Set objOrdner3 = objOrdner2.Folders(„Agil Dienstleistungen“)
Set objAllContacts = objOrdner3.Items

’ Set the object referring to the form page the combo box is on
Set objFormTab = Item.GetInspector.ModifiedFormPages(„TabName“)

’ Set the object referring to the combo box
Set objCombo = objFormTab.Controls(„ComboBox1“)

’ Loop through all of the contacts
For Each Contact In objAllContacts
’ Add the current contact’s full name to the combo box
objCombo.AddItem Contact.FullName
Next
End Sub

Hat niemand ne Idee?
Gruß Franky

#3

Leute HILFE!!!

#4

Ich möchte eine ComboBox mit den Namen meiner Kontakte füllen.
Funktioniert auch teilweise jedoch geht das nur mit meinen
persönlichen Kontakten. Ich müsste die Kontakte von einem
anderen Postfach (Exchange) auslesen.

Moin Franky,

mein problem ist, ich habe zwar OL, benutze den aber nicht. Im OL habe ich nur ein Konto für mich eingerichtet.

Exchange kenne ich nur als begriff, k.A. was das genau ist, habe ich das bei WinXP oder MS Office irgendwo mit dabei?

Was jetzt exakt ein öffentlicher Ordner ist weiß ich auch nicht, gilt das für Netzwerke?

Gruß
Reinhard