Go4Expert - Finding incoming mail server by email address

Go4Expert (http://www.go4expert.com/)

- Programming (http://www.go4expert.com/forumdisplay.php?f=16)

- - Finding incoming mail server by email address (http://www.go4expert.com/showthread.php?t=21142)

Finding incoming mail server by email address

hello,

I am a newbie :p I want a program to find the incoming mail server by entering an email address.

for example:

input: username@gmail.com
result: pop.gmail.com

please help! thanks

Re: Finding incoming mail server by email address

From the mail header itself we can see the incoming mail server

Re: Finding incoming mail server by email address

Using the Perl's Mail::Module you can get and set the email header informations.
For further informations please visit the perl's CPAN search about Mail::Header

Re: Finding incoming mail server by email address

thanks, can give me an example?

Re: Finding incoming mail server by email address

Here the sample code for extracting the header part from the mail.

Code:

use strict;

use warnings;

use Data::Dumper;



use Mail::Header;

my $messagefile = "mail"; #here the mail is a file which contains s data as this is for testing

open(MESSAGE,"$messagefile") or

die "Unable to open $messagefile:$!\n";

my $header = new Mail::Header \*MESSAGE;

print Dumper \$header;

close(MESSAGE);

The output will be as follows

Code:

$VAR1 = \bless( {

                   'mail_hdr_foldlen' => 79,

                   'mail_hdr_modify' => 0,

                   'mail_hdr_list' => [],

                   'mail_hdr_hash' => {},

                   'mail_hdr_mail_from' => 'KEEP',

                   'mail_hdr_lengths' => {}

                 }, 'Mail::Header' );