Top-Themen

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

Mitglied: Shadow88

Shadow88 (Level 1) - Jetzt verbinden

09.09.2013 um 11:22 Uhr, 9099 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

Frage von BirdyBOutlook & Mail3 Kommentare

Hallo zusammen, unser ERP-System kann sowohl über SMTP, als auch über MAPI Mails versenden. Bisher haben wir SMTP genutzt, ...

Exchange Server

Mapi http und Postfach automapping unter EX2013 und Outlook 2016

Frage von smeclntExchange Server1 Kommentar

Hallo zusammen, wir haben einen EX 2013 und Outlook 2016, in einer Domäne, alles läuft wie es soll , ...

Exchange Server

RecoveryDB - MAPI-Fehler?

Frage von sk7519Exchange Server

Hallo zusammen, ich habe bei einem SBS2011 mit Exchange 2010 folgenden Fehler in der Ereignisanzeige: In der Shell sehe ...

Exchange Server

MAPI per Remote

Frage von kos187Exchange Server8 Kommentare

Hallo zusammen, ich benötige einen Rat. Wir nutzen einen Terminalserver (2008 R2) Die Anwender arbeiten auf diesem Server an ...

Neue Wissensbeiträge
Internet

Verlag protestiert gegen Artikel 13 (jetzt Artikel 17) der geplanten EU-Verordnung

Information von Dilbert-MD vor 2 StundenInternet

Leider etwas spät, aber immerhin hat auch der heise-Verlag eingesehen, dass die Umsetzung der Urheberrechtsreform - so wie sie ...

Datenschutz

SiSyPHuS Win10: Analyse der Telemetriekomponenten in Windows 10

Tipp von freesolo vor 3 TagenDatenschutz4 Kommentare

Alle die sich detailliert für die Datensammlung interessieren die unter Windows 10 stattfindet, sollten sich folgende Analyse des BSI ...

Sicherheit
Adminrechte dank Intel-Grafikkarte
Information von DerWoWusste vor 4 TagenSicherheit2 Kommentare

ist das Advisory, welches beschreibt, welche Intel HD Graphics Modelle Sicherheitslücken haben, mit denen sich schwache Nutzer zu Admins ...

Internet

EU Urheberrechtsreform: Eingriff in die Internetkultur

Information von Frank vor 4 TagenInternet1 Kommentar

Liebe Besucherin, lieber Besucher, warum erscheint das obere Banner in allen Beiträgen? Aus Protest gegen Teile der geplanten EU-Urheberrechtsreform ...

Heiß diskutierte Inhalte
DNS
50 EUR für Telekom-, Unitymedia- und Vodafone-Kunden
Frage von Zorro1199DNS14 Kommentare

Hallo zusammen, wie evaluieren gerade das korrekte Einhalten von DNS-TTLs durch verschiedene Provider. Aktuell suchen wir noch Kunden der ...

Grafik
Viele Fotos organisieren - Windows Dateisystem zu lahm bzw. überfordert
Frage von augustaparkGrafik12 Kommentare

Hallo und Guten Morgen, hat einer eine Idee, wie man viele Fotos sinnvoll und effizient organisieren kann? Wir haben ...

Voice over IP
Mikrotik: Voip mit SIP Phones in verschiedenen Subnetzen mit FritzBox
Frage von SpartacusVoice over IP12 Kommentare

Hallo, ich habe das Problem, dass ich verschiedene SIP-Clients in unterschiedlichen Subnetzen habe, die mit meinem Server FritzBox7412 keine ...

Windows Server
Windows 2012 R2 - Skript um Druckerkonfiguration auszulesen und zu setzen
gelöst Frage von Der-PhilWindows Server11 Kommentare

Hallo! Kennt ihr eine Möglichkeit, per Skript die Konfiguration eines Druckers auszulesen und auf einen anderen anzuwenden? Hintergrund: Ich ...