邮件的保存问题

任何Exchange邮箱中的文件夹都是可以通过URL来访问的.
所以,访问草稿箱和访问其他文件夹没有什么区别?

通常,我们创建起来邮件后,是用CDO.message中的send方法发出邮件,该邮件会同时自动保存到"已发送邮件"文件夹中.但对于你所说的mail草稿,你完全可以用ado/cdo将其保存到类似" http://server/exchange/username/草稿箱/"这个文件夹下.

' Reference to Microsoft CDO for Exchange 2000 Library
' Reference to Microsoft ActiveX Data Objects 2.5 Library

Function CreateAndSaveMessageTo(Url1 As String) As CDO.message

Dim iDsrc As CDO.IDataSource
Dim Conn As New ADODB.Connection
Conn.Provider = "ExOLEDB.DataSource"
Conn.Open Url1

Dim iMsg As New CDO.message

With iMsg
.To = "someone@example.com"
.From = "another@example.com"
.Subject = "Here is the subject"
.TextBody = "Here is the text of the message"
End With

Set iDsrc = iMsg
Url1="http://server/exchange/user/草稿/"
iDsrc.SaveTo Url1 & "mymessage.eml", _
Conn, _
adModeReadWrite

Set CreateAndSaveMessageTo = iMsg

End Function

Url1 = "http://"+cstr(Request.ServerVariables("server_name"))+"/exchange/"+cstr(MailUser)+"/草稿/"
set Conn = server.createobject("ADODB.Connection")
Conn.Provider = "ExOLEDB.DataSource"
Conn.Open Url1
set iMsg = server.createobject("CDONTS.NewMail")
With iMsg
.From = request.form("SenderEmailInfo")
.To = request.form("ReceiverEmailInfo")
.Cc = request.form("ElsEmailInfo")
.Subject = request.form("MailSubject")
.BodyFormat = 0
.MailFormat = 0
.Body = request.form("TmpMailContent")
TmpString = split(request.form("AttachMentTitle"),"|",-1,0)
for i=0 to ubound(TmpString) .AttachFile "c:\inetpub\wwwroot\oieoa\Personal\MyMailBox\TmpAttachMent\"+cstr(TmpString(i))+""
next
End With
Set iDsrc = iMsg
iDsrc.SaveTo "http://"+cstr(Request.ServerVariables("server_name"))+"/exchange/"+cstr(MailUser)+"/草稿/"+cstr(request.form("MailSubject"))+".eml", Conn, adModeReadWrite
看一下，有何不妥？