创建新电子邮件时提示主题行

Question

我使用的是 2007 Outlook。

我正在尝试获取一个代码，在创建新电子邮件时提示用户选择一个固定的单选按钮选项，如下所示 [A]: , [R]:, [F:] , [!] : , 空白（使主题行空白的选项）。

我希望该选择自动插入到主题行中。

我在网上找到了代码，但在代码末尾出现错误。

Private Sub m_colInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)

我将此代码粘贴到 ThisOutlookSession 模块中。

Option Explicit
Private WithEvents m_colInspectors As Outlook.Inspectors
Private WithEvents CurrentInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set m_colInspectors = Application.Inspectors
End Sub

Private Sub CurrentInspector_Activate()
    Dim oMail As Outlook.MailItem
    If Len(UserForm1.SelectedSubject) Then
        Set oMail = CurrentInspector.CurrentItem
        oMail.Subject = UserForm1.SelectedSubject
    End If
    Set CurrentInspector = Nothing
End Sub

Private Sub m_colInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
    If Inspector.CurrentItem.EntryID = vbNullString Then
        UserForm1.SelectedSubject = vbNullString
        UserForm1.Show
        Set CurrentInspector = Inspector
    End If
End If
End Sub

我创建了一个带有单选按钮和一个命令按钮的表单，我在其中插入了以下代码。

Option Explicit
Public SelectedSubject As String

Private Sub CommandButton1_Click()
    If OptionButton1.Value = True Then
        SelectedSubject = "Test"
    End If
    Hide
End Sub

Answer 1

这可能会让你想要你想要的。把它放在ThisOutlookSession 下。当用户点击Sends 时，这会触发，这意味着他们在发送之前无法更改主题行。我正在使用UserForm1 和您为此使用的代码。添加任意数量的单选按钮，只需将OptionButton1 修改为2 和值即可。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
Dim Prompt$

    strSubject = Item.Subject
    ' Show RadioButtons
    UserForm1.Show
    ' Set Subject Line as the value from the selected RadioButton
    strSubject = UserForm1.SelectedSubject

    ' Set the message subject
    Item.Subject = strSubject
    strSubject = Item.Subject

    ' Test if Subject Line is empty
    If Len(Trim(strSubject)) = 0 Then
        Prompt$ = "Subject is Empty. Are you sure you want to send the Mail?"
        If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for Subject") = vbNo Then
            Cancel = True
        End If
    End If
End Sub