adresse mail active

[pouletou]

Bonjour, je voudrais savoir s'il est possible de faire en sorte qu'une adresse mail selectionnee par un menu deroulant ou avec recherchev soit active

 

[Moa]

Salut Pouletou !

Décortique cette macro trouvée sur le site :

<http://dj.joss.free.fr/web.htm>

Envoie un Mail: l'adresse est dans la cellule D1, le sujet dans la D2 et le texte dans la D3

'Tester avec Outlook Express 5.
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Msg & Range("d3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub


@ +

Moa