use strict; use Win32::OLE; use Win32::OLE::Const; my $text = "Test message text"; my $m_ses = Win32::OLE->new('MSMAPI.MAPISession'); my $m_msgs = Win32::OLE->new('MSMAPI.MAPIMessages'); $m_ses->SignOn; $m_msgs->{SessionID} = $m_ses->{SessionID}; $m_msgs->Compose; $m_msgs->{MsgSubject} = "blargh"; $m_msgs->{MsgNoteText} = $text; $m_msgs->{AttachmentName} = 'bolbus flowerius'; $m_msgs->{AttachmentPathName} = 'C:\boot.ini'; $m_msgs->Send(1);