Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Perl (http://www.go4expert.com/forums/perl/)
-   -   Plz help me perl guru(plz plz plz) (http://www.go4expert.com/forums/plz-help-perl-guru-plz-plz-plz-t16818/)

rahul_mawana 6Apr2009 17:09

Plz help me perl guru(plz plz plz)
 
hello sir
i m searching from 25 days a simple perl script to send mail in perl,..
i tried many mail server as yahoo,gmail,rediff,and so many,but i couldn't got success,
so any body can tell me any mail server by that i can send mail in perl,my perl script is right but i don't have any smtp server that can be used to send mail in perl,
i want to send mail my self,but i don't know any smtp server,
i m ready to make account on that mail server what i will use to send mail....
plz plz plz plz plz sir help meee plz i m on windows xp sp2..
here is my code***

Code:

use Net::SMTP;
use MIME::Base64;
$message="From: ".'senderdomain.com'."\nTo: ".'reciever@domain.com'."\n"."Subject: Hello\n\nTest\n\n";
print $message;
print "\n";
my $DEBUG = 1;
my $ServerName = 'my mail server';
my $ServerAccount = encode_base64('XXXXX');
my $ServerPwd = encode_base64('XXXXX');
my $MailFrom = '$sender';
my $MailTo = '$reciever';
print "Server variables assigned\n";
my $smtp = Net::SMTP->new($ServerName, Hello => "domain.com",  Debug => 1);
die "Couldn't connect to server" unless $smtp;
print "Server connection opened\n";
if ( !$smtp->auth($ServerAccount, $ServerPwd) ) {
print "authentication failed or not needed\n";
}

if ( !$smtp->mail( $MailFrom ) ) {
print "sender not accepted\n";
exit 1;
}
if (!$smtp->to( $MailTo ) ) {
print "addressee not accepted\n";
exit 1;
}
print "Server variables checked\n";
my $maildata = $message;
$smtp->data();
$smtp->datasend( $maildata );
$smtp->dataend();
$smtp->quit();
$smtp->quit;
print "Finished sending email\n";

**************************
plz help sir plz sir plz

pradeep 6Apr2009 18:35

Re: Plz help me perl guru(plz plz plz)
 
try http://www.hotpop.com/index.jsp, but I think you'll also have to use the Perl module Net::SMTP_auth instead of Net::SMTP

rahul_mawana 7Apr2009 16:07

Re: Plz help me perl guru(plz plz plz)
 
Preedeep sir i have maken a account on hotpop but when i connecting to smtp server of hotpop on port 25 then it is saying


421 Cannot connect to SMTP server 38.113.3.70 (38.113.3.70:25), connect error 10
061


plz help me Preedeep sir

rahul_mawana 7Apr2009 16:09

Re: Plz help me perl guru(plz plz plz)
 
sory sir to mistake in spelling of your name
Pradeep sir plz help me for my problem

rahul_mawana 7Apr2009 16:18

Re: Plz help me perl guru(plz plz plz)
 
Pradeep sir i try to connect on port 25000 and it has been connected but it is giving authntication error sir i m using encode_base64 scheme for encrypted user name and password.will i have to use another encoding scheme
Waiting 4 your reply sir,

rahul_mawana 7Apr2009 16:27

Re: Plz help me perl guru(plz plz plz)
 
Pradeep sir i have understood my error basically port 25000 only for premium user not for free user.port 25 is for free user but it is not being connceted on port 25 ..
plz help me sir

pradeep 7Apr2009 16:41

Re: Plz help me perl guru(plz plz plz)
 
http://en.allexperts.com/q/Email-324...ct-error-2.htm

rahul_mawana 8Apr2009 16:05

Re: Plz help me perl guru(plz plz plz)
 
sorry sir this is not solving my problem,
why m i not connecting on hotpop smtp server on port 25
help me sir ,is there not any other smtp server that can be used by me

rahul_mawana 8Apr2009 16:59

Re: Plz help me perl guru(plz plz plz)
 
sir i have searched a smtp server that can be used that is smtp.gawab.com and domain is www.gawab.com,
but my programme is not working on this smtp server
sir i m requesting you can plz tell me a small progamme that can send mail
by this mail server,i know it will take more time to make an account on it,but
you are the master and i hope you will help me,(or any other body help me)
plz sir plz sir plz plz plz plz
spend a small time for me ,i m in big trouble plz sir help me plz
plz sir last and one time ,i m waiting your replay sir help me

rahul_mawana 13Apr2009 16:00

Re: Plz help me perl guru(plz plz plz)
 
koi to help kur doo yarr


All times are GMT +5.5. The time now is 18:12.