MyTetra Share
Делитесь знаниями!
Пересылка входящих писем Outlook посредством VBA [В закладки] [Окно ответа] #2
23.04.2018
11:24
Текстовые метки: vba, outlook,
Раздел: VBA - Outlook

Пересылка входящих писем Outlook посредством VBA [В закладки] [Окно ответа] #2
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



Private Sub Application_Startup()

'событие запуска аутлука

Dim objApp As Object

On Error Resume Next

   Set objApp = GetObject(, "Excel.Application")

If Err Then

   On Error Resume Next

      Set objApp = CreateObject("Excel.Application")

   If Err Then

      MsgBox "Не удалось запустить Excel"

      Exit Sub

   End If

End If

 

Dim objBook As Object

Set objBook = objApp.WorkBooks.Open(BookName) 'здесь указать имя книги

'здесь вставить код, вычитывающий адресатов из книги

 

Set objApp = Nothing

Set objBook = Nothing

End Sub

 

Private Sub Application_NewMail()

'событие получения нового письма

Dim objMails As Object

Dim objMail As Object

Set objMails = Application.Session.GetDefaultFolder(olFolderInbox).Items

Set objMail = objMail(objMails.Count)

objMail.Forward

objMail.Recipients.Add "<сюда вписать адресата>"

objMail.Send

Set objMails = Nothing

Set objMail = Nothing

End Sub


код нужно вставить в модуль приложения (ThisOutlookSession)
Последний раз редактировалось petr-sev; 03.03.2015 в 11:57.

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования