Добрый день.
Раннее постоянно пользовался макросом на отправку писем все происходило автоматом
Вдруг по не понятным причинам с вчерашнего дня , 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 |