1 Тема от chippp (изменено: chippp, 2013-09-04 12:09:04)

  • chippp
  • Участник
  • Неактивен

Тема: AHK: Отправка E-mail c помощью CDO.Message

Сообщения из Win7,8 отправляются отлично, на Win Xp SP3 возникли проблемы. Отправка из сборки Idimm идет, из Simplix и оригинальной Win XP SP3 выдает ошибку (смотреть скрин). Подскажите - куда копать ?

Код:

pmsg             := ComObjCreate("CDO.Message")
pmsg.From         := """XXX"" <...@gmail.com>"
pmsg.To         := "...@gmail.com"
pmsg.BCC         := ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
pmsg.CC         := ""
pmsg.Subject     := "Message_Subject"

;You can use either Text or HTML body like
pmsg.TextBody     := "MsgContent"

pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")   := "smtp.gmail.com" ; specify your SMTP server
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")    := 465 ; 25
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      := True ; False
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")     := 2   ; cdoSendUsingPort
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")     := 1   ; cdoBasic
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") := "...@gmail.com"
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") := "YouR_Password"
pmsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") := 60

pmsg.Configuration.Fields.Update()

pmsg.Send()

ExitApp

Версии CDOSYS.DLL одинаковые в Xp-шках