Есть ли какой-либо код для отправки диапазона в орган электронной почты, если превышено определенное время в диапазоне. Это должно быть автоматизировано, а не кнопка.Диапазон автоматической отправки по электронной почте тела
Для того, чтобы каждый день отправлять посылку отправки электронной почты, самое простое - использовать OnTime-method. В вашем случае, вы бы поставить что-то подобное в ThisWorkbook -модуль:
Private Sub Workbook_Open()
Call new_timer
End Sub
и что-то подобное в стандартном модуле:
Sub email_sending_macro
<your code to send the email>
Application.Wait(Now + TimeValue("0:00:01"))
Call new_timer
End Sub
Sub new_timer
Application.OnTime TimeValue("16:00:00"), "email_sending_macro"
End Sub
Это должно установить код для запуска на 4 о» часы каждый день. Application.Wait есть на всякий случай, если макрос занимает меньше секунды, чтобы запустить, вы не хотите, чтобы он отправлял более одного электронного письма, не так ли? :)
Я поработаю над этим в понедельник и вернусь к вам, если возникнут какие-либо вопросы. – Changer
Я был бы признателен, если бы вы пометили его как решенный, если он сработает для вас. – eirikdaude
Я работал над этим, но до сих пор не работаю для меня, вы можете написать для меня весь код, и я попробую его, а также этот код будет помещен в excel или Outlook. – Changer
Да, вы можете использовать событие OnTime. Испытали ли вы что-нибудь сами, до сих пор? – eirikdaude
@eirik Спасибо за ваше драгоценное время. Вот код, который я сделал до сих пор. Я не могу опубликовать его, поскольку он показывает, что он слишком длинный. – Changer
Мне не нужно все это видеть, что касается конкретной операции, которую вы хотите сделать здесь. Самый простой способ показать это, вероятно, просто изменить его в исходном вопросе. Если вы хотите дать ему самостоятельный вариант, я бы рекомендовал вам взглянуть на ['OnTime'-events] (https://msdn.microsoft.com/en-us/library/office/ff196165. aspx), как уже упоминалось – eirikdaude