Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Outlook Unterordner per VBA - MAPI definieren

Frage Entwicklung VB for Applications

Mitglied: Shadow88

Shadow88 (Level 1) - Jetzt verbinden

09.09.2013 um 11:22 Uhr, 6417 Aufrufe, 4 Kommentare, 1 Danke

Hallo zusammen,

stecke gerade ein einem Problem fest, dass ich selbst leider nicht lösen kann. Daher würde ich Euch mit Eurer Erfahrung bitten hier mal drüber zu schauen.

Und zwar möchte ich einen Unterordner in Outlook per VBA definieren um mit diesem dann später im Script weiter arbeiten zu können (e-mails werden aus dem Ordner auf das Laufwerk gespeichert usw.)

Zuerst habe ich als erstes die variablen definiert,

01.
Dim myOlApp             As Outlook.Application 
02.
Dim ChosenFolder       As Outlook.MAPIFolder
danach Outlook initialisiert

01.
Set myOlApp = Outlook.Application
und möchte dann den Outlook-Ordner setten:

01.
Set ChosenFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(FCHOO1)

Hier kommt die Besonderheit in das Spiel, dass ich den Ordnernamen über eine Variable (FCHOO1) steuern möchte. Das klappt bei Ordnern die direkt unter der Inbox angesiedelt sind auch einwandfrei z.B. Inbox\Test1. Mein Problem liegt darin, dass ein Unterordner eines Ordners in der Inbox nicht angenommen wird. D.h., dass z.B. Inbox\Test1\Unterordner1 klappt nicht. Hier setzt sich die Varibale "ChosenFolder" auf "Nothing".

Habt ihr hierzu eine Idee woran es liegen könnte?

Vielen Dank im Voraus!

Mit besten Grüße,
Shadow88
Mitglied: 106543
09.09.2013 um 14:45 Uhr
Hi Shadow88,

wie/wo befüllst du die Variable FCH001 ?

Grüße
Exze
Bitte warten ..
Mitglied: Shadow88
09.09.2013, aktualisiert um 15:05 Uhr
Zitat von 106543:
Hi Shadow88,

wie/wo befüllst du die Variable FCH001 ?

Grüße
Exze


Hallo Exze,

FCHOO1 ist deklariert als String und wird an einer anderen Stelle mit dem gewünschten Ordnernamen von Outlook gefüllt:

01.
FCHOO1 = "Test1"
Wie gesagt, normale Ordner unter Inbox funktionieren einwandfrei, aber wenn ich versuche von Test1 den Unterordner XYZ zu definieren, dann geht das nicht.

Danke & Gruß,
Shadow88
Bitte warten ..
Mitglied: colinardo
09.09.2013, aktualisiert um 21:29 Uhr
Hallo Shadow88,
ich hoffe machst nicht so was hier:
FCHOO1 = "Test1\xyz"
weitere Unterordner des Ordners müssen so angegeben werden:
01.
Set ChosenFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(FCHOO1).Folders(xyz)
und wieder weitere Unterordner dann so usw.
01.
Set ChosenFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(FCHOO1).Folders("xyz").Folders("abc")
Um die Ordner trotzdem so zu definieren könntest du den Pfad zerlegen und mit einer Schleife arbeiten z.B so:
01.
FCHOO1 = "Test\abc\xyz" 
02.
set baseFolder = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
03.
set choosenFolder = baseFolder 
04.
arrPath = Split(FCHOO1,"\") 
05.
level = 0 
06.
While level <= Ubound(arrPath) 
07.
    set choosenFolder = choosenFolder.Folders(arrPath(level)) 
08.
    level = level +1 
09.
Wend
Grüße Uwe
Bitte warten ..
Mitglied: Shadow88
11.09.2013 um 09:36 Uhr
Hallo Uwe,

doch genau so hab ich es probiert Wusste nicht, dass man die einzelnen Unterordner getrennt definieren muss.

Vielen Dank für Deine Hilfe! Funktioniert nun einwandfrei!

Beste Grüße
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
MAPI-Schnittstelle testen: MAPI-Problem Outlook 2013 (3)

Frage von BirdyB zum Thema Outlook & Mail ...

Microsoft Office
Unterordner durchsuchen Excel VBA (1)

Frage von schwalbepilot zum Thema Microsoft Office ...

Outlook & Mail
gelöst Keine Suchergebnisse in Outlook Unterordnern (2)

Frage von stefts zum Thema Outlook & Mail ...

Neue Wissensbeiträge
Humor (lol)

Wohnt jemand in Belgien und kann nicht mehr ruhig ausschlafen?

(4)

Information von LordGurke zum Thema Humor (lol) ...

Sicherheits-Tools

Trendmicro OSCE und das Fall Creators Update Win10 RS3

(3)

Information von Henere zum Thema Sicherheits-Tools ...

Microsoft Office

Text in Zahlen umwandeln

Tipp von logische zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft Office
ICH BIN AM ENDE MEINES IT-WISSENS ANGELANGT!!!! (38)

Frage von 134537 zum Thema Microsoft Office ...

Windows Server
Gruppenrichtlinie greift nicht zu! (24)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (21)

Frage von sunics zum Thema Hosting & Housing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (16)

Frage von liquidbase zum Thema Voice over IP ...