Benutzerdefinierte Felder

05/01/2008 - 02:54 von lup | Report spam
Hallo,

ich arbeite mit Access97, Outlook 2003, XP

Es geht um "Benutzerdefinierte Ordnerfelder" nach "Benutzerdefinierte
Ordnerfelder in diesem Element" übertragen.

Die Benutzerdefinierten Felder stehen nach dem Anlegen immer unter
"Benutzerdefinierte Ordnerfelder" statt unter "Benutzerdefinierte
Ordnerfelder in diesem Element". Dadurch kann ich diese Felder per
Programmcode nicht ansprechen in einem Kontakt.

Ich blick es nicht und brauche Hiilfe:

So habe ich ich es programmiert in AC97:

Dim MyApp As Object
Dim myNameSpace As NameSpace
Dim myContacts As Object
Dim Kontakt As ContactItem
Dim myProp As Object

Set MyApp = CreateObject("Outlook.Application")
Set myNameSpace = MyApp.GetNamespace("MAPI")
Set myContacts myNameSpace.GetDefaultFolder(olFolderContacts).Items

For Each Kontakt In myContacts
With Kontakt
Set myProp = .UserProperties.Add(strFeldName,
olText, True)

End With

Next

Wie muss ich den Code àndern um die Felder unter "Benutzerdefinierte
Ordnerfelder in diesem Element" bei jedem kontakt stehen zu haben?

Danke und Gruß
Werner
(under pressure)
 

Lesen sie die antworten

#1 lup
05/01/2008 - 21:34 | Warnen spam
Hallo,

mir hat geholfen:

Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54

es fehlte nur der Befehl:

.SAVE

Danke und Gruß
Werner


On Sat, 05 Jan 2008 01:54:45 GMT, lup @ edv3.de (Werner Faßbender)
wrote:

Hallo,

ich arbeite mit Access97, Outlook 2003, XP

Es geht um "Benutzerdefinierte Ordnerfelder" nach "Benutzerdefinierte
Ordnerfelder in diesem Element" übertragen.

Die Benutzerdefinierten Felder stehen nach dem Anlegen immer unter
"Benutzerdefinierte Ordnerfelder" statt unter "Benutzerdefinierte
Ordnerfelder in diesem Element". Dadurch kann ich diese Felder per
Programmcode nicht ansprechen in einem Kontakt.

Ich blick es nicht und brauche Hiilfe:

So habe ich ich es programmiert in AC97:

Dim MyApp As Object
Dim myNameSpace As NameSpace
Dim myContacts As Object
Dim Kontakt As ContactItem
Dim myProp As Object

Set MyApp = CreateObject("Outlook.Application")
Set myNameSpace = MyApp.GetNamespace("MAPI")
Set myContacts >myNameSpace.GetDefaultFolder(olFolderContacts).Items

For Each Kontakt In myContacts
With Kontakt
Set myProp = .UserProperties.Add(strFeldName,
olText, True)

End With

Next

Wie muss ich den Code àndern um die Felder unter "Benutzerdefinierte
Ordnerfelder in diesem Element" bei jedem kontakt stehen zu haben?

Danke und Gruß
Werner
(under pressure)


Ähnliche fragen