my $namespace = $outlook->GetNamespace("MAPI");
  my $folder = $namespace->GetDefaultFolder(olFolderInbox);
  my $mailitems = $folder->Items;
  my $firstmail = $mailitems->GetFirst;
  my $subject = $firstmail->Subject;
  my $sendername = $firstmail->SenderName; #Outlook security prompt