Mail-funktion via Outlook
Jeg er stødt på et underligt problem...Jeg har lavet en funktion som kigger gennem en angiven Outlook-folder, for alle mails med et bestemt Subject, gemmer den vedhæftede fil på disken og derefter slettet mailen.
Funktionen kommer her:
***********************************************************
Public Function SaveMyMail(postkasse As String, folder As String, emne As String, sti As String)
Set myApp = CreateObject("Outlook.Application")
Set myNamespace = myApp.GetNamespace("MAPI")
Set myFolder = myNamespace.Folders("Postkasse - " & postkasse).Folders(folder)
For Each myMsg In myFolder.Items
With myMsg
If InStr(1, .subject, emne) > 0 Then
myMsg.Attachments.Item(1).SaveAsFile sti & "\" & myMsg.Attachments.Item(1).DisplayName
myFolder.Items.Item(1).Delete
End If
End With
Next
Exit Function
***********************************************************
Når jeg har 1 eller 2 emails i en mappe med det angivne subject, gemmer den de vedhæftede filer og sletter derefter mailen. Men har jeg 4 emails, løber den kun løkken igennem 2 gange, sletter kun 2 mails og gemmer kun 2 filer.
Er der nogen der kan give mig en forklaring på det?
Jeg har prøvet ALT muligt, men uanset hvad, løber den kun løkken igennem 2 gange og det forstår jeg simpelthen ikke, når der netop ligger 4 mails i mappen.
Jeg håber i kan hjælpe. :)
