Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Programming (http://www.go4expert.com/forums/programming-forum/)
-   -   Finding incoming mail server by email address (http://www.go4expert.com/forums/finding-incoming-mail-server-email-t21142/)

f00 27Feb2010 14:55

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

thillai_selvan 27Feb2010 15:23

Re: Finding incoming mail server by email address
 
From the mail header itself we can see the incoming mail server

thillai_selvan 27Feb2010 15:30

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

f00 27Feb2010 16:52

Re: Finding incoming mail server by email address
 
thanks, can give me an example?

thillai_selvan 9Mar2010 13:11

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' );



All times are GMT +5.5. The time now is 17:05.