Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1517 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Redirection de mail en fonction du contenu

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Redirection de mail en fonction du contenu

n°1970661
max211
Posté le 02-03-2010 à 17:19:54  profilanswer
 

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 :p
 
Merci bien !

mood
Publicité
Posté le 02-03-2010 à 17:19:54  profilanswer
 

n°1972347
SuppotDeSa​Tante
Aka dje69r
Posté le 09-03-2010 à 17:08:16  profilanswer
 

Hello
 
Un début d'aide :

Code :
  1. Dim myOlApp As New Outlook.Application
  2.     Dim myNamespace As Outlook.NameSpace
  3.     Dim myItem As Object
  4.     Set myNamespace = myOlApp.GetNamespace("MAPI" )
  5.     Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
  6.     Dim strName As String
  7.    
  8.     For Each myItem In myInbox.Items
  9.    
  10.         strName = myItem.EntryID
  11.        
  12.         'On récupere ou se trouve le mot POSTAL
  13.         Emplacement1 = InStr(1, myItem.Body, "fonctionnalités" )
  14.        
  15.         'On recupere, tout ce qui est avant POSTAL + 6 caractere : il doit y avoir un espace entre postal et le CP _
  16.         je suppose donc 5 caractere du CP + l'espace ca fait 6. A modifier en fonction.
  17.         'Et de cette chaine on prend les 5 derniers caracteres, donc le CP
  18.         Emplacement2 = Right(Left(myItem.Body, Emplacement1 + 6), 5)
  19.        
  20.         'Pointe sur le dossier avec le meme nom que le CP
  21.         Set objFolder = myNamespace.Folders("Dossiers personnels" ).Folders(Emplacement2)
  22.        
  23.        
  24.        
  25.     Next myItem
  26. End Sub


---------------
Soyez malin, louez entre voisins !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Redirection de mail en fonction du contenu

 

Sujets relatifs
script de redirectionRedirection de mail en fonction du contenu
php content type avec mail() pour pièce jointe et ckeditorMail automatique (PHP si possible) depuis données SQL
Appeler une procédure depuis une fonction !Fonction "copier/coller des champs" dans un formulaire
Inclure un dossier (et son contenu) dans un projet J2EE ? 
Plus de sujets relatifs à : Redirection de mail en fonction du contenu


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR