Форум программистов, компьютерный форум, киберфорум
MS Office Outlook
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/8: Рейтинг темы: голосов - 8, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 03.08.2018
Сообщений: 27
1

Ежемесячная отправка писем Outlook 2016

07.12.2018, 13:42. Просмотров 1562. Ответов 3
Метки нет (Все метки)

Добрый день!

Подскажите пожалуйста подбробно как настроить простую ежемесячную отправку письма адресату:

To: test@mail.ru; test2@mail.ru
Subject: Test
Text: Hello, how are you?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2018, 13:42
Ответы с готовыми решениями:

Автоматическая отправка писем из Outlook
Во входящие поступает унифицированное письмо, содержащее в теле письма тлф номер и @. Задача:...

Автоматическая ежедневная отправка писем из Outlook
Товарищи, помогите, пожалуйста в вопросе: каждый день на один и тот же адрес нужно отправлять...

Outlook 2016
Всем добрый день, следущая проблема : при старте outlook 2016 закрывается автоматически , после...

Ost outlook 2016
Здравствуйте. Установлен windows 2012 r2 server, outlook 2016. Перемещаемые профили. Всё...

3
1153 / 445 / 85
Регистрация: 13.12.2016
Сообщений: 1,591
Записей в блоге: 2
09.12.2018, 17:46 2
maaad, просто
Создать встречу
Пригласить участников (в поле кому: указать адреса)
Настроить напоминание(за какое время до события пригласить)
Указать повторение встречи ежемесячно
0
0 / 0 / 0
Регистрация: 03.08.2018
Сообщений: 27
09.12.2018, 18:19  [ТС] 3
АЕ, Интересует автоматическая отправка через VBA.
0
1153 / 445 / 85
Регистрация: 13.12.2016
Сообщений: 1,591
Записей в блоге: 2
10.12.2018, 00:23 4
maaad, можно и через VBA. примеров полно
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub Send_Mail()
    Dim objOutlookApp As Object, objMail As Object
    Dim sTo As String, sSubject As String, sBody As String, sAttachment As String
 
    Application.ScreenUpdating = False
    On Error Resume Next
    'пробуем подключиться к Outlook, если он уже открыт
    Set objOutlookApp = GetObject(, "Outlook.Application")
    Err.Clear 'Outlook закрыт, очищаем ошибку
    If objOutlookApp Is Nothing Then
        Set objOutlookApp = CreateObject("Outlook.Application")
    End If
    objOutlookApp.Session.Logon
    Set objMail = objOutlookApp.CreateItem(0)   'создаем новое сообщение
    'если не получилось создать приложение или экземпляр сообщения - выходим
    If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub
 
    sTo = "AddressTo@mail.ru"    'Кому(можно заменить значением из ячейки - sTo = Range("A1").Value)
    sSubject = "Автоотправка"    'Тема письма(можно заменить значением из ячейки - sSubject = Range("A2").Value)
    sBody = "Привет от Excel-VBA"    'Текст письма(можно заменить значением из ячейки - sBody = Range("A3").Value)
    sAttachment = "C:\Temp\Книга1.xls"    'Вложение(полный путь к файлу. Можно заменить значением из ячейки - sAttachment = Range("A4").Value)
 
    'создаем сообщение
    With objMail
        .To = sTo 'адрес получателя
        .CC = "" 'адрес для копии
        .BCC = "" 'адрес для скрытой копии
        .Subject = sSubject 'тема сообщения
        .Body = sBody 'текст сообщения
        '.HTMLBody = sBody 'если необходим форматированные текст сообщения(различные шрифты, цвет шрифта и т.п.)
        .Attachments.Add sAttachment 'чтобы отправить активную книгу вместо sAttachment указать ActiveWorkbook.FullName
        .Send 'Display, если необходимо просмотреть сообщение, а не отправлять без просмотра
    End With
 
    Set objOutlookApp = Nothing: Set objMail = Nothing
    Application.ScreenUpdating = True
End Sub
Только 2 ньюанса
1- эту процедуру надо всегда держать в памяти и
2-выполнять проверку не настало ли время события на выполнение кода
Нужен такой гемор?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.12.2018, 00:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Нет писем в outlook
Здравствуйте! Установил outlook из пакета office 365. Настроил рабочую почту через imap на 4...

Рассылка через Outlook 2016 на mail.ru
Добрый день! Вновь прошу совета. Секретарь создала в Outlook 2016 группу &quot;Рассылка&quot;, в которую...

Режим отображения вложений в Outlook 2016
Можно ли сделать чтобы вложения отображались так, как это было в 2010/2013 Outlook? С отображением...

группировка в беседы OUTLOOK 2016 + MS Exchange
Добрый день! Есть такой вопрос по беседам в outlook 2016. В организации использовался не ms...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.