topic I have set up my outlook by… in Product Forum

MAPIEx VBO - Mail Classification

Ashis_KumarRay — Tue, 22 Jan 2019 19:18:00 GMT

Currently our BP Process uses Blue Prism MAPIEx object to send email to outside of the company. But now our client wants to classify the mail I.e. Internal, Public, Confidential etc. before sending any Email to outside of company through BP process. Could anyone please let me know how to achieve this one by using any VBO or anything else? Note: Currently when we send any email through Outlook manually it asks for classification thus Client demands for the same way should BP use. Thanks

One of the (many) problems…

AmiBarrett — Sat, 26 Jan 2019 01:46:00 GMT

One of the (many) problems with MAPIEx is that it leverages a custom (unstable) dll that they wrote to perform everything. You'll be much better off migrating to the Outlook VBO, found either on the Digital Exchange or as part of a BP6 install. This VBO doesn't rely on the custom dll file and will let you interact with the Outlook VBA code directly. Assuming you have access to the Outlook VBO, you can modify it by adding the following line mail.ItemProperties.Add(""MyCompanyClassification"", olText) = ""INTERNAL"" ""INTERNAL"" can be replaced with a variable to hold whatever classification it's supposed to have. You can try your chances with this on MAPIEx, but I would be surprised if it's that cooperative.

As a side note, if …

AmiBarrett — Sat, 26 Jan 2019 01:50:00 GMT

As a side note, if ""MyCompanyClassification"" is incorrect, you can probably loop through each item in mail.ItemProperties on Get Mail, and figure out what it's supposed to be.

Thanks Ami. I have…

Ashis_KumarRay — Thu, 14 Feb 2019 10:42:00 GMT

Thanks Ami. I have downloaded Outlook VBO and it is working fine. But still the classification portion not working as I think ""MyCompanyClassification"" is not used by our company classifier i.e. Boldon James. Could you please let me know syntax to get ItemProperties on Get mail?

Writing this at 12:40AM…

AmiBarrett — Thu, 14 Feb 2019 11:40:00 GMT

