sub email { my ($self, $data) = @_; $data->{InvoiceNumber} = $self->{InvoiceNumber}; for (qw/FromEmail FromName SubjectLine Body RecipientEmail/) { die "You must supply the $_ parameter" unless $data->{$_}; } $self->{kf}->_c("EmailInvoice", $data); } ##

##



   
      
         my_user
         my_pass
         
            Billing
            billing@billing.co.uk
            ghenry@ghenry.co.uk
            Many thanks for your
business!

Please see attached invoice.

-- 
Kind Regards,

Billing.

E billing@billing.co.uk

http://www.billing.co.uk
            239925
            Invoice from billing for February 2015
         
      
   


##

##

EmailInvoice => {
    endpoint => 'https://securedwebapp.com/api/service.asmx',
    soapaction => 'KashFlow/EmailInvoice',
    namespace => 'KashFlow',
    parameters => [
      SOAP::Data->new(name => 'UserName', type => 'xsd:string', attr => {}),
      SOAP::Data->new(name => 'Password', type => 'xsd:string', attr => {}),
      SOAP::Data->new(name => 'InvoiceNumber', type => 'xsd:int', attr => {}),
      SOAP::Data->new(name => 'FromEmail', type => 'xsd:string', attr => {}),
      SOAP::Data->new(name => 'FromName', type => 'xsd:string', attr => {}),
      SOAP::Data->new(name => 'SubjectLine', type => 'xsd:string', attr => {}),
      SOAP::Data->new(name => 'Body', type => 'xsd:string', attr => {}),
      SOAP::Data->new(name => 'RecipientEmail', type => 'xsd:string', attr => {}),
    ], # end parameters
  }, # end EmailInvoice

##

##

sub _c {
    my ($self, $method, @args) = @_;
    my ($result, $status, $explanation) = 
        KashFlowAPI->$method($self->{username}, $self->{password}, @args);
    if ($explanation) { croak($explanation) }
    return $result;
}

##

##

$VAR1 = {
          'FromName' => 'Billing',
          'FromEmail' => 'billing@billing.co.uk',
          'RecipientEmail' => 'ghenry@ghenry.co.uk',
          'Body' => 'Many thanks for your
business!

Please see attached invoice.

-- 
Kind Regards,

Billing.

E billing@billing.co.uk

http://www.billing.co.uk',
          'InvoiceNumber' => '239925',
          'SubjectLine' => 'Invoice from Billing for February 2015'
        };