Bonjour,
je cherche à modifier un texte d'un modele outlook via excel vba
voici mon code
Je travaille sur office 2003
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
merci de votre aide
Partager