Envoi mail par VBA et cdo - Récupérer texte d'une textbox co
Bonjour à tous les excelliens
A partir de ma base de données (BD), je peux filtrer mes adhérents et leur envoyer un mail à partir d'excel.
Lorsque j'utilise la procédure par CDO attachée à la macro de la feuille "Message1", je n'ai aucun souci. Les cellules B - B7 et B8 sont bien reprises dans la macro comme le corps du message (TextBody)
Par contre, lorsque j'utilise la procédure CDO attachée à la macro de la feuille "Message2", je souhaite utiliser comme TextBody le texte inscrit dans une TextBox. J'ai essayé plusieurs formules (TextBody = Range(TextBox) ; = TextBox.Text ; = TextBox.Value ...) ; toutes ont échoué.
Quelqu'un pourrait-il m'aiguiller afin que je puisse utiliser de préférence une TextBox comme corps du message, ceci étant plus souple pour préparer un message que l'utilisation de plusieurs cellules.
Je vous remercie par avance pour votre aide. Cordialement.
Set iMsg = CreateObject("CDO.Message")
With iMsg
Set .Configuration = iConf
.To = cell.Value
.From = Range("B2") 'à adapter
.Subject = Range("B4") 'à adapter
.TextBody = Range(TextBox)
.AddAttachment (Range("B10"))
Bonjour,
Essaye..
.TextBody = TextBox1.textA+
Bonjour Lermite,
Je te remercie pour ton aide mais cela ne fonctionne pas.
J'ai récupéré la solution par un autre internaute. Il faut en fait préciser la feuille sur laquelle se trouve la TextBox et écrire :
.TextbBody = Feuil5.TextBox.Text
Encore merci de m'avoir proposé une solution.
Cordialement.