Tag: 邮件发件人

EXCEL VBA，手动Outlook电子邮件发件人，类模块问题

我仍然在处理我在第一个关于这个主题的问题中所描述的问题 。 简短的刷新，它是一个Excel文件，其中包含电子邮件模板和附件的列表，对每个列表单元我添加打开给定单元的模板的button，使有一些变化，然后附加文件，并显示邮件到用户。 用户可以根据需要修改邮件，然后发送或不发送邮件。 我已经尝试了下面描述的几种方法。 不幸的是，我现在在类模块的问题上停滞不前， 这里简要描述。 我已经创build了一个类模块，比如'EmailWatcher'，甚至与这里描述的方法做一个小的组合： Option Explicit Public WithEvents TheMail As Outlook.MailItem Private Sub Class_Terminate() Debug.Print "Terminate " & Now() End Sub Public Sub INIT(x As Outlook.MailItem) Set TheMail = x End Sub Private Sub x_Send(Cancel As Boolean) Debug.Print "Send " & Now() ThisWorkbook.Worksheets(1).Range("J5") = Now() 'enter code here End Sub Private […]