Что нового

После обновления AutoIt до 12.0 появилась ошибка с объектом в отправке e-mail

Юрий

Новичок
Сообщения
82
Репутация
3
День добрый. При версии 10.1 всё работало, обновился - ошибка.

Код функции:
Код:
Func SendAnEmail()
	Local $ToAdress$SmtpServer, $FromName, $FromAddress, $Subject, $Body, $Username, $Password, $IPPort, $ssl
	$SmtpServer = "smtp.yandex.ru"
	$FromName = "Name"
	$FromAddress = "[email protected]"
	$Subject = "subj"
	$Body = "body"
	$Username = "username"
	$Password = "pass"
	$IPPort = 465
	$ssl = 1
	Local $objEmail = ObjCreate("CDO.Message")
	$objEmail.From = '"' & $FromName & '" <' & $FromAddress & ">"
	$objEmail.To = $ToAddress		; <<< Ошибка здесь: missing separator character before keyword.
	; если написать $objEmail.To1 - ошибки нет, но и письмо-то не отсылается
	$objEmail.Subject = $Subject
	$objEmail.HTMLBody = $Body

	$objEmail.AddAttachment("f.jpg")

	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $SmtpServer
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $Username
	$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $Password
	If $ssl Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
	$objEmail.Configuration.Fields.Update
	$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
	$objEmail.Fields.Update
	$objEmail.Send
	$objEmail = ""
EndFunc
 

Вложения

  • 2014-08-22 09-51-01 Скриншот экрана (2).png
    2014-08-22 09-51-01 Скриншот экрана (2).png
    105.5 КБ · Просмотры: 17
Автор
Юрий

Юрий

Новичок
Сообщения
82
Репутация
3
alex33 [?]
Как быть если свойством или методом объекта является ключевое слово AutoIt

Так я и не понял в чём беда. Найти новый Au3Check не смог. Откатился до 10.1.
 

alex33

Скриптер
Сообщения
1,457
Репутация
186
Юрий
В самом начале скрипта на первую строку вставь
Код:
#AutoIt3Wrapper_Run_AU3Check=n
 
Верх