my $msg = $Folder->Items($i); my $nrecip = $msg->Recipients->Count; for my $j (1..$nrecip) { print "$j\t",$msg->Recipients($j)->Address,"\t",$msg->Recipients($j)->Name,"\n" }