Discussion :

[tranksen76]

Bonjour,

je reçois chaque jour des dizaines de mails qui contiennent une référence dans le corps du message commençant par "REF: 9812.1234.5678.90".
Je dois ensuite retransmettre ces emails en mettant la référence REF: 9812.1234.5678.90 dans le champ objet du mail que j'envoie.
Ces emails contiennent une pièce jointe qui doit rester et être retransmise elle aussi.

De plus la référence change à chaque message que je reçois et seuls les caractères "REF : 98" restent identiques.

Je voudrais lier une macro à un bouton dans une barre d'outil pour automatiquement générer mon message à transmettre avec le bon objet.
J'ai donc 2 étapes à surmonter :
- rechercher dans le message ouvert "REF : 98" et les 12 caractères suivants.
- créer un nouveau message avec le sujet "REF : 98" et les 12 caractères suivants.

Je suis novice en programmation et aucune règle dans Outlook ne peut me permettre d'accomplir les 2 taches.

Je crois comprendre que l'instruction objMailItem.Subject me sera nécessaire et j'ai fait une recherche avec ce mot sur le forum mais je ne trouve rien qui puisse me faire avancer, même pas à pas.

Toute suggestion sera fortement appréciée.

Amicalement
Tranksen76

[Oliv-]

SAlut,
Il y a déjà eu des disucssions la dessus regarde là :
http://www.developpez.net/forums/d47...erences-mails/

http://www.developpez.net/forums/d50...trouvant-mail/

http://www.developpez.net/forums/d52...il-recu-copie/

avec tout cela tu devrais y arriver

[tranksen76]

Bonjour,

grâce à l'aide d'Oliv j'ai pu avancer en m'inspirant des codes dans les liens mais je bute sur une boucle "If ...then... End if".

Le corps de mon email contient la valeur "REF: 98" et je veux récupérer les 17 caractères suivants dans une variable appelée "maChaine" mais ça ne fonctionne pas ça me renvoie toujours la valeur d'échec même quand la condition est remplie.

Je pense que le problème vient de "l'environnement" que je déclare : j'essaie de faire la recherche dans l'email actif (en surbrillance dans la boite de réception).
Comment dois-je changer ces paramètres si :
- l'email est justye en surbrillance dans la boite de réception
- l'email est ouvert en prévisualisation ?

Merci pour toute aide/information.
Amicalement
Tranksen

Voici mon code :

Sub recherche_dans_email()
Dim myOlApp As New Outlook.Application
Dim myItem As Object

Set myItem = GetCurrentItem()

If InStr(1, myItem.Body, "REF: 98") > 0 Then
maChaine = Mid(myItem.Body, InStr(1, myItem.Body, "98"), 17)
' affichage du resultat pour vérification
MsgBox maChaine
Else
maChaine = 0
End If

MsgBox "Fin de traitement"
End Sub

[Oliv-]

Salut essaye en corrigeant ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim myOlApp As Outlook.Application
Dim myItem As Object
Set myItem = ActiveInspector.CurrentItem

[tranksen76]

Bonjour Oliv-,

merci beaucoup ça fonctionne parfaitement.
J'ai juste dû changer ma ligne Instr car je n'avais pas bien compris cette instruction.

Ton aide m'a permis de bien avancer, il me reste 2 tâches à accomplir et j'aurai l'outil idéal pour le traitement de mes emails.

Encore merci mille fois pour ton aide précieuse et rapide.
Tranksen.