Recent content by Ifutant

I completed this vba script so that users are prompted to "send secure". Our Encryption device scans our outgoing emails for [Send Secure] in the subject line. This code will reduce the amount of PII sent out of the building! AWESOME!

This is the final result. Works great! Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) dim msg as string msg = Select Case MsgBox("Would you like to Encrypt this message?", vbYesNoCancel + vbQuestion + vbMsgBoxSetForeground, Item.Subject) Case Is = vbYes Set olkMsg...

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Select Case MsgBox("Would you like to Encrypt this message?", vbYesNoCancel + vbQuestion + vbMsgBoxSetForeground, Item.Subject) Case Is = vbYes Set olkMsg = Outlook.Application.ActiveInspector.CurrentItem...

This is the code that I'm using. I would love if it showed who the recipient is in the msg box. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Select Case MsgBox("Would you like to Encrypt this message?", vbYesNoCancel) Case Is = vbYes Set olkMsg =...

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim MsgQuery As String If TypeOf Item Is Outlook.MailItem Then MsgQuery = "You are sending this email to :" & vbCr & vbCr If Item.Recipients.Count > 0 Then For i = 1 To...

Thanks. I was thinking about using case statements to make it work. I'm still trying to figure out how to cancel an ItemSend Event.

Ok so Now all I need is, how to have cancel let the user go back to the email. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim MsgQuery As String If TypeOf Item Is Outlook.MailItem Then MsgQuery = "You are sending this email to :" & vbCr & vbCr...

Getting really close. Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim MsgQuery As String If TypeOf Item Is Outlook.MailItem Then MsgQuery = "You are sending this email to :" & vbCr & vbCr If Item.Recipients.Count > 0 Then For i =...

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim MsgQuery As String If TypeOf Item Is Outlook.MailItem Then MsgQuery = "You are sending this email to :" & vbCr & vbCr If Item.Recipients.Count > 0 Then For i = 1 To...

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim MsgQuery As String If TypeOf Item Is Outlook.MailItem Then MsgQuery = "You are sending this email to :" & vbCr & vbCr If Item.Recipients.Count > 0 Then For i = 1 To...

So I guess what the main issue that I'm encountering is how do I have the yes button insert a customized subject line.

I would like to have a vba script that prompts the user when they press send. I need Yes, No, and Cancel. When the user answers yes it would insert a comment into the subject line and send the email. Set olkMsg = Outlook.Application.ActiveInspector.CurrentItem olkMsg.Subject = "[Sending...

Maccabee, Well I surely shall give it a try. Our agents don't hop around in respect to hunt groups, so I hope this resolves our issue. Good luck with your rollback, I just hope we don't have to resort to that. Our rep even said that upgrading the Ipoffice may re mediate this problem. I...

Tlpeter, thanks! Maccabee333, when you speak of roll back you imply that removing those agents from the hunt group and adding them back didn't fix this problem flickr/negative agents available problem? (and thank you also)

We have 4 wallboard setups and a couple of them are displaying negative 1 for available agents. So when there is zero available agents it displays -1. When there are 1 agents available it displays 0. I have also witnessed this strange 0 -9 fluctuation/flickr. It seems like a bug/calibration...