Tuesday, October 27, 2015

Outlook Email Travel Time Report


  • Do you know how long an email takes to get to you?  
  • How long from the sender clicking [SEND] until it comes to rest in your inbox?  
  • Is there a problem with your email provider?
  • Is there a problem with your hosted SPAM provider - are they adding a delay? 


{This information applies to the Microsoft Outlook email client.  Specifically I'm using Outlook 2013}

If you are asking yourself any of these questions you can look at the "Received" time in your inbox, then open the email and compare it to the "Sent" time that it usually displays once open.  But if you are constantly having issues you may want a better faster way to look at a lot of emails quickly, you can do this with a Macro.

I'm not going to dive into what macro's are; if you have no clue then do a search (Search Google "How to use Outlook macros" or Here is a fine article on how to get started.  I just want to share the macro and I'll give you the quick and dirty steps to get it installed.

What does the macro do?
This macro will produce a report of all messages that you have highlighted in your inbox.  Simply highlight the email messages you want to get a report of sent-and-received times and a new email window will open and show the results.  Here is a sample:

Subject:               Critical Alert for your ProLiant Servers and Options
From:                    alerts@alerts.hp.com
Sent on:               10/26/2015 6:45:12 PM
ReceivedTime: 10/26/2015 7:50:38 PM
Limbo Time:       65 Minutes  26 Seconds
X-Katharion-ID: 144590403.16557.cal1-mh778 (0.0)

---------------


Subject:               Find holiday items in high demand.
From:                    eBay@reply1.ebay.com
Sent on:               10/26/2015 2:50:30 PM
ReceivedTime: 10/26/2015 2:51:33 PM
Limbo Time:       1 Minutes  3 Seconds
X-Katharion-ID: 144588430.36058.cal1-mh782 (0.0)

---------------


Subject:               Join me at the Inaugural AerospaceDefenseChain Conference
From:                    AviationWeek@info.aviationweek.com
Sent on:               10/26/2015 2:07:53 PM
ReceivedTime: 10/26/2015 2:10:26 PM
Limbo Time:       2 Minutes  33 Seconds
X-Katharion-ID: 144582874.74400.ams1-mh928 (0.0)


This report will be shown in a new email form - simply because it is a quick and easy way to do it.  You can cut and paste it to Word or something if you want to print it, or you can quickly send it to someone via the email.  What I'm calling "Limbo Time" is the difference of "Sent on" and "Received Time."  If you want more info on where the delay happened you will want to checkout the email header.

For me, we use MaxMail / MaxFocus from LogicNow for Spam filtering (used to be GFI) and they were introducing a long delay in us getting our email.  Sometimes more than an hour, so I needed a quick way to keep an eye on the problem.  The X-Katharion-ID tag that I include in the report is what they use for message tracking, so I included it so I can send them this info and ask "What's up with the delay today?"  If  you don't need that simply remove it from the script.

Most of the base code I scrounged from the Internet and then I added some math and some string operations. There is a function to get the email header that I didn't touch so I give credit to the original author on that one.  I'm a programmer (Cobol) from days long gone so I don't pretend to know exactly what and how this works and I'm sure there may be better and more efficient way to code it, but hey; it works.

When in Outlook press ALT-F11 to open the "Microsoft Visual Basic for Applications" windows.  Then paste this into the "Module 1" section or I think you can create a new one - I really don't know. I put mine in Module-1.

Sub SendReceiveTimes()
    Dim olItem As Outlook.MailItem, olMsg As Outlook.MailItem
    Dim strheader As String
    Dim xPos1 As Integer
    
    For Each olItem In Application.ActiveExplorer.Selection
     If Left(olItem.SenderEmailAddress, 2) = "/O" Then
     Else
        strheader = GetInetHeaders(olItem)
        xPos1 = InStr(strheader, "X-Katharion-ID")
        xPos2 = InStr(strheader, "Return-Path:")
        xDiff = xPos2 - xPos1
        If xPos1 > 5 Then
            XKID = Mid(strheader, xPos1, xDiff)
        Else
            XKID = "X-Katharion-ID: -none-"
        End If
     
        xBody = xBody & Chr(13) & "Subject: " & Chr(9) & olItem.Subject & Chr(13) & "From: " & Chr(9) & Chr(9) & olItem.SenderEmailAddress
        xBody = xBody & Chr(13) & "Sent on: " & Chr(9) & olItem.SentOn
        xBody = xBody & Chr(13) & "ReceivedTime: " & Chr(9) & olItem.ReceivedTime
         
        xLTs = DateDiff("s", olItem.SentOn, olItem.ReceivedTime)
        xLT = Int(xLTs / 60)
        xLTs = xLTs - (xLT * 60)
        xBody = xBody & Chr(13) & "Limbo Time: " & Chr(9) & xLT & " Minutes  " & xLTs & " Seconds"
         
        xBody = xBody & Chr(13) & XKID
        xBody = xBody & Chr(13) & "---------------" & Chr(13) & Chr(13)
    End If
    Next
    
    Set olMsg = Application.CreateItem(olMailItem)
    With olMsg
        .BodyFormat = olFormatPlain
        .Body = xBody
        .Display
    End With
    Set olMsg = Nothing
End Sub

Function GetInetHeaders(olkMsg As Outlook.MailItem) As String
    ' Purpose: Returns the internet headers of a message.'
    ' Written: 4/28/2009'
    ' Author:  BlueDevilFan'
    ' http://techniclee.wordpress.com/
    ' Outlook: 2007'
    Const PR_TRANSPORT_MESSAGE_HEADERS = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
    Dim olkPA As Outlook.PropertyAccessor
    Set olkPA = olkMsg.PropertyAccessor
    GetInetHeaders = olkPA.GetProperty(PR_TRANSPORT_MESSAGE_HEADERS)
    Set olkPA = Nothing

End Function

Now just highlight the emails that you want to create a report on and run the macro "SendReceiveTimes." I created a shortcut to it on my Quick Access Tool Bar so I can run a quick report anytime.  

A few things to know and a few issues to avoid. 

  1. You can't include calendar invites - it will cause an error.  Skip those.   
  2. This excludes internal messages.  You can highlight them, but it skips them
  3. You can't go crazy and highlight hundreds of messages, it will error out.  Keep it to a few days.  
report on send and receive times
email delay report
long email delays
isp email delays
emails take a long time to deliver
email header times
email travel time

Thursday, April 23, 2015

Fix for - InstallScript Setup Launcher Unicode Has Stopped Working in Windows 2008 or Windows Server 2012

If you have some software and they use the Flexera windows installer, you may get the error: "InstallScript Setup Launcher Unicode Has Stopped Working."  If you look at additional data on the error you may see it say APPCRASH in ISSETUP.DLL with an error of c0000005.

I searched high and low and there isn't much documented about it, at least nothing that fixed it for me on a Windows Server 2012 R2 XenApp server.

I'll cut to the chase, the ultimate problem is that the stupid installer program crashes if it can't find the STARTUP folder in the All-Users menu.  It doesn't even put anything in there, at least not the program I was installing, Modelogix.  The more frustrating issue is that it doesn't tell you what the problem is, just the useless error code mentioned above.  Err!!  So I spent countless hours troubleshooting this.

All the other solutions out there must only work in Windows 7 and below, not Windows 8 or Server 2012 and above.

Other solutions say to manually create the following folders if they are missing:
1. C: > Users > ("Yourname" Windows account ) > My Documents
2. C: > Users > ("Yourname" Windows account ) > AppData > Local
3. C: > Users > ("Yourname" Windows account ) > AppData > Roaming > Microsoft > Windows > Start Menu > Programs > Startup
4. C: > Users > Default > Documents
5. C: > Users > Default > AppData > Roaming > Microsoft > Windows > Start Menu > Programs > Startup
Source: https://community.flexerasoftware.com/showthread.php?207204-InstallScript-Setup-Launcher-Unicode-Has-Stopped-Working-%28Windows-message%29 

The problem is that Windows 8 and Server 2012 don't use C:\USERS\DEFAULT for the all-users area any longer!!

In Windows 8 and Server 2012 and above, they use the hidden root folder C:\PROGRAMDATA.  To be 100% sure on your system type SET ALL from a command prompt; this will display the value for the ALLUSERSPROFILE system variable and will tell you the path.

So for me, all I needed to do to fix the issue was to create the STARTUP folder in the following path: C:\ProgramData\Microsoft\Windows\Start Menu\Programs   
We had removed it as it wasn't used and I was trying to simplify the menu for our users.  This folder is hidden but you can manually type it into windows explorer, or change your settings to view hidden folders.

Once I created it in there, tada, the stupid setup program would run. I believe Flexera may have fixed this bug but your software vendor may still be using this older version.


Let me know if this helped YOU!!  

About Me

My photo
Science Fiction Author / Vice President of Technology for The Christman Company