Envoie de mail en CDO

Bien le bonjour le forum

Voila j'ai fait mon module pour envoyer un mail en CDO qui fonctionne très bien mais j'ai une petite question.

Y a t'il un moyen comme l'envoie de mail via outlook de supprimer un mail après l'envoie ??

Comme avec ceci : .DeleteAfterSubmit = True

Petite précision je suis sous excel 16

Merci pour vos réponses

Bonjour,

le code suivant te permet d'envoyer des messages sans garder une copie dans ta boite mail. à tester

Set objEmail = CreateObject("CDO.Message")
    objEmail.From = ""
    objEmail.To = ""
    objEmail.Subject = "" 
    objEmail.Textbody = ""
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpservername" 
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update
    objEmail.Send

Oui beh c'est se que j'ai fait mais sa me laisse une trace dans mail envoyer

Public Sub EnvoieMailGoogle()
Dim mMessage As Object
Dim mConfig As Object
Dim mSch
    Set mConfig = CreateObject("CDO.Configuration")
    'mConfig.Load -1
    Set mSch = mConfig.Fields
    With mSch
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        'Adapter suivant votre serveur de mail. (exemple pour Gmail.)=> Hormail "smtp.live.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
        'En principe, 25 fonctionne avec tout les serveurs.
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
        'Si le serveur demande une authentification,
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*******@gmail.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"
        'Si votre serveur demande une connexion sûre (SSL)
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
        .Update
    End With
    Set mMessage = CreateObject("CDO.Message")
    With mMessage
    Set .Configuration = mConfig
        .To = "****@gmail.com"
        .From = "****@gmail.com"
        .subject = "Le sujet du mail"
        .TextBody = "Ce mail vous est envoyer pour tester la macros." 'vbCrLf = retour a la ligne
        'Pour ajouter une pièce jointe, un fichier, classeur, image etc.
        '.AddAttachment 'Chemin et nom complet du fichier à joindre
        'Envoie du mail
        .Send
    End With
    'Libère les ressources
    Set mMessage = Nothing
    Set mConfig = Nothing
    Set mSch = Nothing
    'Message de confirmation d'envoie
    MsgBox "Le mail a été envoyer"
End Sub

Essaie avec un server SMTP sans authentification, (cherche free smtp server without authentication) sur internet

Ok merci je vais essayer de chercher de se coter la