فرستادن ایمیل با CDO

سلام
این متن برنامه ای است که من روی دستگاه خودم به راحتی ایمیل می فرستم ولی وقتی که این برنامه را از روی سرور شبکه که در آن هستم ،اجرا می کنم به من پیغام خطا می دهد
این را می دانم که ورژن IIS دستگاه خودم با سرور متفاوت است ورژن IIS سرور 6 هست
متن برنامه:
<%

dim objCDOSYSMail
Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
With objCDOSYSCon
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1.10"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update

Set objCDOSYSMail.Configuration = objCDOSYSCon

e1=request("e1")
e2=Request("sender")
matn=request("matn")

objCDOSYSMail.to="ghaum@yahoo.com"
objCDOSYSMail.from=e2
objCDOSYSMail.subject="Sobh"
objCDOSYSMail.htmlbody=matn
objCDOSYSMail.send
end with
Set objCDOSYSMail = Nothing%>

این هم پیغام خطا:
CDO.Message.1 error '80040222'

The pickup directory path is required and was not specified.

/mailtest.asp, line 46

این هم خط 46:
objCDOSYSMail.send

ممنون

<%
Set oCdoMail = Server.CreateObject("CDO.Message")
Set oCdoConf = Server.CreateObject("CDO.Configuration")
%>

<%
sConfURL = "http://schemas.microsoft.com/cdo/configuration/"
with oCdoConf
.Fields.Item(sConfURL & "sendusing") = 2
.Fields.Item(sConfURL & "smtpserver") = "webmail.4bagh.net"
.Fields.Item(sConfURL & "smtpserverport") = 25
.Fields.Update
end with
%>

<%
with oCdoMail
.From = "webmaster@4bagh.net"
.To = "hamid_khakzad@yahoo.com"
end with
%>

<%
with oCdoMail
.Subject = "My message subject"
.textbody="Hello"
.HTMLBody = "<b>this is my mail</B>"

end with
%>

<%
oCdoMail.Configuration = oCdoConf
oCdoMail.Send
Set oCdoConf = Nothing
Set oCdoMail = Nothing
%>
البته باید smtp سرور و آدرس میل فرستنده را برای خودت عوض کنی