PickFolder aufklappen

27/01/2009 - 10:58 von Thomas Wolf | Report spam
Hallo NG

Um meine Mailablage besser zu strukturieren, habe ich folgenden Code bei
ItemSend eingefügt.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

40 Set myOlApp = CreateObject("Outlook.Application")
50 Set olNS = myOlApp.GetNamespace("MAPI")
60 Set myFolder = olNS.GetDefaultFolder(olFolderSentMail)


'->->-> Kann ich hier den PickFolder auch so darstellen, dass alles
aufgeklappt ist und bleibt? <-<-<-
70 Set myFolder = olNS.PickFolder

...weiterer Code...

End Sub


Kann mir jemand weiterhelfen?

Danke und Gruss
Thomas
 

Lesen sie die antworten

#1 Peter Marchert
27/01/2009 - 11:06 | Warnen spam
On 27 Jan., 10:58, "Thomas Wolf" wrote:
Hallo NG



Guten Tag Thomas,

Um meine Mailablage besser zu strukturieren, habe ich folgenden Code bei
ItemSend eingefügt.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

40      Set myOlApp = CreateObject("Outlook.Application")
50      Set olNS = myOlApp.GetNamespace("MAPI")
60      Set myFolder = olNS.GetDefaultFolder(olFolderSentMail)

'->->-> Kann ich hier den PickFolder auch so darstellen, dass alles
aufgeklappt ist und bleibt? <-<-<-
70      Set myFolder = olNS.PickFolder



Auf die Ordnerauswahl hat man meines Wissens nach keinen Einfluss.

Freundlicher Gruß
Peter Marchert

Infos, Workshops & Software für
Outlook®: www.outlook-stuff.com

Ähnliche fragen