SuppotDeSaTante Aka dje69r | Hello
Un début d'aide :
Code :
- Dim myOlApp As New Outlook.Application
- Dim myNamespace As Outlook.NameSpace
- Dim myItem As Object
- Set myNamespace = myOlApp.GetNamespace("MAPI" )
- Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
- Dim strName As String
-
- For Each myItem In myInbox.Items
-
- strName = myItem.EntryID
-
- 'On récupere ou se trouve le mot POSTAL
- Emplacement1 = InStr(1, myItem.Body, "fonctionnalités" )
-
- 'On recupere, tout ce qui est avant POSTAL + 6 caractere : il doit y avoir un espace entre postal et le CP _
- je suppose donc 5 caractere du CP + l'espace ca fait 6. A modifier en fonction.
- 'Et de cette chaine on prend les 5 derniers caracteres, donc le CP
- Emplacement2 = Right(Left(myItem.Body, Emplacement1 + 6), 5)
-
- 'Pointe sur le dossier avec le meme nom que le CP
- Set objFolder = myNamespace.Folders("Dossiers personnels" ).Folders(Emplacement2)
-
-
-
- Next myItem
- End Sub
|
---------------
Soyez malin, louez entre voisins !
|