Hej Jens,
Jeg takker ... lige hvad jeg skulle bruge!
/ Jan
"Jens Vestergaard" <j@railsoft.dk> wrote in message
news:3fe05fc0$0$30086$edfadb0f@dtext01.news.tele.dk...
> "Jan Vinten" <AVOIDnews@SPAMvinten.THANKSnet> skrev i en meddelelse
> news:3fe056fb$0$69969$edfadb0f@dread12.news.tele.dk...
> > Hej gutter og gutinder,
> >
> > Jeg sidder og skal have fat i adressekartoteket i Outlook (_ikke_
> Express).
> > Det jeg har brug for, er altså navnet, telefon, fax, mobil osv osv ...
> > Er der nogen af jer, som har en stump kode, som kan give mig lidt
> > inspriration?
>
> KUN inspiration, meget skal naturligvis tilpasses:
>
> Private Sub cmdListNavne_Click()
> Dim ouApp As Outlook.Application
> Dim ouNS As NameSpace
> Dim fKontakter As MAPIFolder
> Dim cItem As ContactItem
>
> Set ouApp = New Outlook.Application
> Set ouNS = ouApp.GetNamespace("MAPI")
> Set fKontakter = ouNS.GetDefaultFolder(olFolderContacts)
>
> Text1 = ""
>
> For Each cItem In fKontakter.Items
> Text1 = Text1 & vbCrLf & cItem.FullName
> Next
>
> End Sub
>
> Husk flueben ved Microsoft Outlook Object Library i Project -->
> References...
>
> --
> mvh
> Jens Vestergaard (mailadr i dette indlæg er ikke gyldig!)
>
www.railsoft.dk
> Døgnets jernbanenyheder:
www.railsoft.dk/medier.asp
>
>