Добрый день. Каждый день требуется отправлять по 20-30 писем на на разные адреса с разными данными. Получилось сделать макрос, который сам это письмо создает, добавляет необходимых адресатов и даже вставляет в письмо нужную часть таблицы из одной большой. Но скоро долгожданный отпуск) и поставили задачу отпавить данные письма до отпуска, но что бы они пришли. как обычно в необходимое время. Ручной работы наверно на весь день - каждому письму задовать дату доставки, но не нравится мне больше всего то, что я не узнаю, возможно ли это реализовать через макрос, который мне автомотизирует все остальное. Решение найти пытался, из полезного нашел только настройку таймера - но это не то. Нужно что бы былы задана конкретнся дата и время получения(лучше чтоб из ячейки) при формировании письма. Часть макроса на формирование письма выглядит так - возможно как и адресата и текст письма, также можно задать функцию доставки на конкруютную дату и время:
Код
Set objOutlookApp = CreateObject("Outlook.Application")
objOutlookApp.Session.Logon
Set objMail = objOutlookApp.CreateItem(0) 'создаем новое сообщение
If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub 'если не получилось создать приложение или экземпляр сообщения - выходим
sTo = Range("C4").Value 'Кому
sSubject = Range("C6").Value 'Тема письма
sBody = Range("C7").Value 'Текст письма
With objMail 'создаем сообщение
.To = sTo 'адрес получателя
.CC = Range("C5").Value
.Subject = sSubject 'тема сообщения
'.Body = ??? 'отключил, текст вшит в НТМЛсообщение
.BodyFormat = olFormatHTML 'формат HTML
.HTMLBody = Range("C7").Value & SheetToHTML(ThisWorkbook.Worksheets("Доставка (2)"))
.Attachments.Add sAttachment
.Display 'Display, если необходимо просмотреть сообщение, а не отправлять без просмотра, '.Send 'отправлять без просмотра
End With