J 
		
				
			
		John
Hi 
 
I am using function NewMailEx as per below code to process attachments from
 
incoming messages. Problem is Outlook is skipping processing some of the
 
mail items probably when there are a number of them coming at the same time.
 
What is the problem and how can I fix it? Is there a more robust way to do
 
this? I have avoided .net add-in due to installation issues.
 
Thanks
 
Regards
 
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
Dim arr() As String
 
Dim i As Integer
 
Dim ns As Outlook.NameSpace
 
Dim itm As MailItem
 
Dim m As Outlook.MailItem
 
Set ns = Application.Session
 
arr = Split(EntryIDCollection, ",")
 
For i = 0 To UBound(arr)
 
Set itm = ns.GetItemFromID(arr(i))
 
If itm.Class = olMail Then
 
Set m = itm
 
For Each Atmt In m.Attachments
 
' Do some processing here
 
Next Atmt
 
End If
 
Next
 
Set ns = Nothing
 
Set itm = Nothing
 
Set m = Nothing
 
End Sub
				
			I am using function NewMailEx as per below code to process attachments from
incoming messages. Problem is Outlook is skipping processing some of the
mail items probably when there are a number of them coming at the same time.
What is the problem and how can I fix it? Is there a more robust way to do
this? I have avoided .net add-in due to installation issues.
Thanks
Regards
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim arr() As String
Dim i As Integer
Dim ns As Outlook.NameSpace
Dim itm As MailItem
Dim m As Outlook.MailItem
Set ns = Application.Session
arr = Split(EntryIDCollection, ",")
For i = 0 To UBound(arr)
Set itm = ns.GetItemFromID(arr(i))
If itm.Class = olMail Then
Set m = itm
For Each Atmt In m.Attachments
' Do some processing here
Next Atmt
End If
Next
Set ns = Nothing
Set itm = Nothing
Set m = Nothing
End Sub
 
	 
 
		 
 
		