Select Code to Download

use Win32::OLE;
$cd = Win32::OLE->new("CDONTS.NewMail") || die $!;
...
$cd->{Body}="test";
$cd->Send;
print Win32::OLE->LastError();

Dim cp As Object
Set cp = CreateObject("CDONTS.NewMail")
...
     .Body = "test"
     .Send
End With