Discussion :

[Oliv-]

Bonjour,
Je ne retrouve plus comment supprimer toutes les balises HTML d'un document (Email OUTLOOK par exemple) ?

Il me semblait qu'il y avait une solution avec HTMLDOCUMENT...

[joe.levrai]

Salut Oliv-

par expression rationnelle ?

avec ce pattern :

Code :

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

<s*?[^>]+s*?>

c'est dans quel contexte ton utilisation ?

[Oliv-]

SAlut,
merci pour ta réponse
j'avais essayé les regex avec ce code, mais pour un EMAIL le résultat n'est pas du tout celui attendu

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
Function SupprimerHTML(ByVal strHTML As String) As String
    Dim re As Object    'VBScript_RegExp_55.RegExp
 
' Remplacement de certains caractères html
    strHTML = Replace(strHTML, "é", "é")
    strHTML = Replace(strHTML, "è", "è")
    strHTML = Replace(strHTML, "à", "à")
    strHTML = Replace(strHTML, " ", " ")
    strHTML = Replace(strHTML, "’", "'")
    strHTML = Replace(strHTML, "ô", "ô")
 
    ' On crée une expression régulière
    Set re = CreateObject("vbscript.regexp")   ' On définit le critère qui cherche toute balise HTML
    're.Pattern = "<\s*?[^>]+\s*?>"
    re.Pattern = "<s*?[^>]+s*?>"
 
    ' On fait en sorte que la casse (majuscules/minuscules)
    ' soit indifférente
    re.IgnoreCase = True    ' Traitement global (récursif)
    re.Global = True    ' La fonction Test renvoie True si la chaîne
    ' respecte le critère
    SupprimerHTML = re.Replace(strHTML, "")
End Function

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
Private Sub test_Supprimer_HTML_regex()
 
    Dim oItem As Outlook.MailItem
    Set oItem = ActiveInspector.CurrentItem
 
    contenu = oItem.HTMLBody
Msgbox contenu
    contenu = SupprimerHTML(contenu)
     MsgBox contenu   
'pour mettre dans le presse papier
   ' With New DataObject
   '     .SetText contenu
   '     .PutInClipboard
  '  End With
 
End Sub

et finalement j'ai retrouvé ce que je cherchais

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
Private Sub test_Supprimer_HTML()
 
    Dim oItem As Outlook.MailItem
    Set oItem = ActiveInspector.CurrentItem
    Dim ohtml As HTMLDocument
    Set ohtml = New HTMLDocument
    ohtml.Body.innerHTML = oItem.HTMLBody
 
    contenu = ohtml.Body.innerText
 
    'With New DataObject
    '    .SetText contenu
    '    .PutInClipboard
 
   ' End With
    MsgBox contenu
 
End Sub

[Invité]

Bonjour Oliv,
j'avais créé ce script pour convertir le caractères accentuer en Htm mais l’inverse est possible en te basant su ce code:
http://www.developpez.net/forums/d15...o/#post8187229

Mais avec cdo tu créer un mail que tu l'envoi pas tu place ton texte dans bodyHtml et tu le récupères converti dans body!

[Oliv-]

Bonjour Oliv,
j'avais créé ce script pour convertir le caractères accentuer en Htm mais l’inverse est possible en te basant su ce code:
http://www.developpez.net/forums/d15...o/#post8187229

Merci Robert, je la garde sous la main, soit dit en passant j'ai eu le même pb d'accent en CDO qu'évoqué dans le post cité !

[Invité]

Code :

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

1
2
3
4
5
6
7
Sub test()
Set msg = CreateObject("CDO.Message") 'pour la configuration du message
With msg
     .HTMLBody = "á"
     Debug.Print .textBody
End With
End Sub

Ceci dit pour moi tu lavais besoin que de ça txt=oItem.body