Bonjour,
Je souhaite que cela déclenche envoi par outlook office365 et non outlook. merci à vous
Sub mail_retour_OK()
nom = ActiveWorkbook.Name
Dim OLAPP As Outlook.Application
Dim olitem As Outlook.MailItem
Set OLAPP = CreateObject("outlook.application")
Set olitem = OLAPP.CreateItem(olMailItem)
With olitem
.To = ActiveCell.Value
.CC = "toto@gmail.com"
.Subject = "Le remplacement est ACCEPTE" & "(" & nom & ")"
.Body = "Bonjour," & Chr(13) & Chr(13) & _
"Demande de remplacement :" & Chr(13) _
& "La demande de remplacement de : " & CHOIX_RETOUR.Label2 & CHOIX_RETOUR.Label1 & _
Chr(13) & "est ACCEPTEE" _
& Chr(13) & Chr(13) & "Cordialement."
.Display
End With
'
Application.ScreenUpdating = True 'permet de figer l'écran
End Sub