Issue with inboxItems_ItemAdd

[ijourneaux]

I have created a inboxItems_ItemAdd macro that on receiving an email it moves the email to a different folder based on email subject (creating the folder if needed). This has worked well but I noticed that sometimes the new emails may not get processed. This could be related to me not being logged in on my computer when message arrives but I haven't identified the precise circumstances when it happens.

Any thoughts as to what might be happening and how I could handle it so messages are always handled correctly?
Appreciate any comments.
Ian

[Aussiebear]

Welcome to VBAX ijourneaux. May we see your macro, in case this jogs someone's knowledge.

[ijourneaux]

I am not trying to do anything too sophisticated. I am thinking that this might be related to which device sees the new email first. This code exists on my windows PC and seems to work work. Perhaps the issue occurs if I first see the new message on my phone when my windows PC is offline.


Private Sub inboxItems_ItemAdd(ByVal Item As Object)
On Error GoTo ErrorHandler
Dim Msg As Outlook.MailItem
Dim Subject As String
Dim subjectREFW As String
Dim Company As String
Dim Mill As String
Dim Process As String
Dim ReplyorForward As Boolean
Dim MessageType As String
Dim folderobj As Folder
Dim TempItemCopy As Outlook.MailItem
Dim SubFolderObj As Folder
Dim foldername As String
Dim ns As Outlook.NameSpace
Dim bExceptionReport As Boolean
Dim bShiftReport As Boolean
Dim val As Integer
Dim openPos As Integer
Dim closePos As Integer
Dim midBit As String
Dim MessageInfo
Dim Result
On Error GoTo ErrorHandler
If TypeName(Item) = "MailItem" Then
Subject = Item.Subject
If (InStr(1, Subject, "Exceptions Report for", vbTextCompare) > 0) Then
bExceptionReport = True
Else
bExceptionReport = False
End If
If (InStr(1, Subject, "Shift Reports for", vbTextCompare) > 0) Then
bShiftReport = True
Else
bShiftReport = False
End If
If (bExceptionReport) Then
val = InStr(1, Subject, "Exceptions Report for", vbTextCompare)
Mill = Mid(Subject, val + Len("Exceptions Report for"))
Mill = Trim(Left(Mill, InStr(1, Mill, "(", vbTextCompare) - 2))
Company = (Left(Mill, InStr(1, Mill, " ", vbTextCompare) - 1))
Mill = Trim(Right(Mill, Len(Mill) - (InStr(1, Mill, Company, vbTextCompare) + Len(Company))))
Company = Trim(Company)
Mill = Trim(Mill)
If (InStr(1, Left(Subject, 3), "FW:", vbTextCompare) Or (InStr(1, Left(Subject, 3), "RE:", vbTextCompare))) Then
ReplyorForward = True
Subject = Trim(Right(Subject, Len(Subject) - 3))
Else
ReplyorForward = False
End If
Process = Trim(Left(Subject, InStr(1, Subject, "Exceptions Report for", vbTextCompare) - 1))
Set CompanyFolderObj = CreateFolderIfNeeded(Company, inboxFolders)
Set SiteFolderObj = CreateFolderIfNeeded(Mill, CompanyFolderObj)
Set ProcessFolderObj = CreateFolderIfNeeded(Process, SiteFolderObj)
Set ExceptionReportsFolderObj = CreateFolderIfNeeded("Exception Reports", ProcessFolderObj)
Set ShiftReportsFolderObj = CreateFolderIfNeeded("Shift Reports", ProcessFolderObj)
If (ReplyorForward) Then
' Set TempItemCopy = Item.Copy
' TempItemCopy.Move ProcessFolderObj.Folders("Exception Reports")
' Set TempItemCopy = nothing
Else
Item.Move ProcessFolderObj.Folders("Exception Reports")
End If
End If
If (bShiftReport) Then
val = InStr(1, Subject, "Shift Reports for", vbTextCompare)
openPos = InStr(1, Subject, "-", vbTextCompare)
closePos = InStr(openPos + 1, Subject, "-")
Mill = Trim(Mid(Subject, openPos + 1, closePos - openPos - 1))
Company = Trim(Mid(Subject, val + Len("Shift Reports for"), openPos - (val + Len("Shift Reports for"))))
If (InStr(1, Left(Subject, 3), "FW:", vbTextCompare) Or (InStr(1, Left(Subject, 3), "RE:", vbTextCompare))) Then
ReplyorForward = True
Else
ReplyorForward = False
End If
openPos = InStr(1, Subject, "-", vbTextCompare)
closePos = InStr(openPos + 1, Subject, "-")
Process = Trim(Mid(Subject, closePos + 1, InStr(closePos, Subject, "KPIs", vbTextCompare) - closePos - 1))
Set CompanyFolderObj = CreateFolderIfNeeded(Company, inboxFolders)
Set SiteFolderObj = CreateFolderIfNeeded(Mill, CompanyFolderObj)
Set ProcessFolderObj = CreateFolderIfNeeded(Process, SiteFolderObj)
Set ExceptionReportsFolderObj = CreateFolderIfNeeded("Exception Reports", ProcessFolderObj)
Set ShiftReportsFolderObj = CreateFolderIfNeeded("Shift Reports", ProcessFolderObj)
If (ReplyorForward) Then
' Set TempItemCopy = Item.Copy
' TempItemCopy.Move ProcessFolderObj.Folders("Shift Reports")
' Set TempItemCopy = nothing
Else
Item.Move ProcessFolderObj.Folders("Shift Reports")
End If
End If
Set CompanyFolderObj = Nothing
Set SiteFolderObj = Nothing
Set ProcessFolderObj = Nothing
Set ExceptionReportsFolderObj = Nothing
Set ShiftReportsFolderObj = Nothing
End If
ExitNewItem:
Exit Sub
ErrorHandler:
MsgBox Err.Number & " - " & Err.Description 'enter code here`
Resume ExitNewItem
End Sub

[struttelling]

I have created a inboxItems_ItemAdd macro that on receiving an email it moves the email to a different folder based on email subject (creating the folder if needed). This has worked well but I noticed that sometimes the new emails may not get processed. This could be related to me not being logged in on my computer when message arrives but I haven't identified the precise circumstances when it happens.

Any thoughts as to what might be happening and how I could handle it so messages are always handled correctly?
Appreciate any comments.
Ian

mini crossword (https://minicrossword.io/)
Actually, sometimes we often don't pay too much attention to the source code. While using it I rarely learn about it. Thank you for sharing this issue. Really useful information

[jdelano]

So, this macro is triggered when a new email is received. I'd have to agree that if you view the email on your phone, thus making it no longer new, the macro will not be triggered in Outlook. I would investigate if it is possible to move this to the email server instead, so that regardless of the client you view the emails from the email has been processed. I've been poking around some documentation and so far, do not see where it is possible to run code or create a folder via a rule on outlook.com (if this is the email server you're using). If you're using another server (gmail for instance) maybe they have more flexible rule functionality.

[tonyadams]

I suggest adding a short delay before the macro processes incoming emails which allows time for the email client to fully receive and save the new email, reducing the risk of processing incomplete data. contexto (https://contexto-wordle.com/)