1 BEST ANSWER
Helpful Answers
Hi Lourdes,
I actually never came across an use case like that before so I didn't have a code for this. However, I went through some of the resources related to this use case. Also, to let you know I am not able to access the link that you have posted as it is giving me Error 404 - Content not found error.
I did some tweaking on the Outlook VBO at my end and I was able to extract the Internet Header Message ID at my end. You can just verify whether the ID I am referring is what you want or not?
NOTE: I would suggest trying the below solution approach on a different Business Object which would be a duplicate or a replica of your Outlook VBO so that in case there is any error and you want to revert back to the original solution then you can easily achieve the same.
If I am correct the ID shown below in the screenshot while opening a email property manually is what you require I guess:
So in order to retrieve this ID, you are correct that we need to refer to the
So the modifications that I have done in my Outlook VBO are as follows:
First I changed the collection schema for "Items" in the "Get Received Items (Basic)" action in order to also include a separate column named "InternetMessageID" of type Text.
Next, I modified the "Internal_Get Items" action where actually our code stage resides. The first changed was to again modify the schema of the collection "Items" in order to include a separate column named "InternetMessageID" of type Text.
Next I modified the code stage in order to add this column at runtime and also to refer the property schema URI in order to fetch the whole Internet Headers section as we can see in the first screenshot that I was able to navigate manually. Once I get the Internet Headers, I am using a series of string manipulation functions to extract the Message ID part out of the entire header content.
The highlighted content in below code is what I have added extra:
Dim internetHeaders As String
dataTable.Columns.Add("InternetMessageID", Type.GetType("System.String"))
internetHeaders = item.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001F")
row("InternetMessageID") = Trim(Replace(Replace(Replace(internetHeaders.Substring(internetHeaders.IndexOf("Message-ID:")+Len("Message-ID:"),internetHeaders.IndexOf("Accept-Language:") - (internetHeaders.IndexOf("Message-ID:")+Len("Message-ID:"))),Environment.NewLine(),""),"<",""),">",""))
NOTE: In the above code extraction logic is based on extracting any data which is location between the labels: "Message-ID:" and "Accept-Language:" based on how my Internet Headers message was appearing. In your case, you might need to cross verify if the sequencing of the label is in the similar way or not. In case it is different, you can modify the extraction logic as per your need.
Results:
Let me know if this helps to resolve your query
------------------------------
----------------------------------
Hope it helps you and if it resolves you query please mark it as the best answer so that others having the same problem can track the answer easily
Regards,
Devneet Mohanty
Intelligent Process Automation Consultant
Blue Prism 7x Certified Professional
Website: https://devneet.github.io/
Email: devneetmohanty07@gmail.com
----------------------------------
------------------------------
I actually never came across an use case like that before so I didn't have a code for this. However, I went through some of the resources related to this use case. Also, to let you know I am not able to access the link that you have posted as it is giving me Error 404 - Content not found error.
I did some tweaking on the Outlook VBO at my end and I was able to extract the Internet Header Message ID at my end. You can just verify whether the ID I am referring is what you want or not?
NOTE: I would suggest trying the below solution approach on a different Business Object which would be a duplicate or a replica of your Outlook VBO so that in case there is any error and you want to revert back to the original solution then you can easily achieve the same.
If I am correct the ID shown below in the screenshot while opening a email property manually is what you require I guess:
So in order to retrieve this ID, you are correct that we need to refer to the
PR_TRANSPORT_MESSAGE_HEADERS property. However, it can only be accessed via the URI schema: "http://schemas.microsoft.com/mapi/proptag/0x007D001F"So the modifications that I have done in my Outlook VBO are as follows:
First I changed the collection schema for "Items" in the "Get Received Items (Basic)" action in order to also include a separate column named "InternetMessageID" of type Text.
Next, I modified the "Internal_Get Items" action where actually our code stage resides. The first changed was to again modify the schema of the collection "Items" in order to include a separate column named "InternetMessageID" of type Text.
Next I modified the code stage in order to add this column at runtime and also to refer the property schema URI in order to fetch the whole Internet Headers section as we can see in the first screenshot that I was able to navigate manually. Once I get the Internet Headers, I am using a series of string manipulation functions to extract the Message ID part out of the entire header content.
The highlighted content in below code is what I have added extra:
Dim app = CreateObject("Outlook.Application")Dim _nameSpace = app.GetNameSpace("MAPI")Dim internetHeaders As String
Dim folder = _nameSpace.GetDefaultFolder(Outlook_Folder_ID)If Sub_Folder <> "" ThenFor each name as string in Sub_Folder.Split("\")folder = folder.Folders(name)NextEnd If'See https://msdn.microsoft.com/en-us/library/office/aa210946(v=office.11).aspx'for mail item propertiesDim dataTable As New Data.DataTabledataTable.Columns.Add("EntryID", Type.GetType("System.String"))dataTable.Columns.Add("To", Type.GetType("System.String"))dataTable.Columns.Add("CC", Type.GetType("System.String"))dataTable.Columns.Add("Subject", Type.GetType("System.String"))dataTable.Columns.Add("Body", Type.GetType("System.String"))dataTable.Columns.Add("Attachments", Type.GetType("System.String"))dataTable.Columns.Add("ReceivedOn", Type.GetType("System.DateTime"))dataTable.Columns.Add("SentOn", Type.GetType("System.DateTime"))dataTable.Columns.Add("SenderName", Type.GetType("System.String"))dataTable.Columns.Add("SenderEmailAddress", Type.GetType("System.String"))dataTable.Columns.Add("Unread", Type.GetType("System.Boolean"))dataTable.Columns.Add("InternetMessageID", Type.GetType("System.String"))
Dim folderItems = If(Filter_Expression <> "", folder.Items.Restrict(Filter_Expression), folder.Items)For Each item As Object In folderItemsIf Not TypeOf item Is MailItem Then Continue ForDim row As Data.DataRow = dataTable.NewRowrow("EntryID") = item.EntryIDrow("To") = item.Torow("CC") = item.CCrow("Subject") = item.Subjectrow("Body") = item.BodyDim attachments As String = ""For Each attachment As Object In item.AttachmentsIf attachment.Type = 1 Thenattachments = attachments & "|" & attachment.DisplayNameEnd IfNextrow("Attachments") = If (attachments.Length = 0, "", attachments.SubString(1))row("SentOn") = item.SentOnrow("ReceivedOn") = item.ReceivedTimerow("SenderName") = item.SenderNamerow("SenderEmailAddress") = If (item.SenderEmailType = "EX",item.Sender.GetExchangeUser.PrimarySmtpAddress,item.SenderEmailAddress)row("Unread") = item.UnreadinternetHeaders = item.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001F")
row("InternetMessageID") = Trim(Replace(Replace(Replace(internetHeaders.Substring(internetHeaders.IndexOf("Message-ID:")+Len("Message-ID:"),internetHeaders.IndexOf("Accept-Language:") - (internetHeaders.IndexOf("Message-ID:")+Len("Message-ID:"))),Environment.NewLine(),""),"<",""),">",""))
dataTable.Rows.Add(row)Item_Count += 1NextItems = dataTable
NOTE: In the above code extraction logic is based on extracting any data which is location between the labels: "Message-ID:" and "Accept-Language:" based on how my Internet Headers message was appearing. In your case, you might need to cross verify if the sequencing of the label is in the similar way or not. In case it is different, you can modify the extraction logic as per your need.
Results:
Let me know if this helps to resolve your query
------------------------------
----------------------------------
Hope it helps you and if it resolves you query please mark it as the best answer so that others having the same problem can track the answer easily
Regards,
Devneet Mohanty
Intelligent Process Automation Consultant
Blue Prism 7x Certified Professional
Website: https://devneet.github.io/
Email: devneetmohanty07@gmail.com
----------------------------------
------------------------------
Hi Lourdes,
I actually never came across an use case like that before so I didn't have a code for this. However, I went through some of the resources related to this use case. Also, to let you know I am not able to access the link that you have posted as it is giving me Error 404 - Content not found error.
I did some tweaking on the Outlook VBO at my end and I was able to extract the Internet Header Message ID at my end. You can just verify whether the ID I am referring is what you want or not?
NOTE: I would suggest trying the below solution approach on a different Business Object which would be a duplicate or a replica of your Outlook VBO so that in case there is any error and you want to revert back to the original solution then you can easily achieve the same.
If I am correct the ID shown below in the screenshot while opening a email property manually is what you require I guess:
So in order to retrieve this ID, you are correct that we need to refer to the
So the modifications that I have done in my Outlook VBO are as follows:
First I changed the collection schema for "Items" in the "Get Received Items (Basic)" action in order to also include a separate column named "InternetMessageID" of type Text.
Next, I modified the "Internal_Get Items" action where actually our code stage resides. The first changed was to again modify the schema of the collection "Items" in order to include a separate column named "InternetMessageID" of type Text.
Next I modified the code stage in order to add this column at runtime and also to refer the property schema URI in order to fetch the whole Internet Headers section as we can see in the first screenshot that I was able to navigate manually. Once I get the Internet Headers, I am using a series of string manipulation functions to extract the Message ID part out of the entire header content.
The highlighted content in below code is what I have added extra:
Dim internetHeaders As String
dataTable.Columns.Add("InternetMessageID", Type.GetType("System.String"))
internetHeaders = item.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001F")
row("InternetMessageID") = Trim(Replace(Replace(Replace(internetHeaders.Substring(internetHeaders.IndexOf("Message-ID:")+Len("Message-ID:"),internetHeaders.IndexOf("Accept-Language:") - (internetHeaders.IndexOf("Message-ID:")+Len("Message-ID:"))),Environment.NewLine(),""),"<",""),">",""))
NOTE: In the above code extraction logic is based on extracting any data which is location between the labels: "Message-ID:" and "Accept-Language:" based on how my Internet Headers message was appearing. In your case, you might need to cross verify if the sequencing of the label is in the similar way or not. In case it is different, you can modify the extraction logic as per your need.
Results:
Let me know if this helps to resolve your query
------------------------------
----------------------------------
Hope it helps you and if it resolves you query please mark it as the best answer so that others having the same problem can track the answer easily
Regards,
Devneet Mohanty
Intelligent Process Automation Consultant
Blue Prism 7x Certified Professional
Website: https://devneet.github.io/
Email: devneetmohanty07@gmail.com
----------------------------------
------------------------------
I actually never came across an use case like that before so I didn't have a code for this. However, I went through some of the resources related to this use case. Also, to let you know I am not able to access the link that you have posted as it is giving me Error 404 - Content not found error.
I did some tweaking on the Outlook VBO at my end and I was able to extract the Internet Header Message ID at my end. You can just verify whether the ID I am referring is what you want or not?
NOTE: I would suggest trying the below solution approach on a different Business Object which would be a duplicate or a replica of your Outlook VBO so that in case there is any error and you want to revert back to the original solution then you can easily achieve the same.
If I am correct the ID shown below in the screenshot while opening a email property manually is what you require I guess:
So in order to retrieve this ID, you are correct that we need to refer to the
PR_TRANSPORT_MESSAGE_HEADERS property. However, it can only be accessed via the URI schema: "http://schemas.microsoft.com/mapi/proptag/0x007D001F"So the modifications that I have done in my Outlook VBO are as follows:
First I changed the collection schema for "Items" in the "Get Received Items (Basic)" action in order to also include a separate column named "InternetMessageID" of type Text.
Next, I modified the "Internal_Get Items" action where actually our code stage resides. The first changed was to again modify the schema of the collection "Items" in order to include a separate column named "InternetMessageID" of type Text.
Next I modified the code stage in order to add this column at runtime and also to refer the property schema URI in order to fetch the whole Internet Headers section as we can see in the first screenshot that I was able to navigate manually. Once I get the Internet Headers, I am using a series of string manipulation functions to extract the Message ID part out of the entire header content.
The highlighted content in below code is what I have added extra:
Dim app = CreateObject("Outlook.Application")Dim _nameSpace = app.GetNameSpace("MAPI")Dim internetHeaders As String
Dim folder = _nameSpace.GetDefaultFolder(Outlook_Folder_ID)If Sub_Folder <> "" ThenFor each name as string in Sub_Folder.Split("\")folder = folder.Folders(name)NextEnd If'See https://msdn.microsoft.com/en-us/library/office/aa210946(v=office.11).aspx'for mail item propertiesDim dataTable As New Data.DataTabledataTable.Columns.Add("EntryID", Type.GetType("System.String"))dataTable.Columns.Add("To", Type.GetType("System.String"))dataTable.Columns.Add("CC", Type.GetType("System.String"))dataTable.Columns.Add("Subject", Type.GetType("System.String"))dataTable.Columns.Add("Body", Type.GetType("System.String"))dataTable.Columns.Add("Attachments", Type.GetType("System.String"))dataTable.Columns.Add("ReceivedOn", Type.GetType("System.DateTime"))dataTable.Columns.Add("SentOn", Type.GetType("System.DateTime"))dataTable.Columns.Add("SenderName", Type.GetType("System.String"))dataTable.Columns.Add("SenderEmailAddress", Type.GetType("System.String"))dataTable.Columns.Add("Unread", Type.GetType("System.Boolean"))dataTable.Columns.Add("InternetMessageID", Type.GetType("System.String"))
Dim folderItems = If(Filter_Expression <> "", folder.Items.Restrict(Filter_Expression), folder.Items)For Each item As Object In folderItemsIf Not TypeOf item Is MailItem Then Continue ForDim row As Data.DataRow = dataTable.NewRowrow("EntryID") = item.EntryIDrow("To") = item.Torow("CC") = item.CCrow("Subject") = item.Subjectrow("Body") = item.BodyDim attachments As String = ""For Each attachment As Object In item.AttachmentsIf attachment.Type = 1 Thenattachments = attachments & "|" & attachment.DisplayNameEnd IfNextrow("Attachments") = If (attachments.Length = 0, "", attachments.SubString(1))row("SentOn") = item.SentOnrow("ReceivedOn") = item.ReceivedTimerow("SenderName") = item.SenderNamerow("SenderEmailAddress") = If (item.SenderEmailType = "EX",item.Sender.GetExchangeUser.PrimarySmtpAddress,item.SenderEmailAddress)row("Unread") = item.UnreadinternetHeaders = item.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001F")
row("InternetMessageID") = Trim(Replace(Replace(Replace(internetHeaders.Substring(internetHeaders.IndexOf("Message-ID:")+Len("Message-ID:"),internetHeaders.IndexOf("Accept-Language:") - (internetHeaders.IndexOf("Message-ID:")+Len("Message-ID:"))),Environment.NewLine(),""),"<",""),">",""))
dataTable.Rows.Add(row)Item_Count += 1NextItems = dataTable
NOTE: In the above code extraction logic is based on extracting any data which is location between the labels: "Message-ID:" and "Accept-Language:" based on how my Internet Headers message was appearing. In your case, you might need to cross verify if the sequencing of the label is in the similar way or not. In case it is different, you can modify the extraction logic as per your need.
Results:
Let me know if this helps to resolve your query
------------------------------
----------------------------------
Hope it helps you and if it resolves you query please mark it as the best answer so that others having the same problem can track the answer easily
Regards,
Devneet Mohanty
Intelligent Process Automation Consultant
Blue Prism 7x Certified Professional
Website: https://devneet.github.io/
Email: devneetmohanty07@gmail.com
----------------------------------
------------------------------
Hi Devneet,
I attempted to make those changes but I'm getting the below error at the time of running the code stage itself:
"Internal : Could not execute code stage because exception thrown by code stage: Value does not fall within the expected range." Any ideas?
Lourdes Urena | Sr. Solutions Engineering (RPA) | W.W. Grainger, Inc.
Ph: 224-724-5080| lourdes.urena@grainger.com |www.grainger.com
