http://qs321.pair.com?node_id=103879


in reply to CDONTS.dll

This code works for me, running perl 5.6.0 on an exchange server:
use Win32::OLE; $cd = Win32::OLE->new("CDONTS.NewMail") || die $!; $cd->{From}="test\@test.com"; $cd->{To}="test\@test.com"; $cd->{Subject}="test"; $cd->{Body}="test"; $cd->Send; print Win32::OLE->LastError();
if that doesn't work try this in VB and let me know if this works:
Dim cp As Object Set cp = CreateObject("CDONTS.NewMail") With cp .To = "test@test.com" .From = "test@test.com" .Subject = "test" .Body = "test" .Send End With
The above VB code forces VB to use the same OLE interface as Perl does.