Bonjour à tous!
Il y a beaucoup d'articles sur le sujet que j'ai explorés et essayés plusieurs méthodes, mais étrangement ça ne fonctionne pas et je ne sais trop pourquoi...
Voici ce que je recherche à faire :
J'ai un "TextBox5" qui contient l'adresse courriel et un "Label_Email" qui quand on click sur celui-ci, j'aimerais qu'une nouvelle fenêtre ouvre de Outlook pour envoyer un courriel à l'adresse courriel se retrouvant dans la "TextBox5". Je ne veux pas qu'il s'envoie automatiquement non plus.
Malgré des tests il y a toujours une erreur, mais je n'arrive pas à comprendre où. Voici le dernier en date d'aujourd'hui que j'ai essayé :
Private Sub Label_Email_Click()
Set objOutlook = CreateObject("Outlook.application")
Set MailObj = objOutlook.CreateItem(olMailItem)
With MailObj
.To = Me.TextBox5.Value
.Subject = " | "
End With
End Sub
Merci pour votre aide!