Smtp mail sending example

Source: Internet
Author: User
Tags strtok
An example of smtp mail sending test_smtp.phprequire (smtp. php); $ smtpnewsmtp_class; $ smtp-host_namemail.xiaocui.com; $ smtp-localhostlocalhost; $ fromwebmaster@xiaocui.com; $ toroot@xiaocui.com; if ($ smtp-SendMessage ($ from, array ($ to), array (From: $ from, To: SMTP

Smtp mail sending example

Test_smtp.php

Require ("smtp. php ");

$ Smtp = new smtp_class;

$ Smtp-> host_name = "mail.xiaocui.com ";
$ Smtp-> localhost = "localhost ";
$ From = "webmaster@xiaocui.com ";
$ To = "root@xiaocui.com ";
If ($ smtp-> SendMessage (
$ From,
Array (
$
),
Array (
"From: $ from ",
"To: $ ",
"Subject: Testing Manuel Lemos 'smtp class"
),
"Hello $ to, nnIt is just to let you know that your SMTP class is working just fine. nnBye. n "))
Echo "Message sent to $ to OK. n ";
Else
Echo "Cound not send the message to $ to. nError:". $ smtp-> error. "n"
?>

Smtp. php


Class smtp_class
{
Var $ host_name = "";
Var $ host_port = 25;
Var $ localhost = "";
Var $ timeout = 0;
Var $ error = "";
Var $ debug = 1;
Var $ esmtp = 1;
Var $ esmtp_host = "";
Var $ esmtp_extensions = array ();
Var $ maximum_piped_recipients = 100;

/* Private variables-do not access */

Var $ state = "Disconnected ";
Var $ connection = 0;
Var $ pending_recipients = 0;

/* Private methods-do not call */

Function OutputDebug ($ message)
{
Echo $ message ,"
N ";
}

Function GetLine ()
{
For ($ line = "";;)
{
If (feof ($ this-> connection ))
{
$ This-> error = "reached the end of stream while reading from socket ";
Return (0 );
}
If ($ data = fgets ($ this-> connection, 100) = false)
{
$ This-> error = "it was not possible to read line from socket ";
Return (0 );
}
$ Line. = $ data;
$ Length = strlen ($ line );
If ($ length> = 2
& Substr ($ line, $ length-2, 2) = "rn ")
{
$ Line = substr ($ line, 0, $ length-2 );
If ($ this-> debug)
$ This-> OutputDebug ("<$ line ");
Return ($ line );
}
}
}

Function PutLine ($ line)
{
If ($ this-> debug)
$ This-> OutputDebug ("> $ line ");
If (! Fputs ($ this-> connection, "$ linern "))
{
$ This-> error = "it was not possible to write line to socket ";
Return (0 );
}
Return (1 );
}

Function PutData ($ data)
{
If (strlen ($ data ))
{
If ($ this-> debug)
$ This-> OutputDebug ("> $ data ");
If (! Fputs ($ this-> connection, $ data ))
{
$ This-> error = "it was not possible to write data to socket ";
Return (0 );
}
}
Return (1 );
}

Function VerifyResultLines ($ code, $ responses = "")
{
If (GetType ($ responses )! = "Array ")
$ Responses = array ();
Unset ($ match_code );

While ($ line = $ this-> GetLine ($ this-> connection )))
{
If (IsSet ($ match_code ))
{
If (strcmp (strtok ($ line, "-"), $ match_code ))
{
$ This-> error = $ line;
Return (0 );
}
}
Else
{
$ Match_code = strtok ($ line ,"-");
If (GetType ($ code) = "array ")
{
For ($ codes = 0; $ codes if ($ codes> = count ($ code ))
{
$ This-> error = $ line;
Return (0 );
}
}
Else
{
If (strcmp ($ match_code, $ code ))
{
$ This-> error = $ line;
Return (0 );
}
}
}
$ Responses [] = strtok ("");
If (! Strcmp ($ match_code, strtok ($ line ,"")))
Return (1 );
}
Return (-1 );
}

Function FlushRecipients ()
{
If ($ this-> pending_sender)
{
If ($ this-> VerifyResultLines ("250") <= 0)
Return (0 );
$ This-> pending_sender = 0;
}
For (; $ this-> pending_recipients --)
{
If ($ this-> VerifyResultLines (array ("250", "251") <= 0)
Return (0 );
}
Return (1 );
}

/* Public methods */

Function Connect ()
{
$ This-> error = $ error = "";
$ This-> esmtp_host = "";
$ This-> esmtp_extensions = array ();
If (! ($ This-> connection = ($ this-> timeout? Fsockopen ($ this-> host_name, $ this-> host_port, & $ errno, & $ error, $ this-> timeout): fsockopen ($ this-> host_name, $ this-> host_port ))))
{
Switch ($ error)
{
Case-3:
$ This-> error = "-3 socket cocould not be created ";
Return (0 );
Case-4:
$ This-> error = "-4 dns lookup on hostname" ". $ host_name." "failed ";
Return (0 );
Case-5:
$ This-> error = "-5 connection refused or timed out ";
Return (0 );
Case-6:
$ This-> error = "-6 fdopen () call failed ";
Return (0 );
Case-7:
$ This-> error = "-7 setvbuf () call failed ";
Return (0 );
Default:
$ This-> error = $ error. "cocould not connect to the host" ". $ this-> host_name .""";
Return (0 );
}
}
Else
{
If (! Strcmp ($ localhost = $ this-> localhost ,"")
&&! Strcmp ($ localhost = getenv ("SERVER_NAME "),"")
&&! Strcmp ($ localhost = getenv ("HOST "),""))
$ Localhost = "localhost ";
$ Success = 0;
If ($ this-> VerifyResultLines ("220")> 0)
{
If ($ this-> esmtp)
{
$ Responses = array ();
If ($ this-> PutLine ("EHLO $ localhost ")
& $ This-> VerifyResultLines ("250", & $ responses)> 0)
{
$ This-> esmtp_host = strtok ($ responses [0], "");
For ($ response = 1; $ response {
$ Extension = strtoupper (strtok ($ responses [$ response], "");
$ This-> esmtp_extensions [$ extension] = strtok ("");
}
$ Success = 1;
}
}
If (! $ Success
& $ This-> PutLine ("HELO $ localhost ")
& Amp; $ this-& gt; VerifyResultLines ("250") & gt; 0)
$ Success = 1;
}
If ($ success)
{
$ This-> state = "Connected ";
Return (1 );
}
Else
{
Fclose ($ this-> connection );
$ This-> connection = 0;
$ This-> state = "Disconnected ";
Return (0 );
}
}
}

Function MailFrom ($ sender)
{
If (strcmp ($ this-> state, "Connected "))
{
$ This-> error = "connection is not in the initial state ";
Return (0 );
}
$ This-> error = "";
If (! $ This-> PutLine ("mail from: <". $ sender. "> "))
Return (0 );
If (! IsSet ($ this-> esmtp_extensions ["PIPELINING"])
& $ This-> VerifyResultLines ("250") <= 0)
Return (0 );
$ This-> state = "SenderSet ";
If (IsSet ($ this-> esmtp_extensions ["PIPELINING"])
$ This-> pending_sender = 1;
$ This-> pending_recipients = 0;
Return (1 );
}

Function SetRecipient ($ recipient)
{
Switch ($ this-> state)
{
Case "SenderSet ":
Case "RecipientSet ":
Break;
Default:
$ This-> error = "connection is not in the recipient setting state ";
Return (0 );
}
$ This-> error = "";
If (! $ This-> PutLine ("rcpt to: <". $ recipient. "> "))
Return (0 );
If (IsSet ($ this-> esmtp_extensions ["PIPELINING"])
{
$ This-> pending_recipients;
If ($ this-> pending_recipients >=$ this-> maximum_piped_recipients)
{
If (! $ This-> FlushRecipients ())
Return (0 );
}
}
Else
{
If ($ this-> VerifyResultLines (array ("250", "251") <= 0)
Return (0 );
}
$ This-> state = "RecipientSet ";
Return (1 );
}

Function StartData ()
{
If (strcmp ($ this-> state, "RecipientSet "))
{
$ This-> error = "connection is not in the start sending data state ";
Return (0 );
}
$ This-> error = "";
If (! $ This-> PutLine ("DATA "))
Return (0 );
If ($ this-> pending_recipients)
{
If (! $ This-> FlushRecipients ())
Return (0 );
}
If ($ this-> VerifyResultLines ("354") <= 0)
Return (0 );
$ This-> state = "SendingData ";
Return (1 );
}

Function PrepareData ($ data, & $ output)
{
$ Length = strlen (& $ data );
For ($ output = "", $ position = 0; $ position <$ length ;)
{
$ Next_position = $ length;
For ($ current = $ position; $ current <$ length; $ current)
{
Switch ($ data [$ current])
{
Case "n ":
$ Next_position = $ current 1;
Break 2;
Case "r ":
$ Next_position = $ current 1;
If ($ data [$ next_position] = "n ")
$ Next_position;
Break 2;
}
}
If ($ data [$ position] = ".")
$ Output. = ".";
$ Output. = substr (& $ data, $ position, $ current-$ position). "rn ";
$ Position = $ next_position;
}
}

Function SendData ($ data)
{
If (strcmp ($ this-> state, "SendingData "))
{
$ This-> error = "connection is not in the sending data state ";
Return (0 );
}
$ This-> error = "";
Return ($ this-> PutData (& $ data ));
}

Function EndSendingData ()
{
If (strcmp ($ this-> state, "SendingData "))
{
$ This-> error = "connection is not in the sending data state ";
Return (0 );
}
$ This-> error = "";
If (! $ This-> PutLine ("rn .")
| $ This-& gt; VerifyResultLines ("250") <= 0)
Return (0 );
$ This-> state = "Connected ";
Return (1 );
}

Function ResetConnection ()
{
Switch ($ this-> state)
{
Case "Connected ":
Return (1 );
Case "SendingData ":
$ This-> error = "can not reset the connection while sending data ";
Return (0 );
Case "Disconnected ":
$ This-> error = "can not reset the connection before it is established ";
Return (0 );
}
$ This-> error = "";
If (! $ This-> PutLine ("RSET ")
| $ This-& gt; VerifyResultLines ("250") <= 0)
Return (0 );
$ This-> state = "Connected ";
Return (1 );
}

Function Disconnect ($ quit = 1)
{
If (! Strcmp ($ this-> state, "Disconnected "))
{
$ This-> error = "it was not previusly established a SMTP connection ";
Return (0 );
}
$ This-> error = "";
If (! Strcmp ($ this-> state, "Connected ")
& $ Quit
&&(! $ This-> PutLine ("QUIT ")
| $ This-> VerifyResultLines ("221") <= 0 ))
Return (0 );
Fclose ($ this-> connection );
$ This-> connection = 0;
$ This-> state = "Disconnected ";
Return (1 );
}

Function SendMessage ($ sender, $ recipients, $ headers, $ body)
{
If ($ success = $ this-> Connect ()))
{
If ($ success = $ this-> MailFrom ($ sender )))
{
For ($ recipient = 0; $ recipient {
If (! ($ Success = $ this-> SetRecipient ($ recipients [$ recipient])
Break;
}
If ($ success
& ($ Success = $ this-> StartData ()))
{
For ($ header_data = "", $ header = 0; $ header $ header_data. = $ headers [$ header]. "rn ";
If ($ success = $ this-> SendData ($ header_data. "rn ")))
{
$ This-> PrepareData ($ body, & $ body_data );
$ Success = $ this-> SendData ($ body_data );
}
If ($ success)
$ Success = $ this-> EndSendingData ();
}
}
$ Disconnect_success = $ this-> Disconnect ($ success );
If ($ success)
$ Success = $ disconnect_success;
}
Return ($ success );
}

};

?>

[This article is copyrighted by the author and osuo. if you need to reprint it, please indicate the author and its source]
Related Article

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.