Всем привет!
Есть код, отправки писем через оутлук, спасибо The Prist,
Option Explicit
есть ещё один код, обновления запроса в книге
пытаюсь организовать следующую схему запуска макросов:
1. открывается книга
2. запускается Макрос1 (обновление запросов)
3. и только после обновления запроса , запускается Send_Mail_Mass (отправка писем)
4. после книга сохраняется и закрывается
пробовал вот этот код
но не выходит.
Есть код, отправки писем через оутлук, спасибо The Prist,
Option Explicit
Код |
---|
Sub Send_Mail_Mass() Dim objOutlookApp As Object, objMail As Object Dim lr As Long, lLastR As Long Application.ScreenUpdating = False On Error Resume Next Set objOutlookApp = CreateObject("Outlook.Application") If Err.Number <> 0 Then Set objOutlookApp = Nothing: Set objMail = Nothing: Exit Sub objOutlookApp.Session.Logon lLastR = Cells(Rows.Count, 1).End(xlUp).Row 'определяем последнюю заполненную ячейку в столбце А 'цикл от второй строки(начало данных с адресами) до последней ячейки таблицы For lr = 2 To lLastR Set objMail = objOutlookApp.CreateItem(0) 'создаем новое сообщение 'создаем сообщение With objMail .to = Cells(lr, 1).Value 'адрес получателя .Subject = Cells(lr, 2).Value 'тема сообщения .Body = Cells(lr, 3).Value 'текст сообщения .Attachments.Add Cells(lr, 4).Value .Send 'Display, если необходимо просмотреть сообщение, а не отправлять без просмотра End With Next lr Set objOutlookApp = Nothing: Set objMail = Nothing Application.ScreenUpdating = True End Sub |
Код |
---|
Sub Макрос1() ' Макрос1 Макрос ActiveWorkbook.RefreshAll End Sub |
пытаюсь организовать следующую схему запуска макросов:
1. открывается книга
2. запускается Макрос1 (обновление запросов)
3. и только после обновления запроса , запускается Send_Mail_Mass (отправка писем)
4. после книга сохраняется и закрывается
пробовал вот этот код
Код |
---|
Private Sub Workbook_Open()' "Сюда вставляю коды" End Sub |