VBA Excel Macro ne pas envoyer d'e-mail - erreur

Question

J'ai le code suivant à tester pour envoyer des e-mails à des adresses e-mail spécifiées. À l'heure actuelle, cela ne fonctionnera pas.

Il est écrit "Étiquette non définie".

Sub GHF() 

    Dim CDO_Mail As Object 
    Dim CDO_Config As Object 
    Dim SMTP_Config As Variant 
    Dim strSubject As String 
    Dim strFrom As String 
    Dim strTo As String 
    Dim strCc As String 
    Dim strBcc As String 
    Dim strBody As String 

    Set ws = Sheets("Feedback") 
    ws.Select 

    strSubject = " Assessment Centre Feedback" 
    strFrom = "test@email.com" 
    strTo = Value & Range("M4").Value 
    strCc = "" 
    strBcc = "" 
    strBody = "Dear" & Value & Range("M4").Value & "Thank you for attending assesssment Centre. Please find attached your feedback from the day. Kind Regards, Employer" 

    Set CDO_Mail = CreateObject("CDO.Message") 
    On Error GoTo Error_Handling 

    Set CDO_Config = CreateObject("CDO.Configuration") 
    CDO_Config.Load -1 

    Set SMTP_Config = CDO_Config.Fields 

    With SMTP_Config 
     .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "fermat.axiomtech.co.uk" 
     .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
     .Item.Configuration.Fields.Update 
    End With 

    With CDO_Mail 
     Set .Configuration = CDO_Config 
    End With 
    End Sub 

Le nom de la feuille de calcul où les données se trouve est appelé « Commentaires » et le cahier de travail est appelé « Feedback avec Email »

Quelqu'un peut-il aider à identifier ce qui se passe?

Answer 1

De Adresse & Mot de passe

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xyz@Email.com" 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"