Можно ли через VBA сделать отправку уведомлений на почту?

Question

[MiaMeister]

Можно ли написать скрипт через VBA, который будет отправлять уведомление на почту о внесении изменений в Excel файле? Или возможно есть какие-нибудь сторонние приложения?
Если такое возможно, то просьба написать подробно, что и как нужно сделать. Заранее спасибо!

Comments

[Akina]

А какие сложности-то? Если в системе есть обработчик SimpleMAPI, то задача несложная. Объектная модель вполне доступна.

Answer 1

[CityCat4]

На VBA можно написать вообще все, что угодно.

Вот пример кода, отправляющего письмо:

strMailReceiver = "[e-mail]"
strMailServer = "10.7.1.6"

  Set objEmail = WScript.CreateObject("CDO.Message")

  objEmail.From = """Dyadya Fedor"" [e-mail]"
  objEmail.To = strMailReceiver
  objEmail.Subject = "Figvam narisuem"
  objEmail.Textbody = strMailBody

  ' Send with SMTP server (1 - use local SMTP)
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

  ' Specify SMTP server
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer

  objEmail.Configuration.Fields.Update
  objEmail.Send

Comments

[#]

есть вещи, которые не стоит писать на vba )))
.. но.. не оспорить, в теории - да хоть компиляторы и нейросети (winapi же доступен )))

[CityCat4]

#, Есть наверное. Данный пример - кусок скрипта, который проверяет наличие некоего сервиса в локальной сети и формирует отчет о проверке.