macro pour boite e-mail RESOLUS

[jmcr]

bonsoir le forum
je voudrais savoir comment je peut faire a partir d' un macro avec un boutons useform pour ouvrir ma boite mail Yahoo svp
je vous remercie pour votre aide

 

[jmcr]

BONSOIR le forum
voila j ai trouvé un macro sur le web qui ouvre bien ma boite email Yahoo mais bizarre je dois avoir un x dans une colonne pouvez vous svp m'aidé a le simplifier ou l' améliorer pour accorder a un boutons
avec tout ma gratitude

Sub Macro21()
'sTO = sh.Cells(rw, 4)
sObjet = sh.Cells(rw, 5)
sMessage = sh.Cells(rw, 6)
Envoyer_Mail_Outlook sTO, sObjet, sMessage
End Sub

Function Envoyer_Mail_Outlook(destTO As String, objet As String, message As String)
'Nécessite d'activer la référence "Microsoft Outlook Library"
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String

Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
Nom_Fichier = fich
If objet = "" Then Exit Function
With oBjMail
.To = destTO
.Subject = objet
.Body = message
.Display ' vérification avant d'envoyer
' .Send
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Function


' Macro21 Macro
' Macro enregistrée le 29/06/2017 par jmc
'
'
End Function
il ouvre bien ma boite serveur et je vois mon adresse mail