macro pour nouveau modèle outlook

[davzell]

Salut a tous,

j'ai fais plusieurs macro pour ouvrir des nouveau modèle de courriers dans outlook.

elle ressemble à ca

Code :

1
2
3
4
5
Sub Support() 
Set newItem = Application.CreateItemFromTemplate("\\srv-sharepoint\Documents partags\DemandeDeCollaborationSupportHLT.oft") 
newItem.Display 
Set newItem = Nothing 
End Sub

le problème, c'est que si je ne rentre pas au moins une fois dans le chemins unc ou sont mes documents (\\srv-sharepoint\Documents partags....)
j'ai une erreur de ce type =>

erreur d'execution '-2147024843 la methode "creatitemfromtemplate de l'objet application a échoué

une idée de comment je peux faire ?

merci d'avance