Outlook mit vba aktuellen Ordner feststellen

Home-›Foren-›Outlook-›Outlook 2010-›Outlook mit vba aktuellen Ordner feststellen

Verschlagwortet: 

3 Antworten anzeigen - 1 bis 3 (von insgesamt 3)
  • Autor
    Beitrag
  • #1012940
    wolli2014
    Participant

      Hallo,

      ich möchte in Outlook (2010) mit vba den aktuellen Ordner einer Mail feststellen – und finde keine Property und keine Methode im mailitem-Objekt.

      Hintergrund: wenn ich in einem vba-Script einen Move in einen „anderen“ Ordner durchführe (der aus einer Dialogbox ausgewählt wurde) und zufälligerweise bzw. dummerweise der gleiche Ordner gewählt wird, in dem die Mail bereits liegt (große Ablagestruktur mittlerweile), dann gibt es einen Fehler von vba. Deswegen möchte vor dem Move den aktuellen Ordner feststellen, beide vergleichen und auf diese „Fehlersituation“ ordentlich reagieren.

      #1012957
      lastwebpage
      Moderator

        Hallo,
        mit VBA dürfte das hier im Forum wenig werden.

        Als englischsprachiges Forum würde ich dir outlookcodes.com empfehlen, ansonsten vielleicht auch mal answers.microsft.com dort den deutschen Outlook Bereich.

        Peter

        #1012997
        wolli2014
        Participant

          Hallo lastwebpage,

          danke für den Tip mit den Links. Die Seite „outlookcodes.com“ konnte ich allerdings nicht finden (kein error 404 aber leeres Bild! ?). Aber die Suche mit der allgegenwärtigen Suchmaschine lieferte mir „outlookcode.com“ als Alternative. Und da bin ich fündig geworden. Es ist ganz einfach, wenn man’s weiß, wie immer. Man muss lediglich das ‚Parent‘ der fraglichen Mail „auslesen“. Damit kann ich dann ganz einfach auf Gleichheit mit dem ausgewählten Ordner vergleichen.

          Für alle Interessierten das Code-Schnipsel:

          ….

          ‚ Ziel-Ordner auswählen lassen
          Set moveFolder = Application.Session.PickFolder
          ‚ erst mal in 1. Mail nachsehen, ob ein anderer Ordner gewählt wurde, sonst nichts machen nur Nachricht
          Set myFolder = ActiveExplorer.Selection(1).Parent
          If myFolder = moveFolder Then
          MsgBox „Keine Verschiebung, da gleicher Ordner gewählt!“
          Else
          ‚ nun E-Mails in Loop bearbeiten

        3 Antworten anzeigen - 1 bis 3 (von insgesamt 3)

        Hat Ihnen der Beitrag gefallen?

        1 Stern2 Sterne3 Sterne4 Sterne5 Sterne (Keine Bewertung vorhanden)
        Loading...