vba 添加outlook 签名_如何在Outlook中添加默认签名

当年话下

我的解决方案是首先显示一条空消息(使用默认签名！)并将目标strHTMLBody插入现有消息中HTMLBody。如果像PowerUser所述，在编辑HTMLBody时签名被删除，您可以考虑在之后立即存储ObjMail.HTMLBody变量的内容并在之后添加，但这不是必需的。strTempObjMail.DisplaystrTempSub X(strTo as string, strSubject as string, strHTMLBody as string)

   Dim OlApp As Outlook.Application   

   Dim ObjMail As Outlook.MailItem 

   Set OlApp = Outlook.Application   Set ObjMail = OlApp.CreateItem(olMailItem)

   ObjMail.To = strTo

   ObjMail.Subject = strSubject   

   ObjMail.Display   'You now have the default signature within ObjMail.HTMLBody.

   'Add this after adding strHTMLBody

   ObjMail.HTMLBody = strHTMLBody & ObjMail.HTMLBody   'ObjMail.Send 'send immediately or 

   'ObjMail.close olSave 'save as draft

   'Set OlApp = NothingEnd sub