Fehlermeldung (13) Typen unverträglich!

Computer: Software & Programmierung Visual Basic
#1

Hallo!

(Es ist Dienstag und die Sonne scheint in Stuttgart, geil!)

Ich habe ein kleines Problem wenn ich mit VB eine benutzerdefinierten Kontakt in Outlook öffnen möchte.
Ich deklariere ein MailItem und dann will ich die einzelnen benutzerdefinierten Elemente darin deklarieren. Da diese einen speziellen Namen haben, wie z.B. „Kundenname“ muss ich sie wie unten im SourceBeispiel mit folgender Funktion deklarieren:
Set e1 = prop.item(„Kundenname“)

e1 ist ein Outlook.Item Object und
prop ist ein Outlook.UserProperties Object!

Aber es taucht doch der Fehler „Laufzeitfehler (13) Typen unverträglich“ auf!!!

Was mache ich da falsch?

Ciao
Catmad

Private Sub Command1_Click()
Dim ol As New outlook.Application
Dim ns As outlook.NameSpace
Dim fd As outlook.MAPIFolder
Dim item As outlook.MailItem
Dim prop As outlook.UserProperties

Dim e1 As outlook.Item

Dim sClass As String

sClass = „IPM.NOTE.DACOSS“

Set ns = ol.GetNamespace(„MAPI“)
Set fd = ns.GetDefaultFolder(olFolderOutbox)

Set item = fd.Items.Add(sClass)

item.MessageClass = sClass

Set prop = item.UserProperties

Set e1 = prop.item(„Kundenname“)
REM * Fehlermeldung: Laufzeitfehler (13) Typen unverträglich

item.Display
REM das klappt

End Sub

#2

Private Sub Command1_Click()
Dim ol As New outlook.Application
Dim ns As outlook.NameSpace
Dim fd As outlook.MAPIFolder
Dim item As outlook.MailItem
Dim prop As outlook.UserProperties

*************************************
'Dim e1 As outlook.Item

Dim e1 As Outlook.UserProperty

…wird jetzt wahrscheinlich funktionieren.
Übrigens … ich gehe mal davon aus, dass Du Outlook über die Referenzen eingebunden hast, dann drück mal F2, da kommst Du in den „Object Browser“. Dort kann man prima nachgucken, welche Class es gibt, welche Class welche Properties und Function es hat und was diese zurückliefern. z.B.:

Class UserProperties
…Member of Outlook
…Function Item(Index) As UserProperty
…Member of Outlook.UserProperties

greets from michL (vienna)

*************************************

Dim sClass As String
sClass = „IPM.NOTE.DACOSS“
Set ns = ol.GetNamespace(„MAPI“)
Set fd = ns.GetDefaultFolder(olFolderOutbox)
Set item = fd.Items.Add(sClass)
item.MessageClass = sClass
Set prop = item.UserProperties
Set e1 = prop.item(„Kundenname“)
REM * Fehlermeldung: Laufzeitfehler (13) Typen unverträglich
item.Display
REM das klappt
End Sub