bonjour, j'ai essayer de modifier du code laissé par Oliv. pour en extraire une chaine de caractères spéciale, un lien hypertexte (qui est associé a une image dans le mail hmtl Outlook)
Tout d'abord j'essaye d'extraire le texte avant de me pencher sur ou stocker celui-çi :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Recherche()
 
Dim App As Outlook.Application
Set App = Outlook.Application
Dim Expl As Outlook.Explorer
Set Expl = App.ActiveExplorer 'désigne l'exploreur actif càd la fenêtre des dossiers.
Dim INSP As Outlook.Inspector
Set INSP = ActiveInspector 'désigne la fenêtre de l'élement actif
Dim LeMail As Outlook.MailItem
' or Dim LeMail As Object ?
Set LeMail = ActiveInspector.CurrentItem
 
DebutChainehptxt = InStr(1, LeMail.Body, "http://")
        If DebutChainehptxt > 0 Then
            FinChainehptxt = InStr(1, DebutChainehptxt, LeMail.Body, """")
            Chainehptxt = Mid(LeMail.Body, DebutChainehptxt, FinChainehptxt - DebutChainehptxt)
        End If
 
 
Set LeMail = Nothing
MsgBox "[" & Chainehptxt & "]"
End Sub
Le problème est que ce code me renvoie toujours un message box avec [ ]
Je ne comprends pas pourquoi il ne trouve pas les liens hypertexte dans le corps de mes mails (en faisant éxécuter, ou en lancant ma macro depuis la barre d'outils), si quelqu'un a une idée d'ou vient le problème svp ?

De plus, depuis la fenêtre des règles, si je fais éxécuter un script, je ne vois auncun script disponible alors que ma macro existe bel et bien :-s
Merci, de bien vouloir m'aider.