如何获得空白电子邮件信封模板
当我在VBA中使用Email Envelope方法并首次inputTO，CC和BCC字段时，在下一次迭代期间，只要ActiveWorkbook.EnvelopeVisible = True ，第一个迭代/旧值自动填充。
我们如何使工作簿显示空白的To，CC和BCC字段值？ 我每次都想要一个空白信封，这可能吗？
我的一段代码：
Subj = "Updates" ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = Sendto .Item.CC = Sendcc .Item.BCC = Sendbcc .Item.Subject = Subj & " - " & Format(Now(), "dd-mmm-yyyy") .Item.Send End With ActiveWorkbook.EnvelopeVisible = False
只需重置它
Sub SendEmailToMe() Sendto = "aaa@aa.com" SendMEcc = "bbb@aa.com" SendMEbcc = "ccc@aa.com" Subj = "Updates" ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = Sendto .Item.CC = SendMEcc .Item.BCC = SendMEbcc .Item.Subject = Subj & " - " & Format(Now(), "dd-mmm-yyyy") MsgBox "This is how it looks before you sent it" .Item.Send End With MsgBox "Press Ok to reset it" ActiveWorkbook.EnvelopeVisible = True With ActiveSheet.MailEnvelope .Item.To = " " .Item.CC = " " .Item.BCC = " " .Item.Subject = " " End With End Sub
截图
