Discussion :

[Enelass]

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.

[Ptikir]

Regarde dans l'aide de l'editeur VBA...

Je pense qu'il te manque un argument dans ton inStr

A ++

[Enelass]

Bonjour,
Merci pour cette réponse,
Ca y est mon code est oprationnel :

Code :

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

1
2
3
4
5
6
7
8
9
 
Set LeMail = ActiveInspector.CurrentItem
lienhypertexte = "http://website.fr"
 
        DebutChainehptxt = InStr(LeMail.Body, lienhypertexte)
        If DebutChainehptxt > 0 Then
            FinChainehptxt = InStr(DebutChainehptxt, LeMail.Body, """")
            Chainehptxt = Mid(LeMail.Body, DebutChainehptxt, FinChainehptxt - DebutChainehptxt)
        End If

Cependant, ce code ne marche que si un élément est affiché ActiveInspector.CurrentItem , or j'aimerai associ ce script a un message ciblé par une règle, Quelqu'un peut-il m'aider.
J'ai regarder les différents éléments d'Inspector, et MailItem, je ne trouve pas le code qui me satisfairait :p

De plus, je ne vois aucun scripts depuis "éxécuter un script" dans les options avancées des règles, pourtant la sécurité des macros est définie sur minimum.

[Jean-Philippe André]

Bonjour,
pour exécuter un script à l'arrivée d'un mail par exemple, je t'encourage à lire la
http://outlook.developpez.com/faq/in...e_nouveau_mail

[Ptikir]

Cependant, ce code ne marche que si un élément est affiché ActiveInspector.CurrentItem , or j'aimerai associ ce script a un message ciblé par une règle, Quelqu'un peut-il m'aider.

Salut,

Je ne comprends pas très bien ce que tu dis ci-dessus. Quelle est ta règle pour éxécuter ta macro?

De plus il me semble avoir vu un article concernant l'execution d'une macro à partir d'une règle dans la FAQ...

[Enelass]

Pardon pour l'attente de la réponse.
La règle c'est "si recu de tel expediteur alors executer le script".
Bon j'ai laissé tomber, j'ai plus l'age et la motiv d'apprendre a develloper
Merci de votre aide, c'est sympa cet esprit là

[Jean-Philippe André]

Il n'y a pas d'age pour apprendre à développer

On reste disponible si jamais tu changes d'avis

[Dolphy35]

Salut,

Pardon pour l'attente de la réponse.
La règle c'est "si recu de tel expediteur alors executer le script".
Bon j'ai laissé tomber, j'ai plus l'age et la motiv d'apprendre a develloper
Merci de votre aide, c'est sympa cet esprit là

Comme le dis jpcheck, il n'y a pas d'âge ensuite pour ce que tu cherche, si tu ne veux pas faire un minimum je t'invite soit à ne pas te lancer dans ce genre de chose ou prendre une solution payante.

Maintenant si tu veux faire un minimum voici une info http://outlook.developpez.com/faq/in...A#Script_Regle

la Faq est pleine de ressources avec un bon moteur de recherche.


Dolphy