Перестала работать отправка сообщений через CDO

Здравствуйте! Почему-то в один день перестали отправляться сообщения через CDO на всех компьютерах с Windows XP. В Windows 7 все отправляется нормально. Почта Яндекс. Процедура отправки обычная, давно ничего не менялось, может есть какие мысли у кого?
[code]#Define cdoSMTPServer "http://schemas.microsoft.com/cdo/configuration/smtpserver"
#Define cdoSendUsingMethod "http://schemas.microsoft.com/cdo/configuration/sendusing"
#Define cdoSMTPServerPort "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
#Define cdoSMTPAuthenticate "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
#Define cdoSendPassword "http://schemas.microsoft.com/cdo/configuration/sendpassword"
#Define cdoSendUserName "http://schemas.microsoft.com/cdo/configuration/sendusername"
#Define cdosmtpusessl "http://schemas.microsoft.com/cdo/configuration/smtpusessl"
Try
If Not Empty(lc_To)
oConf = Createobject("CDO.Configuration")
oFlds = oConf.Fields
oFlds.Item(cdoSendUsingMethod).Value = 2
oFlds.Item(cdoSMTPServer).Value = Alltrim(lc_SMTP)
oFlds.Item(cdoSMTPServerPort).Value = 465
oFlds.Item(cdosmtpusessl).Value = .t.
oFlds.Item(cdoSMTPAuthenticate).Value = 1
oFlds.Item(cdoSendUserName).Value = Alltrim(lc_username)
oFlds.Item(cdoSendPassword).Value = Alltri(lc_password)
else
oFlds.Item(cdoSMTPAuthenticate).Value = 0
endif
oFlds.Update
oMSG = Createobject("CDO.Message")
oMSG.Configuration = oConf
oMSG.From = Alltrim(lc_From)
oMSG.To = Alltrim(lc_To)
oMSG.Subject = Alltrim(cSubject)
oMSG.TextBody = Alltrim(cTextBody)
oMSG.TextBodyPart.Charset ="windows-1251"
oMSG.TextBodyPart.ContentTransferEncoding ="quoted-printable"
lcFile= pathhome +'Акт.xls'
ibp=oMSG.AddAttachment(lcFile)
ibp.ContentMediaType="application/zip"
oMSG.Send()
oMSG=.null.
=messagebox("Сообщение отправлено",0,"")
ll_1=.t.
WAIT CLEAR
Catch To loExc
Messagebox(loExc.Message,48,"SendMail")
Endtry[/code]
Если у кого есть, дайте рабочий код отправки почты через winsock, из примеров на сайте попробовал, не работает, разобраться не могу, очень сложно. Но все примеры на сайте старые, возможно там есть не все нужные сейчас настройки, например ssl.

0

Автор публикации

Пользователи не найдены
Оставить комментарий
Авторизация
*
*
Генерация пароля