[Visual Basic] Outlook contact personen

[Verwijderd]

Weet iemand hoe ik vanuit Visual Basic 6.0 de gegevens "Contactpersonen" uit Outlook 2000 kan laten tonen?

Of hoe ik outlook kan aanpassen zodat alle knoppen en dergelijke weg zijn en dat ik alleen nog maar contactpersonen over heb?

Bedankt,
Ed

[Wokker]

Op donderdag 13 december 2001 10:56 schreef ti_mon3aan het volgende:
Weet iemand hoe ik vanuit Visual Basic 6.0 de gegevens "Contactpersonen" uit Outlook 2000 kan laten tonen?

Wil je een virusje schrijven ???

Ik weet in iedergeval dat je in ms word bepaalde bestandjes kan aanmaken met je menu indeleingen er op . Mischien dat het in outlook ook mogelijk is !

[Verwijderd]

Nee, ik wil geen virus maken. Ik heb het nodig voor mijn database, maar ik wil het laten tonen onder Visual Basic.

En je kan inderdaad wel een gedeelte van je knoppen weghalen onder outlook

Maar ik wil of "die hele rotzooi om contactpersonen(knoppen en dergelijke van Outlook zelf) weg hebben" of "alleen maar het onderwerp contactpersonen kunnen laten tonen(dus het venster contactpersonen + 123 en A t/m Z)"

Iemand nog raad?

Groeten,
Ed

[Verwijderd]

Je kan het ongeveer hiermee doen:

code:

Sub ChangeMessageClass()
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
   
    Set myNewFolder = olNS.PickFolder

    Set ContactItems = myNewFolder.Items
On Error Resume Next
    For Each Itm In ContactItems
      Itm.CustomerID = Itm.NickName
      Itm.User1 = Itm.NickName
      Itm.Save
    Next
End Sub

Set myOlApp = New Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Set ContactItems = myFolder.Items

For Each Itm In ContactItems
   'Doe wat je ermee wilt doen....
Next

Zie ook de helpfile van Outlook zelf. Staat aardig wat info.

[Verwijderd]

Op donderdag 13 december 2001 11:34 schreef ml1 het volgende:
Je kan het ongeveer hiermee doen:

code:

Sub ChangeMessageClass()
    Set olApp = New Outlook.Application
    Set olNS = olApp.GetNamespace("MAPI")
   
    Set myNewFolder = olNS.PickFolder

    Set ContactItems = myNewFolder.Items
On Error Resume Next
    For Each Itm In ContactItems
      Itm.CustomerID = Itm.NickName
      Itm.User1 = Itm.NickName
      Itm.Save
    Next
End Sub

Set myOlApp = New Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)
Set ContactItems = myFolder.Items

For Each Itm In ContactItems
   'Doe wat je ermee wilt doen....
Next

Zie ook de helpfile van Outlook zelf. Staat aardig wat info.

Zou iemand mij nog verder kunnen helpen. Ik wil dus de gegevens "Contact personen" (Achternaam, voornaam) uit Outlook 2000 halen en deze plaatsen in een Listbox in een Visual Basic Formulier.

bij:
'Doe wat je ermee wilt doen....

Hier wil ik dus een additem functie zetten, maar ik kom er niet uit.

Bedankt voor de reacties !

[Verwijderd]

Op donderdag 20 december 2001 11:31 schreef ti_mon3aan het volgende:

[..]

Zou iemand mij nog verder kunnen helpen. Ik wil dus de gegevens "Contact personen" (Achternaam, voornaam) uit Outlook 2000 halen en deze plaatsen in een Listbox in een Visual Basic Formulier.

bij:
'Doe wat je ermee wilt doen....

Hier wil ik dus een additem functie zetten, maar ik kom er niet uit.

Bedankt voor de reacties !

code:

for each Itm in Items
   ... doe wat je er mee wilt
next

Als je Itm als Outlook.ContactItem hebt gedeclareerd dan heb je alle properties zoals je ze ook in Outlook ziet (denk aan voornaam, achternaam, emailadres etc). FF voorbeeldje van hiervoor proberen en kijken hoever je komt. Al deze info is zeer uitgebreid beschreven in de helpfiles!

[Verwijderd]

En anders heb je de object-inspector altijd nog.

Het is wel baggertraag trouwens

Weet ook iemand hoe je het WAB (windows adresboek) kunt uitvragen? Ik heb wat win32 services gezien, maar is hier geen COM-interface voor? * doekman is lui

[ParaNoiMia]

http://www.cdolive.com/code.htm

ook nog een optie wellicht ?

[Verwijderd]

Op donderdag 20 december 2001 12:58 schreef Doekman het volgende:
En anders heb je de object-inspector altijd nog.

Het is wel baggertraag trouwens

Weet ook iemand hoe je het WAB (windows adresboek) kunt uitvragen? Ik heb wat win32 services gezien, maar is hier geen COM-interface voor? * doekman is lui

Daar zoek ik nu ook alle geruime tijd naar. Nou is het me al wel gelukt om middels een MAPI-sessie (niet via de Outlook MAPI NameSpace) gegevens op te vragen. 'k Had niet zoveel resultaat en ben toen moer akkoord gegaan met baggertrage resultaten.

Dit alles heb ik in Delphi geprobeerd, met VB6 lukte het me al helemaal niet.

Ook zoektochten mochten niet baten maar 't zou me nix verbazen als er nu vele componenten zijn die dit klusje kunnen klaren.