[VB/Outlook] Automatisch een outlook folder aanmaken.

[Maurits27]

[Outlook Script] Automatisch een outlook folder aanmaken.

Graag zou ik middels visual basic automatisch een outlook folder willen
aanmaken en hier enkele eigenschappen van willen instellen.

De naam van de map zou moeten worden: email-archief.
Als standaard introductiepagina van deze map zou de website van
GFI Mailarchiver moeten worden ingesteld op: http://MAIL/MailArchiver

Nu heb ik reeds op google en tweakers gezocht maar kan geen goed
voorbeeld vinden hoe ik dit zou moeten maken.

Zelf ben ik een noob op gebied van visual basic, maar zou graag wel mij hier in verdiepen!

De volgende regels code heb ik momenteel gevonden:

code:

Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set myInboxFolder = myNameSpace.GetDefaultFolder(6)
Set myFolder = myInboxFolder.parent
Set myNewFolder = myFolder.Folders.Add("Email Archief")

[ Voor 4% gewijzigd door Maurits27 op 03-06-2009 08:33 ]

[Woy]

Wat is je vraag nu precies want ik zie geen vraagteken in je post staan .

Maar ik zou wel graag wat meer informatie van je zien, want we zijn hier geen helpdesk die jouw problemen op gaan lossen. Dus vertel eens wat er niet wil lukken, want als ik zo de code zie die je toont zou ik denken dat dat zou moeten doen wat je wilt.

Zou je je code overigens in een code block willen zetten? ( Hoe post je code? / Hoe gebruik je de code tag? )

[Maurits27]

Wanneer ik deze code uitvoer krijg ik de map onder mijn postvak.

Echter zou ik tevens graag bij het aanmaken van deze map ook de map eigenschappen* willen instellen.
*het webadres en instellen deze site instellen als default pagina.

Deze informatie kan ik nergens op internet terugvinden.

[ Voor 56% gewijzigd door Maurits27 op 03-06-2009 08:35 ]

[Woy]

Heb je al in de MSDN gezocht?

http://msdn.microsoft.com.../aa221842(office.11).aspx
en
http://msdn.microsoft.com.../aa221847(office.11).aspx

[Maurits27]

YES, Oplossing voor het probleem gevonden. Optie welke ik zocht was myNewFolder.WebViewURL.
Code werkt nu zonder problemen:

code:

Set objOutlook = CreateObject("Outlook.Application")
Set myNameSpace = objOutlook.GetNamespace("MAPI")
Set myInboxFolder = myNameSpace.GetDefaultFolder(6)
Set myFolder = myInboxFolder.parent
Set myNewFolder = myFolder.Folders.Add("Email Archief")
myNewFolder.WebViewURL = "http://MAIL/MailArchiver"
myNewFolder.WebViewOn = True

Nu alleen nog even een controle inbouwen dat wanneer de map reeds bestaat het script niet wordt uitgevoerd.

[Woy]

Voortaan dus iets beter zoeken. Ik had het antwoord in 2 minuten gevonden door MAPIFolder in google in te typen en even naar de MSDN pagina te surfen.

[Maurits27]

Woy, bedankt voor je hulp. Wanneer je op het juiste woord zoekt kun je inderdaad e.a.
snel vinden via google. Als je weet waarna je moet zoeken