添加签名时Outlook屏幕闪烁

Question

我向Outlook电子邮件中默认签名的所有员工发送批量电子邮件。我面临的唯一问题是屏幕闪烁。我使用过Application.ScreenUpdating = False但它无效。请告知可以做些什么。

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

Answer 1

您不需要拨打电话显示 - 即使您只拨打MailItem.GetInspector，也会添加签名。

其次，您正在连接2​​个HTML字符串 - 您不能这样做，它们必须合并。