Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings;
- use Email::Folder::Exchange;
- #use Authen::NTLM;
- #my $user = ntlm_user();
- #my $password = ntlm_password();
- my $folder = Email::Folder::Exchange->new('https://outlook.office365.com/owa/puttha.sai@wipro.com/inbox','Wipro
- pu306054','Audi@222');
- my $pile;
- for my $message ($folder->messages) {
- if ($message->header('Subject') =~ /Addition to EPAS Training Sit
- +e for 18 FLTS/) {
- $pile .= $message->body;
- last;
- }
- }
- print $pile;
- exit;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement