2016-09-30 177 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

您不需要撥打顯示屏 - 即使您只撥打MailItem.GetInspector,也會添加簽名。其次,你連接2個HTML字符串 - 你不能這樣做,他們必須合併。

+0

您可以請MailItem.GetInspector協助我們。我需要使用它作爲OutMail.GetInspector。另外,請協助合併字符串。感謝您的支持和幫助 –

+0

您可以閱讀GetInspector屬性。之後,HTMLBody屬性將包含簽名。至於合併兩個主體,您可以使用HTMLDocument對象,或者只需搜索「」字符的位置,然後插入您的自定義HTML。 –