excel - 发送电子邮件时处理弹出菜单

Question

我正在为 Excel 开发代码，它将通过 Outlook 在公司内部发送信息。

但是我们已经在 Outlook 中实现了功能，并且总是当我在 Outlook 中单击发送电子邮件时，我会弹出带有下拉菜单的窗口，我必须在其中选择电子邮件类别（这是我们内部的电子邮件分类）。

我不知道这个分类是如何工作的。

我在写新电子邮件的窗口中也有带有类别的按钮，如果我不标记它，我会在单击发送电子邮件按钮后弹出窗口。

我想默默地发送这封电子邮件，但我不知道我们已经实施的这种分类是否可行。

使用此代码，我还提到了带有分类的窗口。

Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "TEST"
Email_Send_From = ""
Email_Send_To = ""
Email_Cc = ""
Email_Bcc = ""
Email_Body = "TEST"
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description

有没有机会在代码中对这个文档进行分类，或者有没有其他方法可以静默发送电子邮件？

标签： excelvbaoutlook