Outlook из Access - как программно ответить на входящее письмо / Microsoft Access

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Outlook из Access - как программно ответить на входящее письмо

4 сообщений из 4, страница 1 из 1

Outlook из Access - как программно ответить на входящее письмо

#39596756

-SWAN-

Гость

Добрый день, ГУРУ Accessa!
Подскажите пожалуйста, как программно в Accesse ответить на входящее письмо (аналог нажатия в Outlook'e кнопки "Ответить")?
Спасибо заранее за любую помощь!

...

Рейтинг:

0 / 0

05.02.2018, 14:06

| Ответить | Цитировать | Написать

Outlook из Access - как программно ответить на входящее письмо

#39596766

-SWAN-

Гость

Для просмотра Входящих писем использую след. код:

Код: sql

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.

Sub AUTOListOLInbox_test()

Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderMail As Outlook.MAPIFolder
Dim OL_Attachment As Outlook.Attachment

Set OL_App = CreateObject("Outlook.Application")
Set OL_NameSpace = OL_App.GetNamespace("MAPI")

Dim i As Long, j As Long

Set OL_FolderMail = OL_NameSpace.Folders("testLebed2@mail.ru").Folders("&#194;&#245;&#238;&#228;&#255;&#249;&#232;&#229;")

Debug.Print "&#194;&#241;&#229;&#227;&#238; &#239;&#232;&#241;&#229;&#236; = " & OL_FolderMail.Items.Count
j = 0
For i = OL_FolderMail.Items.Count To 1 Step -1
    If OL_FolderMail.Items(i).UnRead = True Then
        Debug.Print OL_FolderMail.Items(i).Subject
        j = j + 1
    End If
Next i

Debug.Print "&#202;&#238;&#235;-&#226;&#238; &#237;&#229;&#239;&#240;&#238;&#247;&#232;&#242;&#224;&#237;&#237;&#251;&#245; = " & j

Set OL_App = Nothing
Set OL_NameSpace = Nothing
End Sub

...

Рейтинг:

0 / 0

05.02.2018, 14:14

| Ответить | Цитировать | Написать

Outlook из Access - как программно ответить на входящее письмо

#39596770

-SWAN-

Гость

Код: sql

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.

Sub AUTOListOLInbox_test()

Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderMail As Outlook.MAPIFolder
Dim OL_Attachment As Outlook.Attachment

Set OL_App = CreateObject("Outlook.Application")
Set OL_NameSpace = OL_App.GetNamespace("MAPI")

Dim i As Long, j As Long

Set OL_FolderMail = OL_NameSpace.Folders("testLebed2@mail.ru").Folders("Входящие")

Debug.Print "Всего писем = " & OL_FolderMail.Items.Count
j = 0
For i = OL_FolderMail.Items.Count To 1 Step -1
    If OL_FolderMail.Items(i).UnRead = True Then
        Debug.Print OL_FolderMail.Items(i).Subject
        j = j + 1
    End If
Next i

Debug.Print "Кол-во непрочитанных = " & j

Set OL_App = Nothing
Set OL_NameSpace = Nothing
End Sub

...

Рейтинг:

0 / 0

05.02.2018, 14:16

| Ответить | Цитировать | Написать

Outlook из Access - как программно ответить на входящее письмо

#39596883

-SWAN-

Гость

Вопрос снят! Итоговый код такой получился:

Код: sql

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.

Sub AUTOListOLInbox_test()
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderMail As Outlook.MAPIFolder
Dim OL_Attachment As Outlook.Attachment
Dim objReplyMessage As Outlook.MailItem
Set OL_App = CreateObject("Outlook.Application")
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
Dim i As Long, j As Long

Set OL_FolderMail = OL_NameSpace.Folders("testLebed2@mail.ru").Folders("Входящие")

Debug.Print "Всего писем = " & OL_FolderMail.Items.Count
j = 0
For i = OL_FolderMail.Items.Count To 1 Step -1
    If OL_FolderMail.Items(i).UnRead = True Then
        Debug.Print OL_FolderMail.Items(i).Subject
        j = j + 1
        
        Set objReplyMessage = OL_FolderMail.Items(i).Reply()
        objReplyMessage.Body = "УРА!!! Ответное письмо!" & Chr(13) & objReplyMessage.Body
        objReplyMessage.send
        Set objReplyMessage = Nothing
    End If
Next i

Debug.Print "Кол-во непрочитанных = " & j

Set OL_App = Nothing
Set OL_NameSpace = Nothing
End Sub

...

Рейтинг:

0 / 0

05.02.2018, 16:10

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Outlook из Access - как программно ответить на входящее письмо

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39596756&tid=1611727]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	5ms
check topic access:	5ms
track hit:	46ms
get topic data:	13ms
get forum data:	3ms
get page messages:	43ms
get tp. blocked users:	2ms
others:	263ms

total:	405ms