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
|