Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
запуск макроса в excel при отправке письма
 
Господа!
Имеется макрос в Excel, создающий письмо в Outlook на основании данных из листа книги.
Необходимо, чтобы в случае отправки этого письма автоматически запускался следующий макрос.
пример кода:
Sub newsale()
ThisWorkbook.Sheets(1).Range("H61:J76").Select
Selection.Copy
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
       Application.ScreenUpdating = False
   Set OutApp = CreateObject("Outlook.Application")
   OutApp.Session.Logon
   Set OutMail = OutApp.CreateItem(0)
 Set cell = Range("I61:J75")

       OutMail.to = "XXX@XXX.com"
      OutMail.cc = " "
       OutMail.Subject = "NEW SALE -" + Range("I61")
       OutMail.readreceiptrequested = True
       OutMail.display
       If OutMail.Sent Then
       db1
       Else
       Set OutMail = Nothing
       Exit Sub
      End If
   End Sub
Суть в том, что пользователь вставляет сам Slection и в ручную отправляет письмо, и вот если он его отправил, то должен запуститься макрос db1.
Страницы: 1
Читают тему (гостей: 1)
Наверх