VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
In Outlook Ordner ansprechen	26.11.2015 09:50:54	Officer_Bierschnitt
In Outlook Ordner ansprechen	26.11.2015 12:49:29	BigBen
In Outlook Ordner ansprechen	26.11.2015 13:40:34	Officer_Bierschnitt
In Outlook Ordner ansprechen	26.11.2015 18:41:41	Gast41475
In Outlook Ordner ansprechen	26.11.2015 22:00:47	Gast55939
In Outlook Ordner ansprechen	27.11.2015 08:45:43	Officer_Bierschnitt
In Outlook Ordner ansprechen	27.11.2015 10:01:03	Gast1042
In Outlook Ordner ansprechen	27.11.2015 10:07:12	Gast31016
In Outlook Ordner ansprechen	30.11.2015 11:53:31	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:01:58	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:21:48	Gast90152
In Outlook Ordner ansprechen	30.11.2015 12:26:34	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:37:03	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:50:35	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:38:45	Gast30650
In Outlook Ordner ansprechen	30.11.2015 12:52:49	Gast21604
In Outlook Ordner ansprechen	30.11.2015 13:08:30	Gast93504

Ansicht des Beitrags:

Von:
Officer_Bierschnitt

Datum:
27.11.2015 08:45:43

Views:
959

Rating:

Antwort:

Thema:
In Outlook Ordner ansprechen

Hallo Gast55939,

Du scheinst Dich ja ganz gut auszukennen. Danke vielmals! D.h. ich muss einfach dieses GetDefaultFolders durch Deinen Code ersetzen. Das ist Klasse.

Das werd ich auf jeden Fall in meinen Code einbauen, auch wenn ich in diesem Fall erst mal auf einen Standardordner zugreife - aber mit der Methode kann ich dann jeden beliebigen bekannten Ordner finden, das ist auf jeden Fall besser.

Die Links werd ich mir bei Gelegenheit auch zu Gemüte führen. Will ja was dazulernen.

Jetzt hab ich aber grad noch ein anderes Problem, vieleicht kannst Du mir dann bei dem auch helfen:

Das Makro läuft nach Aussage meines Ansprechpartners und fügt auch die richtigen Zahlen ein. Aber es kommt an einer Stelle eine Fehlermeldung, die ich nicht ganz verstehe und die der mit OK bestätigen muss, das ist natürlich etwas blöd.

Die Fehlernummer ist 438 - Fehler in Prozedur 'Outlook.Posteingang'; Beschreibung: "Object doesn't support this property or method"

Ich paste Dir hier mal den Teil des Codes hin, das ist das, was ich mache, nachdem ich den Posteingang spezifiziert hab:

lngCount = objFolder.Items.Count 'Das ist die Anzahl von emails im Posteingang
   
'  MsgBox lngCount
   
 lngRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'Hier wird einfach die erste freie Zelle in Spalte A gesucht
   
 
  For lngCur = 1 To lngCount 'Alle emails im Posteingang werden durchlaufen
    Application.StatusBar = "Lese Posteingang " & _
      Format(lngCur / lngCount, "0%") 'In der Statuszeile wird einiges angezeigt
    With objFolder.Items(lngCur) 'Durch diese WITH-Schleife kann die Nennung des Objekts
    'bei den nächsten Befehlen entfallen
    'In dem Postfach liegen mglw ziemlich viele Alt-emails rum, wir wollen nur die eine, die mit dem
    'bekannten Betreff am aktuellen Tag gekommen ist.
    If Format(.ReceivedTime, "DD.MM.YYYY") = Format(Date, "DD.MM.YYYY") Then
      If .Subject = emailtitle Then
        lngRow = lngRow + 8
        Cells(lngRow + 1, 1).Value = .Subject
        Cells(lngRow + 2, 1).Value = .ReceivedTime
        Cells(lngRow + 3, 1).Value = .SenderName
        Cells(lngRow + 4, 1).Value = .SenderEmailAddress
        Cells(lngRow + 5, 1).Value = .Body
        Cells(lngRow + 6, 1).Value = .Attachments.Count
         If .Attachments.Count > 0 Then
          For lngIndex = 1 To .Attachments.Count
            Debug.Print strPath & .Attachments.Item(lngIndex).Filename 'Ausgabe im Direktfenster! (Strg+G)
            .Attachments.Item(lngIndex).SaveAsFile v_path1 & .Attachments.Item(lngIndex).Filename
          Next
        End If
        .UnRead = False 'als gelesen markieren
       End If
      End If
    End With
    Cells(lngRow + 2, 1).Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "= DATE(YEAR(RC[-1]),MONTH(RC[-1]),DAY(RC[-1]))"
    Cells(lngRow, 1).Select 'Jetzt müssen wir nur schnell wieder zurückspringen, damit da nichts schiefgehen kann.
  Next

Da werden also alle emails im Posteingang eine nach der anderen durchgegangen, die mit dem gesuchten Betreff (Variable emailtitle) wird rausgesucht, deren Elemente in die aktive Excel-Datei geschrieben und der Anhang runtergeladen.

Kannst Du Dir denken, was da nicht funktionieren könnte, wie es zu dieser Fehlermeldung kommt?

Vielen Dank!

Gruß,

Officer_Bierschnitt

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:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

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
In Outlook Ordner ansprechen	26.11.2015 09:50:54	Officer_Bierschnitt
In Outlook Ordner ansprechen	26.11.2015 12:49:29	BigBen
In Outlook Ordner ansprechen	26.11.2015 13:40:34	Officer_Bierschnitt
In Outlook Ordner ansprechen	26.11.2015 18:41:41	Gast41475
In Outlook Ordner ansprechen	26.11.2015 22:00:47	Gast55939
In Outlook Ordner ansprechen	27.11.2015 08:45:43	Officer_Bierschnitt
In Outlook Ordner ansprechen	27.11.2015 10:01:03	Gast1042
In Outlook Ordner ansprechen	27.11.2015 10:07:12	Gast31016
In Outlook Ordner ansprechen	30.11.2015 11:53:31	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:01:58	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:21:48	Gast90152
In Outlook Ordner ansprechen	30.11.2015 12:26:34	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:37:03	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:50:35	Officer_Bierschnitt
In Outlook Ordner ansprechen	30.11.2015 12:38:45	Gast30650
In Outlook Ordner ansprechen	30.11.2015 12:52:49	Gast21604
In Outlook Ordner ansprechen	30.11.2015 13:08:30	Gast93504