VBA Excel 宏不会通过电子邮件发送 - 错误

Question

我有以下代码来测试通过电子邮件发送到指定的电子邮件地址。目前它不会工作。

它显示“标签未定义”。

    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

数据所在的电子表格的名称称为“Feedback”，工作簿的名称称为“Feedback with Email”

谁能帮忙确定是怎么回事？

Answer 1

发件人地址和密码

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