none
How can I create a list of sensitivity options while sending a mail? RRS feed

  • Question

  • Hello,

    I've been trying to enable a "Sensitivity" options form in Outlook. While pressing the "Send" button, the list of options will pop up and upon selecting the "Sensitivity" the mail will be treated such.


    I was trying to use VBA scripts, unfortunately, I'm not a coder. I could create a form and also I could Simply set a "Yes/No" question for Confidential sensitivity looking through the codes of few posts.

    Any help is really appreciated.

    Thanks

    Tuesday, October 9, 2018 8:01 AM

All replies

  • So far I could do this, but I don't know how I can show all 4 options together!

    Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

     Dim prompt As String

     prompt = "Is this Mail Normal?"

     If MsgBox(prompt, vbYesNo + vbQuestion, "Set email sensitivity") = vbYes Then

        Item.Sensitivity = olNormal

    Else
     
     prompt = "Is this Mail Personal?"

     If MsgBox(prompt, vbYesNo + vbQuestion, "Set email sensitivity") = vbYes Then

        Item.Sensitivity = olPersonal

    Else
     prompt = "Is this Mail Private?"

     If MsgBox(prompt, vbYesNo + vbQuestion, "Set email sensitivity") = vbYes Then

        Item.Sensitivity = olPrivate
    Else
     prompt = "Is this Mail Confidential?"

     If MsgBox(prompt, vbYesNo + vbQuestion, "Set email sensitivity") = vbYes Then

        Item.Sensitivity = olConfidential
    Else

    'do nothing
    End If
    End If
    End If
    End If

    End Sub

    Tuesday, October 9, 2018 9:09 AM
  • I could also create a form but I can not integrate the form with send action.

    Private Sub OptionButton1_Click()
        If OptionButton1.Value = True Then
            MsgBox "Mail is Normal"
        End If
    End Sub


    Private Sub OptionButton2_Click()
        If OptionButton2.Value = True Then
            MsgBox "Mail is Personal"
        End If
    End Sub


    Private Sub OptionButton3_Click()
        If OptionButton3.Value = True Then
            MsgBox "Mail is Private"
        End If
    End Sub


    Private Sub OptionButton4_Click()

        If OptionButton4.Value = True Then
            MsgBox "Mail is Confidential"
        End If
    End Sub

    Private Sub UserForm_Click()

    End Sub

    Tuesday, October 9, 2018 10:40 AM
  • Hi FaaridAhmed,

    Sorry for late response. Did you resolve your problem? If not, I think you can refer to the following link to achieve your needs.

    Sensitivity check while sending email

    Also, for more Outlook Form, you can refer this link:

    Outlook Form

    Regards,

    Simon


    MSDN Community Support Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread.

    Tuesday, October 16, 2018 4:34 PM
    Moderator