署名を追加中に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に、2つのHTML文字列を連結します。これを行うことはできません。マージする必要があります。