OUTLOOK SANS QUESTION

Sub MailEnvoi(Destinataire As String, Sujet As String, Optional Correspondant_CC As String, Optional Correspondant_BCC As String, Optional CorpsDuTexte As String, Optional Attach As Variant)
Set objEmail = CreateObject("CDO.Message")
'Set objEmail = CreateObject("cdonts.NewMail")

    objEmail.From = "XXXX"
    objEmail.To = Destinataire
    objEmail.CC = Correspondant_CC
    objEmail.BCC = Correspondant_BCC
    objEmail.Subject = Sujet
    objEmail.TextBody = CorpsDuTexte
        If Attach <> "" Then objEmail.AddAttachment Attach
        
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    'Name or IP of Remote SMTP Server
    objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.7.1"
    '"smtp.radissonSAS.com" 192.168.X.X"

    'Server port (typically 25)
    'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    objEmail.Configuration.Fields.Update

    objEmail.Send

End Sub