Writing this at 12:40AM without testing, but I think this'll work. You'll just have to set CSV as an output to a text data item. dim CSV = """" for i = 0 to mail.ItemProperties.Count - 1 CSV += mail.ItemProperties.Item(i) +"" | "" next

Thanks Ami. I tried the…

Ashis_KumarRay — Mon, 18 Feb 2019 19:59:00 GMT

Thanks Ami. I tried the above code found the property I.e. ""Classification"" we used as a property. But when I am using the above code (Outmail.ItemProperties.Add(""Classification"", olText) = ""INTERNAL) is not working. Also I used the code like below that also not working. Anyway Outlook VBO is able to send an email without classifying and I am not getting any error. OutMail.ItemProperties.Add(""Classification"",1) OutMail.ItemProperties.item(""Classification"").Value = ""Internal"" Do you think I don't have access to modify the Outlook property or anything else, could you please help me? Regards, Ashis

It's possible that the label…

AmiBarrett — Mon, 18 Feb 2019 20:10:00 GMT

It's possible that the label is something other than ""INTERNAL"", much like how ""MyCompanyClassification"" turned out to be ""Classification"". If you have an e-mail in the inbox already marked as internal, you should be able to get the value by leaving off the = ""Internal"" part and assigning the result to an output variable. For example value = OutMail.ItemProperties.item(""Classification"").Value

I understood your point but…

Ashis_KumarRay — Mon, 18 Feb 2019 20:24:00 GMT

I understood your point but the issue is not with Get the Item property value. I have an email which is classified as ""Confidential"" and I am able to Get that email with properties value. from this email I came to know that the property used by the claissification is ""ClassificationConfidential"". But the issue is to Set or Add the property of Classification before sending an email. In Send email action of Outlook VBO, I am trying to add classification as Internal or Confidential or Public etc which is not happening and I am not getting any error message.

The code you pasted earlier…

AmiBarrett — Mon, 18 Feb 2019 20:31:00 GMT

The code you pasted earlier shows trying to set it as ""Internal"". However, it looks like that should instead be ""Confidential"" . If .Value is returning ""ClassificationConfidential"", I would try putting that whole string in there instead. In theory, anything .Value returns can be assumed vald, because it's already set. Setting it to the same value you were returned should work.

Sorry to say, I am little…

Ashis_KumarRay — Mon, 18 Feb 2019 20:51:00 GMT

Sorry to say, I am little bit confused now. I modified the ""GetMail"" action of Outlook VBO to check what is the Item property used by Boldon James to classify an email. To fulfil that I manually send an email to myself. Also I classified that email to Confidential manually. Then I tried to read that same email by Getmail action of Outlook VBO where I have used the below code to get the all item properties of an mail. The delimiter I set as """" thus it came as ""ClassificationConfidential"". dim CSV = """" for i = 0 to mail.ItemProperties.Count - 1 CSV += mail.ItemProperties.Item(i) +"" | "" next Then I came to know that the property used by my company is ""Classification"". Thus now my next step is to send an email by classifying from Blue Prism. Thus I use the action ""Send Mail"" of Outlook VBO where I have modified this ""Send Mail"" action and added the below code. BP is able to send an email but not able to classify. That's why I doubted whether I don't have access to overwrite any property of Outlook or I am missing something in VBO code. OutMail.ItemProperties.Add(""Classification"",1) OutMail.ItemProperties.item(""Classification"").Value = ""Confidential"" Please let me know if I am not able to explain anywhere.

That makes more sense, then…

AmiBarrett — Mon, 18 Feb 2019 21:05:00 GMT

That makes more sense, then. I'd be curious to see the construction of OutMail though, since ""Send Item"" declares it as mail. If you've replaced all references of ""mail"" with ""OutMail"", it should be fine - but my suspicion is that you have both objects, ""mail"" and ""OutMail"" in the code, and only ""mail"" is getting sent. Is there any way you can paste the entire code stage?

Here is the Code stage. I…

Ashis_KumarRay — Mon, 18 Feb 2019 21:20:00 GMT

Here is the Code stage. I have only added two lines into the VBO code which is highlighted. Try Dim OutApp as Object = CreateObject(""Outlook.Application"") Dim OutMail as Object = OutApp.CreateItem(0) Dim OutAtt as Object = OutMail.Attachments With OutMail .to = [To] .CC = [CC] .BCC = [BCC] .Subject = [Subject] if [HTMLFormat] then .HTMLBody = [Message] .bodyformat = 2 else .Body = [Message] end if if [SendOnBehalfName] """" then .SentOnBehalfOfName = SendOnBehalfName end if End With For Each R As DataRow in Attachments.Rows dim file As String = CStr(R(""Path"")) OutAtt.Add (file) Next If SharedMailBoxNumber 1 OutMail.SendUsingAccount = OutApp.Session.Accounts.Item(SharedMailBoxNumber) End If OutMail.ItemProperties.Add(""Classification"",1) OutMail.ItemProperties.item(""Classification"").Value = ""Confidential"" OutMail = Nothing OutApp = Nothing Success = True Catch ex As System.Exception ErrMessage = ex.Message End Try

This is entirely different…

AmiBarrett — Mon, 18 Feb 2019 21:28:00 GMT

This is entirely different from the version of the Outlook VBO I grabbed, but I think I see the problem(s). First and foremost, those two lines you've added are after where it has sent the mail. In the If block above, it calls SendUsingAccount, which is effectively another way of doing OutMail.Send. Since you're making modifications to the message object after that is executed, it doesn't really have any effect. Second, I don't see a handle for any case where SharedMailBoxNumber = 1. You could probably duplucate that if block, say if = 1, then replace the second line of it to just say OutMail.Send .

Sorry Ami, I think in the…

Ashis_KumarRay — Mon, 18 Feb 2019 21:44:00 GMT

