For a quick list, this is working as a one liner from the linux shell (mailq from the sendmail.postfix binary)..

mailq | perl -lane '$/=q[]; print $F[0].q[ ].$F[$#F].$/ unless /^-/;'
[download]

I know that mailq output varied a bit by platform..
-Harold