Outlook importer un fichier *oft dans outlook

[eastwick]

Bonjour à tous,
J'ai un fichier *oft dans C:\Users\prenom.nom\AppData\Roaming\Microsoft\Templates. Ce fichier est un mail type sans destinataire saisi mais avec déjà du texte et des destinataires en copie.
J'aimerais l'importer dans Outlook 2016 ou, encore mieux, le mettre dans le ruban en tâche rapide.
Merci !

 

[patidavi2000]

bonjour
pour l'ouvrir il faut aller dans les options, personnaliser le ruban et cocher développeur.
tu cliques sur développeur, choisir un formulaire
et tu sélectionnes modèles dans le fichier système et ouvrir

 

[eastwick]

Bonjour et merci, mais j'en suis déjà là. Je souhaite activer le mail en 1 clic depuis le ruban. En bref, mettre ce mail type accessible en raccourci.

 

[patidavi2000]

Bonjour
je ne pense pas que tu puisses l'épingler au ruban.
tu peux mettre ton fichier sur le bureau et l'ouvrir par double clic.

 

[eastwick]

Bonjour
je ne pense pas que tu puisses l'épingler au ruban.
tu peux mettre ton fichier sur le bureau et l'ouvrir par double clic.

j'en suis arrivé là... Merci, bonne journée

 

[fanch55]

Bonjour,

Insérer le code ci-contre dans un module d'outlook : Renseigner les Dossier et Modèle .	Sub GetModele() Dossier = "D:\........\Documents\Courrier\" Modele = "messageamoi.oft" CreateItemFromTemplate(Dossier & Modele, _ Session.GetDefaultFolder(olFolderDrafts)).Display End Sub
Lancer la personnalisation du Ruban
Créer un nouveau groupe à l'endroit désiré
Renommer le groupe, choisir une icone et faire Ok
Choisir la catégorie Macros Sélectionner le code créé faire ajouter dans le groupe créé
Faire renommer , choisir une icone pour le code faire ok faire ok sur la fenêtre des options
Vous avez maintenant un raccourci sur la barre vers votre modèle

 

[eastwick]

Bonjour,

Insérer le code ci-contre dans un module d'outlook : Renseigner les Dossier et Modèle .	Sub GetModele() Dossier = "D:\........\Documents\Courrier\" Modele = "messageamoi.oft" CreateItemFromTemplate(Dossier & Modele, _ Session.GetDefaultFolder(olFolderDrafts)).Display End Sub
Lancer la personnalisation du Ruban	Regarde la pièce jointe 1223416
Créer un nouveau groupe à l'endroit désiré	Regarde la pièce jointe 1223406
Renommer le groupe, choisir une icone et faire Ok	Regarde la pièce jointe 1223407
Choisir la catégorie Macros Sélectionner le code créé faire ajouter dans le groupe créé	Regarde la pièce jointe 1223409
Faire renommer , choisir une icone pour le code faire ok faire ok sur la fenêtre des options	Regarde la pièce jointe 1223414
Vous avez maintenant un raccourci sur la barre vers votre modèle	Regarde la pièce jointe 1223415

Bonjour,

Insérer le code ci-contre dans un module d'outlook : Renseigner les Dossier et Modèle .	Sub GetModele() Dossier = "D:\........\Documents\Courrier\" Modele = "messageamoi.oft" CreateItemFromTemplate(Dossier & Modele, _ Session.GetDefaultFolder(olFolderDrafts)).Display End Sub
Lancer la personnalisation du Ruban	Regarde la pièce jointe 1223416
Créer un nouveau groupe à l'endroit désiré	Regarde la pièce jointe 1223406
Renommer le groupe, choisir une icone et faire Ok	Regarde la pièce jointe 1223407
Choisir la catégorie Macros Sélectionner le code créé faire ajouter dans le groupe créé	Regarde la pièce jointe 1223409
Faire renommer , choisir une icone pour le code faire ok faire ok sur la fenêtre des options	Regarde la pièce jointe 1223414
Vous avez maintenant un raccourci sur la barre vers votre modèle	Regarde la pièce jointe 1223415

Bonjour et merci, mon code ne fonctionne pas :
Sub GetModele()
Dossier = "C:\Users\dimitri.derock\AppData\Roaming\Microsoft\Templates\"
Modele = "mandatement_GHSC.oft"
CreateItemFromTemplate(Dossier & Modele, _
Session.GetDefaultFolder(olFolderDrafts)).Display
End Sub

Voyez-vous où ça coince ???

 

[eastwick]

j'y suis arrivé ! Merci encore