foster_1883
XLDnaute Nouveau
Bonsoir,
Comment puis-je remplacer l'adresse couriel dans la macro suivante par cette valeur sans obtenir d'erreur dû au : " "
Comment puis-je remplacer l'adresse couriel dans la macro suivante par cette valeur sans obtenir d'erreur dû au : " "
Code:
Sheets("OUVETURE").Range("G15")
Code:
'envoi par mail
If CheckBox1 = True Then
' Select the range of cells on the active worksheet.
ActiveSheet.Range("b12:d17").Select
' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True
' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Bonsoir, voici le rapport de balancement effectué par ________ pour la journée du " & Format(Date, "ddd mmmm yyyy")
.Item.To = "xxxxxxx@hotmail.com"
.Item.Subject = "Rapport de balancement - Délices en vrac : " & Format(Date, "dddd dd mmmm yyyy")
.Item.Send
End With
End If