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
Partager