Добрый день. Просьба найти ошибку в следующем коде. Краткая информация: 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
|
