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

Dim LoginPassword As String = "spread"

Dim CampaignName As String = Now.ToString()

  '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"

Dim replyTo As String= "myedm@edm.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!"

'Attachment infomation.

Dim Attachment() As Byte= File .ReadAllBytes( "xxxx/1234.txt" )

Dim AttachmentName As String= "1234.txt"

'Create a SpreadWebService object and use its method.

Dim MySpread As New SpreadWebService

Dim Result As String=MySpread.SendSimpleAttachment(LoginEmail, LoginPassword,CampaignName, From,Fromname, [To],replyTo,Subject,Body,Attachment,AttachmentName)

        /**
     * @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 SendSimpleAttachment($loginEmail,$assword,$actName,$from,$fromName,$toEmail,$replyTo,$Msubject,$Mbody,$Attachment,$AttachmentName){
        $sendParam = array(
            'LoginEmail'    => $loginEmail,
            'Password'      => $password,
            'CampaignName'  => empty( $actName ) ? SITE_DOMAIN.'_act_'.date( 'Y-n-j' ) : $actName,
            'From'          => $from,
            'FromName'      => $fromName,
            'To'            => $toEmail,
            'replyTo'       => $replyTo,
            'Subject'       => $Msubject,
            'Body'          => $Mbody,
            'Attachment'   => $Attachment,
            'AttachmentName'     => $AttachmentName
        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        error_log( json_encode( $sendParam )."__param" );
        $sendResult = $Client -> SendSimpleAttachment( $sendParam ); 
        return $sendResult;
    }