Ouvrir un nouveau email Outlook avec l'adresse dans une TextBox
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!
Bonjour,
Sub Macro1()
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
With ObjMessage
.To = Textbox5.value
.Subject = " | "
End With
'Libération des variables
Set ObjOutlook = Nothing
End SubUne autre solution proposé par misterjg70 consiste à utiliser les modèles de mail et faire un liens vers celui que l'on souhaite utiliser.
https://forum.excel-pratique.com/excel/macro-lancement-nouveau-mail-outlook-t72656.html
Merci!! Je ne sais pas pourquoi, mais là ça fonctionne!