Sub Mail(Sujet As String, Message As String, Destinataire As String, Optional Compte As String = "", Optional DestinataireCopy As String, Optional DestinataireCopyCacher As String, Optional Pj As String = "")
Set objOutlook = CreateObject("Outlook.application")
Set MailObj = objOutlook.CreateItem(olMailItem)
With MailObj
If Compte <> "" Then .SentOnBehalfOfName = Compte
.To = Destinataire
.CC = DestinataireCopy
.BCC = DestinataireCopyCacher
.Subject = "Votre call " & UserForm1.TextBox1.Value & " " & UserForm1.ComboBox1.Value
.BodyFormat = 2
.HTMLBody = "Votre demande" & UserForm1.TextBox1.Value
.Send
'.Display 'Can be .Send but prompts for user intervention before sending without 3rd party software like ClickYes
End With
End Sub
Sub Send()
Mail "Sujet", "Message", "", Compte:="Center@xxx.com", Pj:="", DestinataireCopyCacher:=""
End Sub