Discussion :

[KeteMeteK]

Salut à tous,

Je débute en VBA, et j'ai beau chercher partout, je ne trouve pas sur le web comment faire ce que je veux :

Nous avons une boite mail partagée sous Outlook 2013 (Via une délégation Exchange), dans laquelle un dossier "Modèles" a été créé, comportant des templates personnalisés (.oft), que nous utilisons régulièrement.
Je voudrais automatiser le fonctionnement de l'un d'entre eux, comme suit :

1/ Bouton macro qui ouvre automatiquement le mail modèle depuis son dossier dans l'arborescence Outlook, et non depuis un disque local ou réseau (Nous n'avons aucun disque réseau partagé, malheureusement)
2/ Ouverture automatique de la pièce jointe (Fichier .xls) (Faut-il passer par son enregistrement temporaire en local, puis sa suppression, ou peut-on l'ouvrir automatiquement?)
3/ Suppression de la pièce jointe dans le mail, mais le mail et la pièce jointe restent ouverts

J'ai réussi facilement à trouver comment ouvrir un template depuis un emplacement sur le disque via un bouton macro, mais je ne parviens pas à le faire depuis un dossier dans l'arborescence Outlook.

Je précise que dans nos boites Outlook, nous utilisons plusieurs boites (Boite perso, + délégation Exchange sur une boite commune). Il faut donc aller chercher le modèle sur une boite précise (Celle en délégation).

Le dossier "modèles" se trouve juste sous la boite de réception.

Mon ébauche, pour ouvrir le template depuis le disque local, est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub MakeItem()
Set newItem = Application.CreateItemFromTemplate("C:\Users\user\Desktop\template.oft")
newItem.Display
Set newItem = Nothing
End Sub

Pouvez-vous m'aider pour ouvrir le template depuis l'arborescence Outlook, et pour la suite, svp ?

Merci!

[Oliv-]

Salut,
essaye avec cela, en remplaçant "Survey" par le nom de ton template.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub DisplayForm()
   Set myFolder = Session.GetDefaultFolder(olFolderInbox)
   Set myItem = myFolder.Items.add("IPM.Note.Survey")
   myItem.Display
End Sub

[KeteMeteK]

Merci Oliv- pour ta réponse.

Malheureusement, quand je copie ce code, un blank mail est généré par Outlook, mais en aucun cas il ne parvient à ouvrir le template.
J'ai essayé avec son nom d'affichage, ou avec le nom de fichier *.oft, mais il ne s'ouvre pas