Контакты в Outlook

[tofik]

Привет!
У меня проблема, я не могу достать из папки "контакты" оутлука, телефоны, адреса ...
Т.Е. данные о контактном лице.

могу достать только имя:

Код: Выделить всё

Set objOutlook = GetObject(, "Outlook.Application").GetNamespace("MAPI")
Set itm = objOutlook.GetDefaultFolder(10)
msgbox itm.Items.Item(1)

как отрыть все остальное?

[timsoft]

что-то типа этого:

Код: Выделить всё

  Set oApp = New Outlook.Application
  Set oNS = oApp.GetNamespace("mapi")
  oNS.Logon "Outlook", , False, True
  Set cContacts = oNS.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
  Set oItems = cContacts.Items
  For j = 1 To oItems.Count - 1
    Set oCt = oItems.Item(j)
    s = oCt.LastNameAndFirstName
    s = oCt.BusinessTelephoneNumber
    s = oCt.BusinessFaxNumber
    s = oCt.Email1Address
    s = oCt.CompanyName
   Next j
  oNS.Logoff


[tofik]

спасибки огромные! все получилось....
...хотя нет не все!
.LastName - фамилия
.FirstName - имя
а как мне достать отдельно отчество

[tofik]

все, нашел!
.MiddleName