use strict; use warnings; use Data::Dump; use Mail::Outlook; use Win32::OLE::Const 'Microsoft Outlook'; Win32::OLE->Option(Warn => 3); my $outlook = new Mail::Outlook('Inbox'); my $file = "D:/TEMP2/Text1.txt"; my $message = $outlook->create(); $message->To('me@company.com'); $message->Subject('Test'); $message->Body('Test Message'); $message->Attach($file); $message->send; dd [ $message->display ];