2016-09-30 3 views
0

Я отправляю массовый адрес электронной почты всем сотрудникам с подписью по умолчанию в электронной почте 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 
+1

Не могли бы вы разместить свой полный код, где у вас есть объявления переменных? – RCaetano

+2

Просто вытащите строку '.Display'. – Comintern

+1

@Comintern Обычно, по моему опыту, для отображения подписи – niton

ответ

1

Вам не нужно звонить Display - подпись будет добавлена, даже если вы только звоните MailItem.GetInspector.

Во-вторых, вы объединяете 2 строки HTML - вы не можете этого сделать, они должны быть объединены.

+0

Не могли бы вы помочь нам в MailItem.GetInspector. Нужно ли использовать его как OutMail.GetInspector. Осло, пожалуйста, помогите слить строку. Спасибо за вашу поддержку и помощь. –

+0

Вы можете прочитать свойство GetInspector. После этого свойство HTMLBody будет содержать подпись. Что касается слияния двух тел, вы можете использовать объект HTMLDocument или просто искать позиции тега , а затем найти позицию следующего символа «>», а затем вставить свой собственный HTML. –

Смежные вопросы