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 называется «Обратная связь с электронной почтой»
Может кто-нибудь помочь определить, что случилось?
У вас есть обработчик ошибок, советуя, чтобы перейти к метке, которая не существует ... – Dave
Удалить 'On Error GoTo Error_Handling' строку. Или даже лучше, напишите правильную обработку ошибок. – vacip
Привет, спасибо за подсказку. Я сделал это, и нет кода ошибки, но я не получил электронные письма. Я не знаю почему. – lilunique1