Я отправляю массовый адрес электронной почты всем сотрудникам с подписью по умолчанию в электронной почте Outlook. Единственная проблема, с которой я столкнулся, - это мигать. Я использовал Application.ScreenUpdating = False
, но он не работает. Пожалуйста, сообщите, что можно сделать.Экран Outlook мигает при добавлении подписи
With OutMail
.BodyFormat = olFormatHTML
.Display
End With
Signature = OutMail.HTMLBody
On Error Resume Next
With OutMail
.To = ws.Cells(I, 4).Value
.Subject = ws.Cells(I, 1).Value & "-" & ws.Cells(I, 3).Value
.HTMLBody = StrBody & vbNewLine & RangetoHTML(rng) & vbNewLine & Signature
.Send
End With
Не могли бы вы разместить свой полный код, где у вас есть объявления переменных? – RCaetano
Просто вытащите строку '.Display'. – Comintern
@Comintern Обычно, по моему опыту, для отображения подписи – niton