Outlook Format Date & Time

[jfcby]

Hi,

OS: Win XP SP 3 with Outlook 2003 SP 3

I'm trying to format the date and time that is retrieved from Outlook. The Outlook UDF had questions related to formating the date and time but I did not find a solution. In the help file I found the _DateTimeFormat function but it does not work because my result is blank. If I use $message.ReceivedTime then I get 20090107164913. How can I format this date and time to "m-d-yyyy hh:mm AMPM"?

#include <Date.au3>

$ol = ObjCreate ("Outlook.Application")
$ns = $ol.GetNameSpace("MAPI")
$AIItems = $ns.Folders("Account_Name").Folders.item("Sub_Folder_Name").Items

while 1
    ; go through them in reverse order - required if you delete anything
    for $position = $AIItems.Count to 1 step -1 

        $message = $AIItems.Item($position)
    
        if stringinstr($message.Categories,"AutoItFlag") then
            $message.Categories = ""
            $mRT = $message.ReceivedTime            
;~             msgbox(0,$message.Subject,$message.Body &_DateTimeFormat($mRT,0))
            msgbox(0,"Date Display Numbers Only",$mRT) ; Formated like: 20090107164913
            msgbox(0,"Tried this no date displayed",_DateTimeFormat($mRT,0))
        endif

    next
    
    Exit
wend

Thank you for your help,

jfcby

[Tvern]

This will convert to MM-dd-yyyy hh:mm:

$NewTime = StringRegExpReplace("20090107164913","(\d{4})(\d{2})(\d{2})(\d{2})\d{2}","$2-$3-$1 $4:$5")

You could use this pattern with a StringRegExp to get an array and then add that together to a string. (because autoit will recognise the variables as numbers it will remove the 0's in month and day),

but I think someone will be able to give an improved pattern for StringRegExpReplace which would me a much cleaner solution.