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