Excel напоминание электронной почты к Outlook, когда excel обновляется

Question

Итак, кто-нибудь знает, можно ли отправлять напоминание от Excel к Outlook автоматически при каждом обновлении листа excel? Если да, как будет выглядеть эта часть макроса? Я не могу найти его в Интернете.

Answer 1

Следующий код, похоже, работает. Щелкните правой кнопкой мыши на листе и выберите «Просмотреть код» и выберите «Изменить событие для рабочей таблицы».

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim OutApp As Object 
Dim OutMail As Object 
Dim strbody As String 

Set OutApp = CreateObject("Outlook.Application") 
Set OutMail = OutApp.CreateItem(0) 

strbody = "Hi there" & vbNewLine & vbNewLine & _ 
      "This is line 1" & vbNewLine & _ 
      "This is line 2" & vbNewLine & _ 
      "This is line 3" & vbNewLine & _ 
      "This is line 4" 

On Error Resume Next 
With OutMail 
    .To = "someone@someemail.com" 
    .CC = "" 
    .BCC = "" 
    .Subject = "This is the Subject line" 
    .Body = strbody 
    'You can add a file like this 
    '.Attachments.Add ("C:\test.txt") 
    .Send 'or use .Display 
End With 
On Error GoTo 0 

Set OutMail = Nothing 
Set OutApp = Nothing 
End Sub