Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/отправка письма outlook по расписанию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Готовые решения » отправка письма outlook по расписанию (Excel)
отправка письма outlook по расписанию
Flatcher Дата: Воскресенье, 03.07.2016, 12:33 | Сообщение № 1
Группа: Проверенные
Ранг: Участник
Сообщений: 68
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Добрый день! Бывает необходимо раз в месяц отправлять письмо одному и тому же адресату с определенной целью - например запрос документов, отчетов и т. д. Данный макрос решает данную задачу. Необходимо поместить код в ThisOutlookSession и каждый раз в определенную дату при запуске Outlook адресату будет отправляться "нужное" письмо.

[vba]
Код
Option Explicit
Const APP_ID = "sendmail", SECT_ID = "Default", KEY = "Num"

Private Sub Application_Startup()
Dim n As Long
Dim dt As Date, d As Integer
    d = Day(Now)
    n = GetSetting(APP_ID, SECT_ID, KEY, 0)
    
If n = 0 And d = 2 Then
    Dim objOL As Outlook.Application
    Dim objMail As MailItem
    Set objOL = Outlook.Application
    Set objMail = objOL.CreateItem(olMailItem)
        With objMail
            .SendUsingAccount = .Session.Accounts.Item(2) 'указывается порядковый номер аккаунта для выбора адреса отправки
            .To = "" 'указывается адрес получателя
            .CC = ""
            .Body = "Добрый день! Пришлите пожалуйста подписанный акт сверки за предыдущий месяц" 'указывается текст письма
            .Subject = "Запрос акта сверки" 'указывается тема письма
            .Send
        End With
    Set objMail = Nothing
    Set objOL = Nothing
    n = 1
    SaveSetting APP_ID, SECT_ID, KEY, n
End If

If d <> 2 Then
    n = 0
    SaveSetting APP_ID, SECT_ID, KEY, n
End If
End Sub
[/vba]


Сообщение отредактировал Flatcher - Воскресенье, 03.07.2016, 12:34
 
Ответить
СообщениеДобрый день! Бывает необходимо раз в месяц отправлять письмо одному и тому же адресату с определенной целью - например запрос документов, отчетов и т. д. Данный макрос решает данную задачу. Необходимо поместить код в ThisOutlookSession и каждый раз в определенную дату при запуске Outlook адресату будет отправляться "нужное" письмо.

[vba]
Код
Option Explicit
Const APP_ID = "sendmail", SECT_ID = "Default", KEY = "Num"

Private Sub Application_Startup()
Dim n As Long
Dim dt As Date, d As Integer
    d = Day(Now)
    n = GetSetting(APP_ID, SECT_ID, KEY, 0)
    
If n = 0 And d = 2 Then
    Dim objOL As Outlook.Application
    Dim objMail As MailItem
    Set objOL = Outlook.Application
    Set objMail = objOL.CreateItem(olMailItem)
        With objMail
            .SendUsingAccount = .Session.Accounts.Item(2) 'указывается порядковый номер аккаунта для выбора адреса отправки
            .To = "" 'указывается адрес получателя
            .CC = ""
            .Body = "Добрый день! Пришлите пожалуйста подписанный акт сверки за предыдущий месяц" 'указывается текст письма
            .Subject = "Запрос акта сверки" 'указывается тема письма
            .Send
        End With
    Set objMail = Nothing
    Set objOL = Nothing
    n = 1
    SaveSetting APP_ID, SECT_ID, KEY, n
End If

If d <> 2 Then
    n = 0
    SaveSetting APP_ID, SECT_ID, KEY, n
End If
End Sub
[/vba]

Автор - Flatcher
Дата добавления - 03.07.2016 в 12:33
Мир MS Excel » Вопросы и решения » Готовые решения » отправка письма outlook по расписанию (Excel)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!