Deleting Exchange Email

[martydavis]

I have hade some success readung folders and email with the library module Email::Folder::Exchange::EWS. What's missing from the module is the ability to delete a message -- although Exchange 2010 EWS has a web service 'DeleteItems'

I am good until I attempt to DeleteItems. Getting 'Can't locate object method "proxy" via package "Email::Simple" at c:/PerlNew/site/lib/SOAP/Lite.pm line 3774. ' Any help will result in a profusion of thanks <\p>

#!/usr/local/perl5/bin/perl -w
use strict;
use Email::Folder::Exchange::EWS;

SOAP::Lite->import( +trace => 'all' );
  my $folder = Email::Folder::Exchange::EWS->new('https://webmailNY.XX
+XXXX.com:443/ews/exchange.asmx', 'domain\gsa_spectrum_mb_read', 'pass
+word');

  for my $message ($folder->messages) {
    print "subject: " . $message->header('Subject');
    my $from_header = $message->header("From");
    my @header_names = $message->header_names;
    my $header = $message->header_obj;
    my $message_id = $message->header('Message-ID');
      
my $method = SOAP::Data->name('DeleteItems')
    ->attr({xmlns => 'https://webmailNY.XXXXXX.com/ews:443'});
my @params = ( SOAP::Data->name('Message-ID' => $message_id));
print $message-> SOAP::Lite::call($method => @params)->result;   
print 'end';
  }