Andre175
Gebruiker
- Lid geworden
- 2 feb 2018
- Berichten
- 351
Nu is dit geen ramp, ik wil de code toch gaan gebruiken voor binnenkomende mails op administratie@mail.nl.
Dit mailadres wordt uitsluitend gebruikt voor zaken betreffende de administratie, zoals binnenkomende facturen.
administratie@mail.nl is niet mijn standaard mail adres in outlook.
Ik zal dus de code moeten aanpassen dat deze geld voor administratie@mail.nl.
ik vermoed dat dit in dit stukje code kan
het volgende geprobeerd, zonder resultaat.
zit ik wel in de goede richting te denken?
Dit mailadres wordt uitsluitend gebruikt voor zaken betreffende de administratie, zoals binnenkomende facturen.
administratie@mail.nl is niet mijn standaard mail adres in outlook.
Ik zal dus de code moeten aanpassen dat deze geld voor administratie@mail.nl.
ik vermoed dat dit in dit stukje code kan
Code:
Private Sub Application_Startup()
Dim olApp As Outlook.Application
Dim objNS As Outlook.NameSpace
Set olApp = Outlook.Application
Set objNS = olApp.GetNamespace("MAPI")
' default local Inbox
Set Items = objNS.GetDefaultFolder(olFolderInbox).Items
End Sub
het volgende geprobeerd, zonder resultaat.
Code:
Set Items = objNS.GetFolderFromID("administratie@mail.nl", olFolderInbox)
zit ik wel in de goede richting te denken?