Redirection de mail en fonction du contenu

Marsh Posté le 02-03-2010 à 17:19:54

Bonjour à tous !

Voilà mon soucis : j'ai une liste de codes postaux associés à des adresses email.

Lorsque je reçois un mail ( sous outlook ), j'aimerais une macro qui :

1- lise le contenu du mail
2- juste après avoir recherché la chaine de caractère "POSTAL", qu'il prenne les 5 caractères après ( le code postal donc )
3- mettre une condition de ce type : Si le code postal est 59000 ( par exemple ) alors transférer le mail vers 59000( j'ai déjà fait les associations entre les codes et les emails )
4- finalement l'envoyer ^^

Si vous avez une idée pour mettre en oeuvre tout ça, je suis preneur

Merci bien !

Marsh Posté le 02-03-2010 à 17:19:54

Marsh Posté le 09-03-2010 à 17:08:16

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 !

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *