Deplacer les Mails d un Dossier a un autre
Bonjour le Forum ,
Mon code lit les E-mails dans mon outlook et reporte certains informations dans excel . Actuellement j essaie de déplacer les E-mails déjà lus dans dans un autre dossier(erledigte Mails) qui est un sous dossier de mon Inbox.le problème est que lorsque j exécute le code il fonctionne parfaitement mais il ya juste un seul emails qui apparait dans le dossiers erledigte Mails alors que la totalité des mails doivent s y retrouver .Pouvez vous apporter des modifications a mon code? Merci bien.
Sub getdatafromOutlook()
Dim OutlookApp As outlook.Application
Dim OutlookNamespace As Namespace
Dim Folder As MAPIFolder
Dim FolderImpMail As outlook.MAPIFolder
Dim outlookMail As Variant
Dim myItem As outlook.MailItem
Dim i As Integer
Set OutlookApp = New outlook.Application
Set OutlookNamespace = OutlookApp.GetNamespace("MAPI")
Set Folder = OutlookNamespace.GetDefaultFolder(olFolderInbox).Folders("ImpMail")
i = 3
For Each outlookMail In Folder.Items
Cells(i, 1).Value = outlookMail.ReceivedTime
Cells(i, 1).NumberFormat = "dd.mm.yy"
Cells(i, 2).Value = outlookMail.Subject
Cells(i, 2).Columns.AutoFit
Cells(i, 2) = Replace(Cells(i, 2), "WG: Expired EhP - ", "")
Cells(i, 3).Value = outlookMail.Body
i = i + 1
Next outlookMail
'Sub replaicedID()
Dim derligne%, x2, x3, ta
On Error Resume Next
derligne = Cells(Rows.Count, 2).End(3).Row
ReDim ta(1 To 1000, 1 To 1)
For i = 2 To derligne
Cells(i, 4) = ""
x2 = Split(Cells(i, 3), "ID: ")
x3 = Left(x2(1), 4)
Cells(i, 3) = x3
'ta(i - 1, 1) = x3
Next i
Set FolderImpMail = Folder.Parent.Folders("erledigte Mails")
Folder.Items(1).Move FolderImpMail
Set FolderImpMail = Nothing
Set Folder = Nothing
Set OutlookNamespace = Nothing
Set OutlookApp = Nothing
End Sub
bonjour a tous ,
quelqu un pourait il m aider s il vous plait je sais que se genre de sujet a deja ete traiter ici mais je ne comprend pas pourqoui il ne fonctionne pas chez moi. je ne l ai deja modifier plusieurs fois je ne trouve pas de solution.