Search results for query: *

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...

There is a CCR version 7.0? Also is there a maintenance release that is free for CCR version 6.1?

Thanks for the Input. I actually figured out the problem, I had to tinker with the range. Now the vba script allows me to input as many csv files into one workbook. Upon importing, it automatically evaluates the filename and according to the case statement I created it assigns the correct...

I appreciate the suggestions Skip, but my main concern is to find a way to use a case study to evaluate the sfilename and then according to the sfilename insert customized headings.

That would work, but we want histroical data so that we can compare all in one worksheet. So by your suggestion ie. refreshing the data you still have to go one by one and refresh the data. We would rather to have a bunch of sheets all in one workbook that is labeled and easy to compare...

I have the following Code. Option Explicit Sub csv() Dim FilesToOpen As Variant Dim x As Integer Dim wkbTemp As Workbook Dim iCtr As Long Dim sFileName As String Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Text Files, *.csv", _...