Thema Datum  Von Nutzer Rating
Antwort
Rot VBA arbeitet nicht immer alle Email Anhänge
14.12.2022 15:06:15 bergquelle
NotSolved

Ansicht des Beitrags:
Von:
bergquelle
Datum:
14.12.2022 15:06:15
Views:
198
Rating: Antwort:
  Ja
Thema:
VBA arbeitet nicht immer alle Email Anhänge

Hallo zusammen,
ich nutze folgenden VBA Code schon einiger Zeit.
Lesen der Anhänge meiner IPCam mails und speichere diese in einem bestimmten Ordner.

Was mir immer wieder auffällt ist, dass beim Aufruf dieses Macros ab+zu nur einige Mails bearbeitet werden, obwohl z.B. 50 Mails vorhanden sind. Beim Neustart des Macros werden wieder einige abgearbeitet - aber nie alle 50 Mails auf einmal. Ich mache das dann solange, bis keine, der bestimmten Mails mehr vorhanden ist.

Was kann das sein?

Danke für eure Hilfe 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
        'Debug.Print objIn.Items.Count, objNewMail
        With objNewMail
        If objNewMail.SenderEmailAddress = "xxxxxx@xxx.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
    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
14.12.2022 15:06:15 bergquelle
NotSolved