J'essaie de réaliser une macro dans excel qui va m'extraire un fichier attaché d'un mail spécifique. Elle fonctionnait, il y'a peu, mais je n'arrive pas à savoir où j'ai changé un truc qui me donne une incompatibilité de Type :
La macro fonctionne tout au long de la première boucle "For" mais plante en passant à la seconde
Public Sub SearchMail(FileAttachment As Variant, ListRecipient As Variant, SaveIt As Variant, oDate As Date)
Dim sErr As String
Dim nTest As Integer
Dim iDate As Date
Dim SearchOutlook As New Outlook.Application
Dim NS As Outlook.Namespace
Dim folder As Outlook.MAPIFolder
Dim oItem As Outlook.MailItem
Dim oDate As Date
Set NS = SearchOutlook.GetNamespace("MAPI")
Set folder = NS.GetDefaultFolder(olFolderInbox)
nTest = 0
For Each oItem In folder.Items
iDate = oItem.ReceivedTime
If Day(iDate) = Day(oDate) And Month(iDate) = Month(oDate) And Year(iDate) = Year(oDate) Then
If oItem.SentOnBehalfOfName = ListRecipient And oItem.Attachments.Count > 0 Then
nTest = 1
oItem.Attachments.Item(FileAttachment).SaveAsFile (SaveIt)
Exit For
End If
End If
Next
If nTest = 1 Then
sErr = MsgBox("Outlook Extraction Successful", vbOKOnly)
Else: sErr = MsgBox("Outlook Extraction Failed, please verify your emails", vbOKOnly)
End If
Set oItem = Nothing
Set SearchOutlook = Nothing
Set NS = Nothing
Set folder = Nothing
