Discussion :

[Jhofman]

bonjour

Je dois à partir de excel adapter un fichicer MSG appelé ci dessous LeFichier

Code :

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

1
2
3
4
5
6
7
8
 
Sub Ouverture_msg(LeFichier As String)
 Dim MyItem As Object
 Set myolapp = CreateObject("Outlook.Application")
    Set MyItem = myolapp.CreateItemFromTemplate(LeFichier)
    MyItem.Display
    MyItem.Subject = "toto"
End Sub

Je voudrais rechercher un texte dans le Body du modèle et le remplacer tout en gardant le format initial déjà présent dans le fichier template.
Merci de votre aide

[Oliv-]

Bonsoir,
Par exemple comme cela

Code :

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

MyItem.HTMLbody=replace(MyItem.HTMLbody,"Mot cherché","remplacement",,,vbTextCompare )