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

[mostafa612003]

سلام
این متن برنامه ای است که من روی دستگاه خودم به راحتی ایمیل می فرستم ولی وقتی که این برنامه را از روی سرور شبکه که در آن هستم ،اجرا می کنم به من پیغام خطا می دهد
این را می دانم که ورژن 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

ممنون

[hamid-khakzad]

<%
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 سرور و آدرس میل فرستنده را برای خودت عوض کنی