Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Outlook из Access - как программно ответить на входящее письмо / 4 сообщений из 4, страница 1 из 1
05.02.2018, 14:06
    #39596756
-SWAN-
-SWAN-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook из Access - как программно ответить на входящее письмо
Добрый день, ГУРУ Accessa!
Подскажите пожалуйста, как программно в Accesse ответить на входящее письмо (аналог нажатия в Outlook'e кнопки "Ответить")?
Спасибо заранее за любую помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.02.2018, 14:14
    #39596766
-SWAN-
-SWAN-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook из Access - как программно ответить на входящее письмо
Для просмотра Входящих писем использую след. код:
Код: 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
    #39596770
-SWAN-
-SWAN-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook из Access - как программно ответить на входящее письмо
Код: 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, 16:10
    #39596883
-SWAN-
-SWAN-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Outlook из Access - как программно ответить на входящее письмо
Вопрос снят! Итоговый код такой получился:

Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Outlook из Access - как программно ответить на входящее письмо / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 149ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1611727]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 56ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 2ms
others: 13ms
total:  149ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]