XL 2013 VBA - Envoi mail outlook selon valeur liste déroulante

[lemath87]

Oyez oyez chers amis,

Je vous énonce mon petit souci...

J'ai créé un ruban personnalisé dans un de mes fichiers (via Custom UI Editor). Dans ce ruban se trouve une liste déroulante de contacts.

J'aimerai, lorsque je clique sur un de ces contacts, qu'une nouvelle fenêtre Outlook s'ouvre directement avec l'adresse mail de ce contact directement encodée... Mais en aucun cas je ne veux joindre de fichier ou insérer de titre de mail préencodé...

Pourriez-vous m'aider ?

D'avance merci !

 

[don_pets]

Re : VBA - Envoi mail outlook selon valeur liste déroulante

'llo

Essaie un truc qui ressemblerait à ça

Set myOlApp = CreateObject("Outlook.Application")
Set myitem = myOlApp.CreateItem(olMailItem)
With myitem
.Recipients.Add Range("h2").Value 'A adapter
.Subject = "Tralala"
myitem.Display
End With

don