Thema Datum  Von Nutzer Rating
Antwort
Rot VBA arbeitet nicht immer alle Email Anhänge ab
 02.03.2023 18:01:47 bergquelle
NotSolved
02.03.2023 18:35:45 ralf_b
NotSolved
02.03.2023 21:52:46 bergquelle
NotSolved

Ansicht des Beitrags:
Von:
bergquelle		 Datum:
02.03.2023 18:01:47		 Views:
928		 Rating:
     
Antwort:
  Ja
Thema:
VBA arbeitet nicht immer alle Email Anhänge ab

Hallo zusammen!

Ich benutze Windows 11 und Office 365.

Der Makro siehe unten läuft ok - was nicht funktioniert ist, dass sich der Makro beendet mal bei 9 oder 4 oder 2 oder 3 Mails mit Anhängen.

Ich verstehe nicht warum er nicht ALLE Mails mit dem Anhang abarbeitet - ich muss den Makro deshalb immer wieder manuell starten.

Vielleicht hat jemand eine Lösung - Danke im Voraus.

Public Sub IPCam_original()
    Dim Foldername As String
    Dim objIn As MAPIFolder
    Dim objNewMail As MailItem
    Dim NumberOfMails, Z, i, s As Integer
    
    Z = 0
    On Error Resume Next
    Set objIn = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
    For Each objNewMail In objIn.Items
        With objNewMail
        If objNewMail.SenderEmailAddress = "xxxxx@web.de" Then
            If .UnRead = True Then
                NumberOfMails = .Attachments.Count
                If NumberOfMails > 0 Then
                     Foldername = "D:\Temp\_reolink"
                     For i = 1 To NumberOfMails
                        .Attachments.Item(i).SaveAsFile (Foldername) & "\" & .Attachments.Item(i).FileName
                     Next i
                End If
            End If
            Z = Z + 1
            objNewMail.Delete
         End If
        End With
        'Debug.Print objNewMail.Subject
        'Debug.Print .Attachments.Count
    Next objNewMail
    MsgBox "Erledigt! " & Z      
End Sub 

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
Rot VBA arbeitet nicht immer alle Email Anhänge ab
 02.03.2023 18:01:47 bergquelle
NotSolved
02.03.2023 18:35:45 ralf_b
NotSolved
02.03.2023 21:52:46 bergquelle
NotSolved