Discussion :

[webosama80]

Bonjour à tous,

Je suis bloqué sur un truc, je m'explique :
Je créé un mail, et j'insère une photo dans mon mail (pas en pièce jointe je précise) pour montrer à mon interlocuteur X, et dans cette image je met des informations dans le texte de remplacement de la photo (AlternativeText). Je lui envoie.

Mon interlocuteur X ouvre mon mail, il sélectionne la photo, et via un bouton dans le ruban (il a personnalisé son ruban pour faire pointer la macro) il clique dessus et cela affiche une boite de dialogue (msgbox) qui lui montre les informations que j'avais rempli précédement.

Comment puis-je coder la macro qui me permettra d'afficher mon text, car je bloque vraiment.

Merci d'avance pour votre aide précieuse

[Oliv-]

bonjour,
c'est une info qui est contenu dans la propriété .HTMLBODY du Mail.

Il faut trouver d'abords la balise <img> et à l'intérieur tu auras la alt=""

exemple

<img width=242 height=242 src="cid:image002.jpg@01D09EE7.FFDD1FA0" alt="#texte de remplacement#" v:shapes="Image_x0020_1">

tu peux soit utiliser un PARSER genre MSHTML.HTMLDocument pour parcourir le DOM
ou plus simplement avec les fonctions split, instr, mid,... de vba

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
24
25
26
27
28
29
Sub test_get_alt_img()
    Set OITEM = ActiveInspector.CurrentItem
    MsgBox get_alt_img(OITEM.HTMLBody)
End Sub
 
 
 
Function get_alt_img(html As String)
'---------------------------------------------------------------------------------------
' Procedure : get_alt_img
' Author    : OCTU
' Date      : 04/06/2015
' Purpose   : trouve le premièr texte alternatif associé aux images
'---------------------------------------------------------------------------------------
'
    Dim TableauIMG, TableauALT
    TableauIMG = Split(html, "<img", , vbTextCompare)
    For i = 1 To UBound(TableauIMG)
        If InStr(1, TableauIMG(i), "alt=", vbTextCompare) > 0 Then
            TableauALT = Split(TableauIMG(i), "alt=", , vbTextCompare)
            OuFiniAlt = InStr(2, TableauALT(1), """", vbTextCompare)
            If OuFiniAlt > 0 Then
                alt = Mid(TableauALT(1), 2, OuFiniAlt - 2)
                Exit For
            End If
        End If
    Next i
    get_alt_img = alt
End Function

[webosama80]

Bon j'ai trouvé ma solution, voivi le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim myinspector
Dim LoadViewPointInfo
Dim LoadViewPointInfo1
 
Set myinspector = ActiveInspector.WordEditor.Application.Selection
Set LoadViewPointInfo1 = myinspector.InlineShapes(1)
LoadViewPointInfo = LoadViewPointInfo1.AlternativeText
 
MsgBox LoadViewPointInfo
 
End Sub

Merci encore

[Oliv-]

Salut,

Ton besoin d'afficher le texte alternatif, est 'il à la conception du mail, ou à la réception ?

[webosama80]

Les deux : et à la création de mon mail, et à la réception du mail

[Oliv-]

Salut,
ta méthode fonctionne t'elle à la réception du mail ?

[webosama80]

Oui ça marche nickel