Objet email

[JANO]

Bonjour le forum,

pourriez vous me dire comment faire pour que la parti rouge du code ci joint soit relatif à le cellule L5.

je vous joint le fichier au cas ou

merci à tous de vos réponses



Private Sub Envoyer_1_Click()

'Protection

ActiveSheet.Unprotect
Range("B48:C52").Select
Selection.Locked = True
Range("G48").Select
ActiveSheet.Protect
cliquer_1.Enabled = False
Envoyer_1.Enabled = False
Cliquer_2.Enabled = True
Envoyer_2.Enabled = True
'Envoi


Dim Wbk As Workbook
Set Wbk = ActiveWorkbook

Wbk.SendMail Array("toto@toto.com"), " Demande k52541 "

Set Wbk = Nothing

aurevoir.Show


Application.Quit
ThisWorkbook.Close SaveChanges:=False

End Sub

 

[datacell33]

Re : Objet email

Tu écris simplement (si la feuille en cours est bien celle qui a la cellule L5 qui t'interesse) :

Wbk.SendMail Array("toto@toto.com"), Cells(12,5).value

ou

Wbk.SendMail Array("toto@toto.com"), Sheets("xxxx").Cells(12,5).value

Avec xxxx = le nom de ton onglet.

Cdlt.

 

[JANO]

Re : Objet email

Merci Datacell33, mais les emails arrivent sans objet !

et j'ai essayé les deux solutions


Private Sub Envoyer_1_Click()
Dim Wbk As Workbook
Set Wbk = ActiveWorkbook
Wbk.SendMail Array("toto@toto.com"), Cells(12, 5).Value
Set Wbk = Nothing
End Sub

je continu d'essayer

merci

 

[JNP]

Re : Objet email

Bonsoir le fil 🙂,
Pourquoi un Array ?

Wbk.SendMail "toto@toto.com", "[COLOR=black]Demande k52541"[/COLOR]

fonctionnera.
En cas de plusieurs adresses, plutôt utiliser

Wbk.SendMail "toto@toto.com;tata@tata.cam", "[COLOR=black]Demande k52541"[/COLOR]

Bon courage 😎

 

[JANO]

Re : Objet email

merci JNP, mais j'ai besoin que la parti du code en rouge ci dessous face référence à la cellule L5 (Car elle est changeante)


Wbk.SendMail "toto@toto.com;tata@tata.cam", "Demande k52541"

cordialement,

 

[JNP]

Re : Objet email

Re 🙂,

j'ai besoin que la parti du code en rouge ci dessous face référence à la cellule L5 (Car elle est changeante)
Wbk.SendMail "toto@toto.com;tata@tata.cam", Range("L5")

Bonne soirée 😎

 

[JANO]

Re : Objet email

super, merci JNP