Sorry Ami, I think in the last email by mistake the line ""Outmail.Send"" got deleted. here is the code below which I have used just now and still not able to classify. I have moved the two line above as well. Please let me know your view Try Dim OutApp as Object = CreateObject(""Outlook.Application"") Dim OutMail as Object = OutApp.CreateItem(0) Dim OutAtt as Object = OutMail.Attachments With OutMail .to = [To] .CC = [CC] .BCC = [BCC] .Subject = [Subject] if [HTMLFormat] then .HTMLBody = [Message] .bodyformat = 2 else .Body = [Message] end if OutMail.ItemProperties.Add(""Classification"",1) OutMail.ItemProperties.item(""Classification"").Value = ""Confidential"" if [SendOnBehalfName] """" then .SentOnBehalfOfName = SendOnBehalfName end if End With For Each R As DataRow in Attachments.Rows dim file As String = CStr(R(""Path"")) OutAtt.Add (file) Next If SharedMailBoxNumber 1 OutMail.SendUsingAccount = OutApp.Session.Accounts.Item(SharedMailBoxNumber) End If OutMail.Send OutMail = Nothing OutApp = Nothing Success = True Catch ex As System.Exception ErrMessage = ex.Message End Try

You've moved it into the…

AmiBarrett — Mon, 18 Feb 2019 21:47:00 GMT

You've moved it into the With OutMail block. If it's in there, you can change it from OutMail.ItemProperties to .ItemProperties .

Ami, i used the both the…

Ashis_KumarRay — Tue, 19 Feb 2019 13:42:00 GMT

Ami, i used the both the ways i.e. Kept the OutMail.ItemProperties outside of With Outmail block and kept inside but replaced from OutMail.ItemProperties to .ItemProperties but unfortunately both are not able to classify. Do you have any other code stage which you are using currently for classification or are you using different Outlook VBO for your requirement which I can also try. Please let me know your comments. Try Dim OutApp as Object = CreateObject(""Outlook.Application"") Dim OutMail as Object = OutApp.CreateItem(0) Dim OutAtt as Object = OutMail.Attachments With OutMail .to = [To] .CC = [CC] .BCC = [BCC] .Subject = [Subject] if [HTMLFormat] then .HTMLBody = [Message] .bodyformat = 2 else .Body = [Message] end if .ItemProperties.Add(""Classification"",1) .ItemProperties.item(""Classification"").Value = ""Confidential"" if [SendOnBehalfName] """" then .SentOnBehalfOfName = SendOnBehalfName end if End With 'OutMail.ItemProperties.Add(""Classification"",1) 'OutMail.ItemProperties.item(""Classification"").Value = ""Confidential"" For Each R As DataRow in Attachments.Rows dim file As String = CStr(R(""Path"")) OutAtt.Add (file) Next If SharedMailBoxNumber 1 OutMail.SendUsingAccount = OutApp.Session.Accounts.Item(SharedMailBoxNumber) End If OutMail.Send OutMail = Nothing OutApp = Nothing Success = True Catch ex As System.Exception ErrMessage = ex.Message End Try

I pulled a list of MailItem…

AmiBarrett — Tue, 19 Feb 2019 23:01:00 GMT

I pulled a list of MailItem properties on one of my messages. the property in question is ""Sensitivity"", rather than ""Classification"". The value for these are in integers, defaulting to 0. This property happens to have an index of 24. You should be able to say .ItemProperties.item(24).Value = 1 , or whatever the value should be. I would recommend finding one mail that's already properly classified and run this code to see what your index and value need to be.

for i = 0 to item.ItemProperties.Count - 1
	if CStr(item.ItemProperties.Item(i).Name) = ""Sensitivity"" then
		csv = csv & CStr(item.ItemProperties.Item(i).Value)
		csv = csv & "" | "" & CStr(i)
	end if
next

Hi Ami, I have checked the…

Ashis_KumarRay — Wed, 20 Feb 2019 18:17:00 GMT

Hi Ami, I have checked the property ""Sensitivity"" which is 24th Index of Item properties list and every time I get value 0. I checked for classified mail i.e. Internal, Confidential and also checked for a non-classified email. No luck till this point. Please let me know your view. I have attached all my property list here. We are able to do this classification through Macro. Can we not add those code macro code to BP?

Depending how you've done…

AmiBarrett — Thu, 21 Feb 2019 19:51:00 GMT

Depending how you've done the macro, the code should be the same as it is in BP. If all else, you can set the default classification in your Outlook preferences, provided you don't mind it always being the same.

Is there any way to set up…

Ashis_KumarRay — Thu, 21 Feb 2019 22:27:00 GMT

Is there any way to set up default Preference as ""Confidential"" in outlook. Currently our all outbound email should be classified as ""Confidential"". Could you please let me know the steps? I am using Microsoft Outlook 2010.