Onderwerp: Mail versturen via Perl mét direct feed-back

Hoi,

Ik wil een mail gaan versturen via een perl-script op een website en direct achterhalen of de geadresseerde mail-server het e-mailtje accepteert of afwijst.

Als je een mailtje verstuurt, geeft de mailserver van de geadresseerde tijdens het connecten namelijk direct aan "250 mail geaccepteerd" of "5** mailbox bestaat niet" (ik weet trouwens dat dit geen waterdicht systeem is).

Mijn vraag... is het mogelijk om in perl direct een waarde terug te krijgen of de mail geaccepteerd is door de geadresseerde mail-server?

Dan zul je zelf de betreffende mailhost moeten opzoeken uit DNS en dan zelf met SMTP een mailtje eraan moeten verzenden (het SMTP-protocol is gelukkig simpel, dit zal in perl geen probleem zijn).

Als je het aan Sendmail aflevert krijg je alleen later een bounce terug, niet direct een terugmelding.

SMTP protocol moet je er zelfs niet voor kennen:

# zoek de MX servers van @domein.tld en stuur mail met Net:SMTP

my $smtp = Net::SMTP->new('mx-server');
$smtp->mail(...);
etc, etc, perldoc voor meer informatie.

Bedankt... dat was exact wat ik nodig had!