Select Code to Download

Select or download this

sub OutLookAdd{
    my ($id) = @_;
...
        $NewContact->Save();
}

Select or download this

Win32::OLE(0.1502) error 0x80080005: "Server execution failed" at c:\w
+eb\cgi-bin\PHONEL~1\new.pl line 209
    eval {...} called at c:\web\cgi-bin\PHONEL~1\new.pl line 209
    main::OutLookAdd(407) called at c:\web\cgi-bin\PHONEL~1\new.pl lin
+e 183
    main::additem2 called at c:\web\cgi-bin\PHONEL~1\new.pl line 84