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 files() As CampaignAttachment

ReDim files(2)

files(0) = New CampaignAttachment

files(0).displayName = "1234.txt"

files(0).file = File .ReadAllBytes( "xxxx/1234.txt" )

files(0).fileType = ".txt"

files(1) = New CampaignAttachment

files(1).displayName = "cat.png"

files(1).file = File .ReadAllBytes( "xxxx/cat.png" )

files(1).fileType = ".png"

'Create a SpreadWebService object and use its method.

Dim MySpread As New SpreadWebService

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

        /**
     * @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 SendWithAttachment($loginEmail,$assword,$actName,$from,$fromName,$toEmail,$replyTo,$Msubject,$Mbody,$files){
        $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,
            'files'         => $files
        );
        $Client=new SoapClient("http://service.rspread.com/Service.asmx?WSDL");
        error_log( json_encode( $sendParam )."__param" );
        $sendResult = $Client -> SendWithAttachment( $sendParam ); 
        return $sendResult;
    }