Någon som vet hur jag får ut t.ex. alla namn ur adressboken i outlook till t.ex. en listbox i vb.net?

/Peter

Har kommit en bra bit på väg med det här tror jag:

<code>
Dim oApp As Outlook.Application = New Outlook.Application()
Dim oNS As Outlook.NameSpace = oApp.GetNamespace("mapi")
Dim cnt As Integer
Dim drnew As DataRow
For cnt = 1 To oNS.AddressLists.Item(1).AddressEntries.Count
msgbox(oNS.AddressLists.Item(1).AddressEntries.Item(cnt).Name)
Next
</code>

Hur gör jag för att t.ex. bara få ut efternamnet, mobilnumret eller epostadressen?

/Peter

kolla in den här: http://www.ts.mah.se/utbild/da7140/Lectures/ForStud/F13/F13_Outlook.doc
Det är en bra bit på väg...

Det verkade kalas men funkade.. ej. :/

Det här är min kod som är likadant som i dokumentet:

<code>
Dim olApp As Outlook.Application = New Outlook.Application()
Dim olNameSpace As Outlook.NameSpace = olApp.GetNamespace("mapi")
Dim counter As Integer
Dim Folder As Outlook.MAPIFolder = _
OLNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts)
Dim OLContact As Outlook.ContactItem
Dim drnew As DataRow
For counter = 1 To Folder.Items.Count
Try
OLContact = Folder.Items.Item(counter)
If MsgBox("Vill du lägga till " & OLContact.FullName & "?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
drnew = AllAddresses1.Addressbook.NewRow
drnew.Item("FirstName") = OLContact.FirstName
drnew.Item("LastName") = OLContact.LastName
drnew.Item("MobilNumber") = OLContact.MobileTelephoneNumber
drnew.Item("Email") = OLContact.Email1Address & ";" & OLContact.Email2Address
Me.AllAddresses1.Addressbook.Rows.Add(drnew)
End If
FillList()
Catch b As Exception
MsgBox(b.Message)
End Try
Next
</code>

Felet blir på raden:
<code>
OLContact = Folder.Items.Item(counter)
</code>

Felmeddelandet är "specified cast is not valid".

ok... har inte själv testat koden utan det var från en kurs jag läst...
Testa att gå in på länken.. scrolla ner till F13 och ladda hem koden (outlook.zip) den kanske fungerar bättre
http://www.ts.mah.se/utbild/da7140/HT02/Schedule/LecDoc_DA7140.htm

*****EDIT********
försökte testa men kom på att nåt är mupp med mitt Outlook... Nån annan har kanse gjort detta och kan hjälpa till lite...
******************************

Var lite "muppigt" med mitt outlook också men nu funkar det bra. Tack så mycket för hjälpen!

Ps.
Schysst sida förresten.
Ds.