Jose Campa
Member
- Outlook version
- Outlook 2016 64 bit
- Email Account
- Office 365 Exchange
I have a VB script (below) but I am trying to create a add-in for Outlook now. How do I convert the code so it works? Is there a converter or something?
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
If InStr(Item.Subject, "[Encrypt]") = 0 Then
Prompt$ = "This message has not been encrypted. Are you sure you want to send it?"
If MsgBox(Prompt$, vbYesNo + vbExclamation + vbMsgBoxSetForeground, " ENCRYPTION CHECK") = vbNo Then
objMsg.Send
Cancel = True
End If
End If
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
If InStr(Item.Subject, "[Encrypt]") = 0 Then
Prompt$ = "This message has not been encrypted. Are you sure you want to send it?"
If MsgBox(Prompt$, vbYesNo + vbExclamation + vbMsgBoxSetForeground, " ENCRYPTION CHECK") = vbNo Then
objMsg.Send
Cancel = True
End If
End If
End Sub