Страницы: 1
RSS
Установка в макросе даты и времяни доставки пьсма Outlook., Как в макросе указать время и дату доставки письма?
 
Добрый день. Каждый день требуется отправлять по 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
Изменено: Владимир Шаматонов - 12.05.2016 13:18:10
Не перестаю удивляться возможностям excel и VBA.
Страницы: 1
Наверх