Macro lancement nouveau mail outlook

Bonsoir,

Dans le fichier joint, j'ai créé une macro pour lancer outlook.

Je ne parviens à trouver la syntaxe pour que le lien lance un nouveau mail.

Pourriez-vous m'aider?

Je vous remercie par avance.

Pour ceux que cela intéresse :

Sub ...()

'Définition des objets Outlook et du message.

Dim ObjOutlook As Object

Dim ObjMessage As Object

'Ouverture d'Outlook et création d'un message vierge

Set ObjOutlook = CreateObject("Outlook.Application")

Set ObjMessage = ObjOutlook.createitem(0)

ObjMessage.Display

'Libération des variables

Set ObjOutlook = Nothing

End Sub

bonjour,

j'ai trouvé une solution toute simple pour ouvrir un nouveau message Outlook, ou pour ouvrir n'importe quel modèle de mail Outlook depuis Excel :

- tous vos modèles de mails sont stockés sur votre PC dans : C:\users\nomd'utilisateur\Appdata\Roaming\Microsoft\templates\modeledemail.oft

vous créer donc simplement un lien hypertexte vers chaque modèle et le tour est joué, sans macro à créer.

si après vous maitrisez les listes déroulantes vous le faites avec liste déroulante et comme ça vous choisissez le modèle de mail que vous souhaitez envoyer.

c'est ce que j'ai trouvé de plus simple, n'étant pas un pro de la macro

Super intéressant. J'adopte de suite. Merci pour cette astuce.

je vous en prie ;o) bonne journée

8)