Bonjour,
je cherche à modifier un texte d'un modele outlook via excel vba

voici mon code
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
 
Sub CreateFromTemplate()
    Dim myOlApp As Outlook.Application
    Dim MyItem As Outlook.MailItem
    Set myOlApp = CreateObject("Outlook.Application")
    Set MyItem = myOlApp.CreateItemFromTemplate("S:\DONNEES\Office\Modèles\ModeleResa.oft")
    MyItem.Subject = "test mail"
    MyItem.To = "xx@x.fr"
 
'ici il faudrait un truc genre ...
        MyItem.Items ("stagiairenom")
        MyItem.Bookmarks("stagiairenom").Range.Text = "stagiairenom"
'mais ce code ne fonctionne évidemment pas ...:(
 
    MyItem.Display
End Sub
Je travaille sur office 2003
merci de votre aide