Thema Datum  Von Nutzer Rating
Antwort
11.06.2013 13:21:34 gast5000
NotSolved
11.06.2013 14:22:35 Gast66736
NotSolved
11.06.2013 14:38:47 gast5000
NotSolved
Blau For Schleife abbrechen
 11.06.2013 20:00:55 Gast14813
NotSolved
14.06.2013 07:45:22 gast5000
NotSolved
14.06.2013 08:25:19 gast5000
NotSolved
21.06.2013 10:14:36 gast5000
Solved

Ansicht des Beitrags:
Von:
Gast14813		 Datum:
11.06.2013 20:00:55		 Views:
948		 Rating:
     
Antwort:
  Ja
Thema:
For Schleife abbrechen

Also es scheint ja hier um Outlook zu gehen.

Worum geht es denn nun genau? Ob die Schleife da mit Exit verlassen wird oder nicht ist letztendlich total schnuppe. Sie wird irgendwann eh verlassen.

 

Hast du dir mal angeschaut, ob diese Eigenschaft "Archiv" überhaupt existiert?

Option Explicit

Sub ItemEigenschaftenAusgeben()
  
  Dim objItem As Outlook.MailItem
  Dim objItemProp As Outlook.ItemProperty
  Dim strItemProps As String
  
  Set objItem = Item 'Item ist aus deinem Code

  For Each objItemProp In objItem.ItemProperties
    If strItemProps <> "" Then
      strItemProps = strItemProps & vbNewLine & _
                      objItemProp.Name
    Else
      strItemProps = objItemProp.Name
    End If
  Next
  
  Set objItem = Application.CreateItem(olMailItem)
  objItem.Body = strItemProps
  
  Call objItem.Display
  
  Set objItem = Nothing
  
End Sub

 

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.06.2013 13:21:34 gast5000
NotSolved
11.06.2013 14:22:35 Gast66736
NotSolved
11.06.2013 14:38:47 gast5000
NotSolved
Blau For Schleife abbrechen
 11.06.2013 20:00:55 Gast14813
NotSolved
14.06.2013 07:45:22 gast5000
NotSolved
14.06.2013 08:25:19 gast5000
NotSolved
21.06.2013 10:14:36 gast5000
Solved