My guess is that you are getting epoch dates -- that is, offset in seconds from
the computer's epoch. You can test this by getting the date, then printing the
value of
scalar(localtime($date_val))
which will attempt to figure out the date from the epoch. Note that Access may
use a different epoch than the computer (I don't see why it should, but just in
case...), in which case you may need to do some arithmitic on the initial value
to get it to the computer's epoch...
HTH,
Ricky
-----Original Message-----
From: Wells, Doug [mailto:[EMAIL PROTECTED]]
Sent: Tuesday 18 December 2001 3:04 PM
To: '[EMAIL PROTECTED]'
Subject: OLE and Outlook
Hi-
I am using OLE to access information in my Contacts folder in my Outlook PST
file. All is fine, but I need the last modification information and I am having
trouble with it. When I access that data, it is a long integer (possibly a
Julian date?). I am not sure how to interpret it into a useable date. Can anyone
help? Here is my code:
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Outlook';
my $Outlook = Win32::OLE->new('Outlook.Application', 'Quit');
my $ol = Win32::OLE::Const->Load($Outlook);
my $namespace = $Outlook->GetNamespace("MAPI");
my $Folder = $namespace->GetDefaultFolder(olFolderContacts);
my $contacts = $Folder->{Items};
my $ncon = $contacts->{Count};
print "number of contacts - $ncon\n\n";
my $con;
for my $ii (1 .. $ncon) {
$con = $contacts->Item($ii);
print "$ii - $con->{FullName}\n";
print "Phone is $con->{HomeTelephoneNumber}\n";
print "Last Modified ${$con->{LastModificationTime}}\n";
}
Thanks
Doug
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
