2016-09-13 6 views
0

У меня есть следующий код для проверки электронной почты на указанные адреса электронной почты. В настоящее время это не сработает.VBA Excel Macro не отправит сообщение по электронной почте - ошибка

В нем говорится: «Ярлык не определен».

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 = "[email protected]mail.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 

Имя таблицы, где данные сидит называется «Обратная связь» и Workbook называется «Обратная связь с электронной почтой»

Может кто-нибудь помочь определить, что случилось?

+2

У вас есть обработчик ошибок, советуя, чтобы перейти к метке, которая не существует ... – Dave

+1

Удалить 'On Error GoTo Error_Handling' строку. Или даже лучше, напишите правильную обработку ошибок. – vacip

+0

Привет, спасибо за подсказку. Я сделал это, и нет кода ошибки, но я не получил электронные письма. Я не знаю почему. – lilunique1

ответ

0

От адреса & Пароль

.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]" 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"