#!/usr/bin/perl

use Win32::OLE;

$server = $ARGV[0];
my $notes_dead = Win32::OLE->new('Notes.NotesSession') or die "Cannot open Notes Session, $!";
print "The notes_server is : $server \n";
my $database_dead = $notes_dead->GetDatabase( $server,'mail\\admin.nsf' );

my $view_dead = $database_dead->GetView('$Inbox');

my $ndoc_dead = $view_dead->GetFirstDocument;
while ( $ndoc_dead )
{
	
	$nDocCount +=1;
	my $sub = $ndoc_dead->GetFirstItem("Subject");

	my $deadlocation = $sub->text;
	#print $ndoc_dead->GetFirstItem("PostedDate");
	my @Postdate = $ndoc_dead->GetItemValue("PostedDate");
	print @Postdate , "\n";
	foreach $i (@Postdate) 
	{
		print @$i , "\n";
	}
	
	$ndoc_dead = $view_dead->GetNextDocument($ndoc_dead);
}