Help for this page

Select Code to Download

Select or download this

use Win32::OLE   qw(with);
my $Message = Win32::OLE->new("CDO.Message");
...
$Message->{TextBody}="ahahahahahah\n\ndjhdjkfhdasjkfh";
$Message->Send()||die $Win32::OLE::LastError,$^E;