OOoBase - MS Exchange als Datenquelle?
Verfasst: Mo, 18.07.2005 14:51
Hallo Freunde,
wir verwalte einige Adressen in Outlook über den Exchange Server und wollen zumindest die Office Suite langfristig von MS Office auf OOo umstellen.
Der Briefkopf soll auf Daten in Outlook zurückgreifen. Ich vermute OOo wird so eine Funktion nicht bieten?
Wie kann ich auf den Exchange zugreifen. Der Server scheint klar zu sein, da OOoBase eine Verbindung herstellt wenn ich als BasisDN "dc=" angebe. Aber was ist dc?
Kann mir hier jemand auf die Sprünge helfen?
VisualBasic Code
wir verwalte einige Adressen in Outlook über den Exchange Server und wollen zumindest die Office Suite langfristig von MS Office auf OOo umstellen.
Der Briefkopf soll auf Daten in Outlook zurückgreifen. Ich vermute OOo wird so eine Funktion nicht bieten?
Wie kann ich auf den Exchange zugreifen. Der Server scheint klar zu sein, da OOoBase eine Verbindung herstellt wenn ich als BasisDN "dc=" angebe. Aber was ist dc?
Kann mir hier jemand auf die Sprünge helfen?
VisualBasic Code
Code: Alles auswählen
Dim objOL As Outlook.Application
Dim objOlNameSpace As Outlook.NameSpace
Dim objOLKontaktOrdner As Outlook.MAPIFolder
Dim objOlkontakt As Outlook.ContactItem
Dim objAuswahladresse As Outlook.ContactItem
Dim objKontaktspeichern As Outlook.ContactItem
Dim strEintrag As String
Dim strFinder As String
Dim Adressenfeld()
Dim i As IntegerCode: Alles auswählen
Sub OLKontakteLaden()
'Lädt Outlook-Kontakte aus festgelegtem Kontakteordner in das
'Listenfeld der EingabeMaske
If objOL Is Nothing Then
Set objOL = New Outlook.Application
End If
Set objOlNameSpace = objOL.GetNamespace("MAPI")
'Falls der Adressordner nicht oder nicht richtig in der Registry
'hinterlegt ist wird die Maske Einstellungen geladen
On Error GoTo Errorhandler
Set objOLKontaktOrdner = objOlNameSpace.GetFolderFromID(strOrdnerID)
If objOLKontaktOrdner.Items.Count > 0 Then
'Das Array "Adressenfeld" wird mit den gespeicherten Kontakten gefüllt
ReDim Adressenfeld((objOLKontaktOrdner.Items.Count - 1), 1)
i = 0
EingabeMaske.lstListe.List() = Adressenfeld
For Each objOlkontakt In objOLKontaktOrdner.Items
Adressenfeld(i, 1) = objOlkontakt.FileAs
EingabeMaske.lstListe.List(i, 0) = Adressenfeld(i, 1)
i = i + 1
Next
Else
EingabeMaske.lstListe.Clear
End If
Exit Sub
Errorhandler:
MsgBox "Sie benutzen den Briefkopf erstmals oder Ihre Einstellungen sind fehlerhaft oder Ihr Outlook ist nicht geöffnet! Die Einstellungsmaske wird aufgerufen.", vbInformation
Einstellungen.Show
End Sub