Dim LoginEmail As String = "spread@reasonables.com"

Dim LoginPassword As String = "spread"

  'Define the from infomation

Dim From As String = "myedm@edm.com"

Dim FromName As String= "Reasonable"

 'Define recipient email

Dim To As String= "noclone@reasonables.com"

 'Define the email subject and body

Dim Subject As String= "NoClone 4 is released!"

Dim Body As String= "Download NoClone 4 at http://noclone.net now!"

'Create a SpreadWebService object and use its method.

Dim MySpread As New SpreadWebService

Dim Result As String=MySpread.send(LoginEmail, LoginPassword, From,Fromname, To,Subject,Body)

/**
* @name     sendOne
* @function send email one by one
* @return
*   'Invalid Email Address'                                            
*   'Information required'                                             
*   'LoginEmail and Password do not match'                             
*   'Sent failed'                                                      
*   'Your email has submitted successfully and will by send out soon.' 
*   'Sent success'                                                     
*/
public function sendOne($loginEmail,$assword,$actName,$from,$fromName,$toEmail,$Msubject,$Mbody){
    $sendParam = array(
        'LoginEmail'    => $loginEmail,
        'Password'      => $password,
        'CampaignName'  => empty( $actName ) ? SITE_DOMAIN.'_act_'.date( 'Y-n-j' ) : $actName,
        'From'          => $from,
        'FromName'      => $fromName,
        'To'            => $toEmail,
        'Subject'       => $Msubject,
        'Body'          => $Mbody
    );
    $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
    error_log( json_encode( $sendParam )."__param" );
    $sendResult = $Client -> Send2( $sendParam ); 
    return $sendResult;
}