Set iConf = Server.CreateObject("CDO.Configuration")
Set objEMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Confi = objConfig.Fields
Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
Confi.Update
Set objEMail.Configuration = objConfig
objEMail.To = "xxx@hotmail.com"
objEMail.From = "xxx@yahoo.com"
objEMail.Subject = "deneme"
objEMail.TextBody = message
objEMail.Send
Set objEMail = Nothing
yukarıdaki kodu yazdığımda local'de çalışıyor. işletim sistemi WinXP. Fakat kodları servera koyduğumda (işletim sistemi Win2k)
CDO.Message.1 error '80070005' Access is denied.
hatasını alıyorum.
Bu konu hakkında bilgisi olan duyan gören varsa lütfen bana yardım etsin.


LinkBack URL
About LinkBacks
Alıntı Yaparak Yanıtla
Bookmarks