Bonjour à tous,
Je monte une application en VB qui scanne le contenu d'un dossier dans Outlook pour récuperer certains types de courriels. Jusque là, le tout roule #1. Mon problème vient des pieces attachés, enfin pas toute, juste des courriels qui sont en pieces attachés. Je m'explique, par exemple, si on transfert 3 messages d'un coup, les 3 messages vont devenir 3 pieces attachés dans le courriel qui sert à les transferer.
Ce que j'aimerais faire, c'est prendre ses 3 pieces attachés et les ouvrir comme un courriel dans qui serait dans mon dossier et non pu le voir comme une pièce attaché. Quelqu'un aurait une idée ? En VB6 idéalement.
Voici le code pour acceder au dossier Outlook et acceder aux pieces attachés :
Code :
Dim myOlApp As Outlook.Application
Dim mpfInbox As Outlook.MAPIFolder
Dim obj As Outlook.MailItem
Dim myItems As Outlook.Items
Dim myItem As Object
Dim PJ As Outlook.Attachment
Dim NomDeFichier As String
clsMin.Actif = False
lblStatus.Caption = "Lecture en cours"
Set myOlApp = CreateObject("Outlook.Application")
Set mpfInbox = myOlApp.GetNamespace("MAPI").GetDefaultFolder(olFolderDrafts)
Set myItems = mpfInbox.Items
myItems.Sort "[ReceivedTime]", True
Set myItem = myItems.GetFirst
If TypeName(myItem) <> "Nothing" Then
If TypeOf myItem Is Outlook.MailItem Then
Set obj = myItem
End If
End If
While TypeName(myItem) <> "Nothing"
If TypeOf myItem Is Outlook.MailItem Then
For Each PJ In obj.Attachments
NomDeFichier = PJ.FileName
If TypeOf obj.Attachments Is Outlook.MailItem Then
Set obj = PJ
End If
Next
End If
Set myItem = myItems.GetNext
If TypeName(myItem) <> "Nothing" Then
If TypeOf myItem Is Outlook.MailItem Then
Set obj = myItem
End If
End If
Wend