Добрый день. Просьба найти ошибку в следующем коде. Краткая информация: MHC и inzh - checkbox, SendTo - textbox. Необходимо, чтобы send_click отправляла письмо по выбранным пользователям галочкам(checkbox), либо на адрес введенный вручную в поле SendTo. Не удается сделать так, чтобы во всех случаях корректно отправлялось письмо. Заранее спасибо
| Код |
|---|
Private Sub send_Click() If MHC.Value = True Then recipient = "MHC@pochta.ru" res = SendEmailUsingOutlook(recipient, letter, subject) End If If inzh.Value = True Then recipient = "inzh@pochta.ru" res = SendEmailUsingOutlook(recipient, letter, subject) End If If MHC.Value = False And inzh.Value = False And Mail.SendTo.Value = "" Then If Mail.SendTo.Value = "" Then MsgBox "Пусто" Else MsgBox Mail.SendTo.Value End If End If res = SendEmailUsingOutlook(recipient, letter, subject) If res Then MsgBox "Письмо отправлено успешно" Else MsgBox "Ошибка отправки" End Sub |
Изменено: - 14.01.2021 10:53:14
