Добрый день.
Раннее постоянно пользовался макросом на отправку писем все происходило автоматом
Вдруг по не понятным причинам с вчерашнего дня , outlook начала запрашивать разрешение на отправку писем типа
" Программа пытается отправить сообщение от вашего имени . Если вы этого не ожидаете , нажмите кнопку "Запретить" и т.д."
Подскажите, что необходимо мне нажать в настройках чтобы отключить.
Вот сам макрос:
Раннее постоянно пользовался макросом на отправку писем все происходило автоматом
Вдруг по не понятным причинам с вчерашнего дня , outlook начала запрашивать разрешение на отправку писем типа
" Программа пытается отправить сообщение от вашего имени . Если вы этого не ожидаете , нажмите кнопку "Запретить" и т.д."
Подскажите, что необходимо мне нажать в настройках чтобы отключить.
Вот сам макрос:
| Код |
|---|
Set OutApp = CreateObject("Outlook.Application"
Set OutMail = OutApp.CreateItem(olMailItem)
ThisWorkbook.Sheets(Array("Название файла" ).Copy
With ActiveWorkbook
ActiveWorkbook.SaveCopyAs "C:\Temp\Название файла.xlsx"
End With
With OutMail
.To = "mail.ru"
.Cc = "mail.ru"
.Subject = "тема письма"
.Body = "Добрый День!"
.Attachments.Add ("C:\Temp\Название файла.xlsx"
.Send
End With
ActiveWorkbook.Close savechanges:=False |