berserkk,

у меня аналогичная ситуация в оутлуке, но сейчас вы обратились к стандартным вещам ( незнаю как правильно назвать) а как сделать если это поле мы добавили сами ... например в оутлуке - в задачах ( поля - добавить поля - например называю его SHIP и оно находится в "поля пользователя в папке") покажите код если можно

например контакты я выводил вот так

Private Sub FillContactsCombo()
Dim Contact As Outlook.ContactItem, tmpContact As String
tmpContact = responsiblebox
Call responsiblebox.Clear
For Each Contact In Application.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts).Items
With Contact
Call responsiblebox.AddItem(.FullName)
End With
Next Contact
On Error Resume Next
responsiblebox = tmpContact
On Error GoTo 0
End Sub

а как быть с тем полем которое я сам добавил ??