Traditional "sendmail -q" command flushes mail queue. Under Postfix, just enter the following to flush the mail queue
# postfix flush
OR
# postfix -f
To see mail queue, enter:
# mailq
To remove all mail from the queue, enter:
# postsuper -d ALL
To remove all mails in the deferred queue, enter:
# postsuper -d ALL deferred
postfix-delete.pl script
Following script deletes all mail from the mailq which matches the regular expression specified as the first argument (Credit: ??? - I found it on old good newsgroup)
#!/usr/bin/perl
$REGEXP = shift || die "no email-adress given (regexp-style, e.g. bl.*\@yahoo.com)!";
@data = qx</usr/sbin/postqueue -p>;
for (@data) {
if (/^(\w+)(\*|\!)?\s/) {
$queue_id = $1;
}
if($queue_id) {
if (/$REGEXP/i) {
$Q{$queue_id} = 1;
$queue_id = "";
}
}
}
#open(POSTSUPER,"|cat") || die "couldn't open postsuper" ;
open(POSTSUPER,"|postsuper -d -") || die "couldn't open postsuper" ;
foreach (keys %Q) {
print POSTSUPER "$_\n";
};
close(POSTSUPER);
For example, delete all queued messages from or to the domain called fackspamdomain.com, enter:
./postfix-delete.pl fackspamdomain.com
Delete all queued messages that contain the word "xyz" in the e-mail address:
./postfix-delete.pl xyz
Updated for accuracy.
You may also be interested in...
- Postfix Illegal seek / queue file write mail server error and solution
- Force sendmail to deliver a message in sendmail's mail queue
- Postfix masquerading or changing outgoing SMTP email or mail address
- Postfix mail server block .bat, .exe .com .vbs mime attachments - common virus spreading files
- Postfix mail server limit the mailbox size
Posts
The command for "To remove all bounced mail from Queue, enter:" is incorrect. That command will completely delete all the contents of your Mail Queue.
When I read this I thought it would eliminate only the bounced back emails that were sitting in my queue. I was wrong. It deleted all 6,000 of the emails sitting in my queue.
If this post is any sign of the type of information provided on this website, the readers are in for a big surprise…and some pink slips from their employer..
Matt,
thanks for the heads up. It was a typo. The post has been updated
I think matt deserves a pink slip from his employer, because he uses commands found on random sites without even checking what the effects are!
I've found this code on two different blogs and have received compilation errors both times similar to:
Unmatched right curly bracket at ./delete-queue line 9, at end of line
(Might be a runaway multi-line ;; string starting on line 5)
syntax error at ./postfix-delete.pl line 9, near "}"
Execution of ./postfix-delete.pl aborted due to compilation errors.
I'm more of a PHP person so Perl's not my thing. I know syntax is really important and I've double and triple checked to make sure things are correct, including composing in vi, pico and bbedit editors.
??
Wow This is a seriously crappy coding job. Who writes this stuff? I cleaned this up to not only make sure this was scoped correctly, but also try to have a novice perl user understand it.
#!/usr/bin/perl
my $REGEXP = shift(@ARGV) || die "no email-adress given (regexp-style, e.g. bl.*\@yahoo.com)!";
my %Q;
my $queue_id;
my @data = `/usr/sbin/postqueue -p`;
foreach my $line (@data) {
if ($line =~ /^(\w+)(\*|\!)?\s/) {
$queue_id = $1;
}
if($queue_id) {
if ($line =~ /$REGEXP/i) {
$Q{$queue_id} = 1;
$queue_id = "";
}
}
}
open(POSTSUPER,"|postsuper -d -") || die "couldn't open postsuper" ;
foreach my $key (keys %Q) {
print POSTSUPER "$key\n";
}
close(POSTSUPER);
Hopefully this helps.. I cannot confirm that this works, just cleaned it up so that it makes sense.