Renvoi d'un Email

Option Compare Text
Private Sub Workbook_Open()

Application.ScreenUpdating = False
Sheets("feuille").Activate ' choisir la bonne feuille

If Time < "07:45:00" Then
'envoi mail
    Dim Sh, nSh As Worksheet
    Dim mMessage As Object
    Dim mConfig As Object
    Dim mChps
    Dim nWb As Workbook
    Dim WshShell, utilisateur
   
    Set Sh = ThisWorkbook.Sheets("feuille") 'choisir la bonne feuille
    Set mConfig = CreateObject("CDO.Configuration")
    mConfig.Load -1
    Set mChps = mConfig.Fields
    With mChps
        .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
       
        'Vous pouvez essayer sans ces trois lignes
       'Mais si votre serveur demande une authentification,
           .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "expediteur@gmail.com" 'mettre a jour
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "motdepasse" 'mettre a jour
        '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 = "destinataire@gmail.com"
        .From = "expediteur@gmail.com"
        .Subject = "Sujet"
        .TextBody = "mymessage"
      .Send 'ou .Display pour afficher le mail.
   End With
   Set mMessage = Nothing
 
    'Libère les ressources
   Set mConfig = Nothing
    Set mChps = Nothing

Dim Wb As Workbook

For Each Wb In Application.Workbooks
Wb.Save
Wb.Close
Next Wb

Application.Quit

End If
End Sub