1. We have moved from vBulletin to XenForo and you are viewing the site in the middle of the move. Though the functional aspect of everything is working fine, we are still working on other changes including the new design on Xenforo.
    Dismiss Notice

Can any perl expert help mee plz

Discussion in 'Perl' started by rahul_mawana, Apr 13, 2009.

  1. rahul_mawana

    rahul_mawana New Member

    hello friends i m trying to send emil in perl
    using smtp.gawab.com,every thing is ok not error is displayed
    but email is not going successfully on reciever account ,
    plz can any perl expert help mee i m in big problem plz
    mail is going from my computer ,my antivirus detecting it..i m free user on www.gawab.com
    i m on windows xp
    this is my code
    use Net::SMTP; 
    print "Content-type:text/html\n\n"; 
    my $debug = 1; 
    $| = 1; 
    #-smtp server name 
    my $server = "smtp.gawab.com"; 
    #-a new object of the server 
    $smtp = Net::SMTP -> new($server,Debug=>1); 
    die "Could not connect to the server" unless $smtp; 
    #-authorizing entry 
    #-from and to 
    $smtp->mail("[EMAIL="me@gawab.com"]me@gawab.com[/EMAIL]"); #this is the real "from" address 
    $smtp->to("[EMAIL="you@gmail.com"]you@gmail.com[/EMAIL]"); #this is the real "to" address 
    #-message send 
    $smtp->datasend("To: [EMAIL="you@gmail.com\n"]you@gmail.com\n[/EMAIL]"); #this is the "to" address displayed in the mail 
    $smtp->datasend("From: [EMAIL="me@gawab.com\n"]me@gawab.com\n[/EMAIL]"); #this is the "from" address displayed in the mail 
    $smtp->datasend("Subject: Mail Test\n"); 
    $smtp->datasend("This is mail test number : NET-SMTP-E-PL-ROCHESU-005\n"); 
    #-quit connection to server 
    plz sir help me plz
    Last edited by a moderator: Apr 13, 2009
  2. shabbir

    shabbir Administrator Staff Member

    Couple of things.

    1. Use Code blocks for Code in posts.
    2. Title should be something better than what you have posted and remember that next time.

Share This Page