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

Per VBA Postfach Outlook durchsuchen in umgekehrter Reihenfolge

Frage Entwicklung VB for Applications

Mitglied: thomas1972

thomas1972 (Level 1) - Jetzt verbinden

14.11.2017 um 12:52 Uhr, 175 Aufrufe, 3 Kommentare

Hallo,

habe folgendes Problem,
ich lasse bestimmte Postfächer durchsuchen und eine Access Tabelle eintragen.
Problem hierbei das durchsuchen geht immer von der neues zur ältesten Mail.

Hier liegt das Problem das ich sogn Problemanfragen und Problemlösungen erhalte, nur ist die Problemlösung in der Reihenfolge vor der Problemanfrage.

Aktuell behelfe ich mir, das Postfach 2x durchsuchen zu lassen.
So das im ersten Rundlauf erkannt wird dass ein Problemanfrage da ist und bei zweiten Rundlauf die Problemlösung hierzu erkannt wird.
Nur bei über 14000 Mails dauet dieses unterfangen immer relativ lange.

Daher meine Frage: besteht die Möglichkeit per VBA die Reihenfolge des durchsuchen zu ändern, sprich von ältester Email zu neusten?

Ich hoffe hier kann mir jemand helfen.

Grüße aus München
Thomas
Mitglied: MrCount
14.11.2017 um 13:07 Uhr
Servus,

vielleicht zeigst du uns mal deinen Code, der die Mailboxen durchsucht?

Ansonsten ist hier mal ein Beispiel, wie man sortieren könnte:
01.
Sub SortByDate()  
02.
  Dim myNameSpace As Outlook.NameSpace  
03.
  Dim myFolder As Outlook.Folder  
04.
  Dim myItem As Outlook.MailItem  
05.
  Dim myItems As Outlook.Items  
06.
 
07.
  Set myNameSpace = Application.GetNamespace("MAPI")  
08.
  Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)  
09.
  Set myItems = myFolder.Items  
10.
  myItems.Sort "[ReceivedTime]" 
11.
  For Each myItem In myItems  
12.
   MsgBox myItem.Subject & " ---- " & myItem.ReceivedTime 
13.
  Next myItem  
14.
 End Sub
Bitte warten ..
Mitglied: thomas1972
14.11.2017, aktualisiert um 17:39 Uhr
Hallo vielen Dank für die Info,

sortieren erfolgt nun wie gewünscht.

Was mich wundert, (ist mir bei meinem Code auch schon aufgefallen), dass wenn er das Postfach durchsucht hat immer einen LaufzeitFehler 13 -> Typen unverträglich erzeugt und bei
01.
Next objEMail   (bei Mouseover Hinweis nothing)
stehen bleibt. Kann es am externen Postfach liegen oder können es zu viele Mails sein?
Vielleicht kann jemand erkennen, warum der LaufzeitFehler erzeugt wird..ich habe den Code zum eigentlichen einlesen in den Tabellen weg gelassen. daher deutlich gekürzt.

01.
 Dim db As DAO.Database, rs As DAO.Recordset 
02.
     Dim objOutlook As Outlook.Application, objNameSpace As Outlook.NameSpace 
03.
     Dim objMailordner As Outlook.MAPIFolder 
04.
     Dim objGAINMailordner As Outlook.MAPIFolder 
05.
     Dim objAttachment As Outlook.Attachment, objMail As Outlook.Items 
06.
     Dim objEMail As Outlook.MailItem 
07.
     Dim intCtr As Integer 
08.
        
09.
         
10.
      
11.
     Set db = CurrentDb 
12.
      
13.
     Set objOutlook = New Outlook.Application 
14.
     Set objNameSpace = objOutlook.GetNamespace("MAPI") 
15.
 
16.
     Set objMailordner = objOutlook.GetNamespace("MAPI").Folders("Problem").Folders("Posteingang") 
17.
    
18.
    Set objMail = objMailordner.Items 
19.
    objMail.Sort "[ReceivedTime]" 
20.
      
21.
     For Each objEMail In objMail 
22.
     Debug.Print objEMail.Subject & " ---- " & objEMail.ReceivedTime 
23.
          
24.
     Next objEMail 
25.
      
26.
      
27.
     End Sub 
28.
 

UPDATE
Konnte mittlerweile feststellen, dass es sich um Emails im Postfach vom Typ KALENDER (zugesagte Besprechungen) bzw. Unzustellbarkeitsmeldungen handelt.

FRAGE: Wie kann ich beim einlesen vorgeben, dass es nur Inhalte vom TYP Mail (Keine Besprechungszusagen) eine Berücksichtigung finden soll, bzw. Mails mit Inhalt unzustellbar ignoriert werden?
Bitte warten ..
Mitglied: Specht
15.11.2017, aktualisiert um 08:32 Uhr
Prüfe die Klasse des Objects in der Schleife...
01.
Dim itm as Object, objEmail as Mailitem 
02.
for each itm in objMail 
03.
    If itm.Class = olMail then 
04.
        set objEmail = itm 
05.
        'Hier geht's weiter 
06.
    End if  
07.
Next
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Freigegebenes Postfach in Outlook 2010 durchsuchen (1)

Frage von traller zum Thema Microsoft Office ...

Microsoft Office
Unterordner durchsuchen Excel VBA (1)

Frage von schwalbepilot zum Thema Microsoft Office ...

Exchange Server
gelöst In Outlook ein Postfach entfernen (2)

Frage von hamihan zum Thema Exchange Server ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Freigabe aus anderem Netz nicht erreichbar (31)

Frage von McLion zum Thema Router & Routing ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (24)

Frage von ahstax zum Thema Visual Studio ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Windows Netzwerk
Netzwerk Neustrukturierung (15)

Frage von IT-Dreamer zum Thema Windows Netzwerk ...