Что нового
Автор:
Фильтры

[Сеть, интернет] Не работает скипр отправки почты через CDO.Message. Помогите исправить ошибку

V

vaf

Новичок
Сообщения
190
Репутация
2
Добрый день, уважаемые форумчане. Нашел на форуме скрипт отправки почты, но он почему то при запуске или компиляции выдает ошибку

error: missing separator character before keyword.
Ошибка в строке .To = $ToAddress
В чем может быть проблема ?

Заранее спасибо.

Код: 
_send("тааакс", "кое что новое", "")

Func _send($Body, $Subject, $Attachment)
$FromAddress = '[email protected]'
$ToAddress = '[email protected]'
$Body = ' '
$SMTPServer = 'smtp.yandex.ru'
$Username = '[email protected]'
$Password = "password"
$Port = '25'

$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
    With $hMAIL
        .From = $FromAddress
        .To = $ToAddress
        .Subject = $Subject
        .TextBody = $Body
        .AddAttachment ($Attachment)
    EndWith
    With $hMAIL.Configuration.Fields
        .Item ($str & "sendusing") = 2
        .Item ($str & "smtpserver") = $SMTPServer
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password
        .Item ($str & "smtpserverport") = $Port
        .Update
    EndWith
$hMAIL.Send
EndFunc
 
Garrett

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
vaf
error: missing separator character before keyword.
.To
~~~~~~~~~^
Нажмите, чтобы раскрыть...

To это зарезервированное ключевое слово, но так как объект IMessage имеет метод To (а To как мы выяснили ключевое слово) то Autoit "ругается", на то, что отсутствует разделитель перед ключевым словом.
Не обращайте внимание.
 
vcomp71

vcomp71

Осваивающий
Сообщения
431
Репутация
25
С этим же скриптом


Код: 
$bd_copy = "C:\proerk\email_sinhr\work\laz.mdb"

_send("Проверка", "База данных", $bd_copy)

Func _send($Body, $Subject, $Attachment)
$FromAddress = '[email protected]'
$ToAddress = '[email protected]'
$Body = ' '
$SMTPServer = 'smtp.yandex.ru'
$Username = '[email protected]'
$Password = "123"
$Port = '25'

$str = "http://schemas.microsoft.com/cdo/configuration/"

$hMAIL = ObjCreate ("CDO.Message")

$hMAIL.Configuration.Fields.Item ($str & "sendusing") = 2
$hMAIL.Configuration.Fields.Item ($str & "smtpserver") = $SMTPServer
$hMAIL.Configuration.Fields.Item ($str & "smtpauthenticate") = 1
$hMAIL.Configuration.Fields.Item ($str & "sendusername") = $Username
$hMAIL.Configuration.Fields.Item ($str & "sendpassword") = $Password
$hMAIL.Configuration.Fields.Item ($str & "smtpserverport") = $Port
$hMAIL.Configuration.Fields.Update

$hMAIL.From = $FromAddress
$hMAIL.To = $ToAddress
$hMAIL.Subject = $Subject
$hMAIL.TextBody = $Body
$hMAIL.AddAttachment ($Attachment)
$hMAIL.Send

EndFunc



Код: 
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
C:\proerk\email_sinhr\send_cdo.au3 (32) : ==> The requested action with this object has failed.:
$hMAIL.Send
$hMAIL.Send^ ERROR

Как??? Почему метод send
The requested action with this object has failed
 
alex33

alex33

Скриптер
Сообщения
1,457
Репутация
186
Vlasssov [?]
Как??? Почему метод send
Нажмите, чтобы раскрыть...
Вот именно, нужен метод, а вы свойства вызываете. :smile:
Добавьте в конец этой строки две скобки () чтобы было так:
Код: 
$hMAIL.Send()
 
vcomp71

vcomp71

Осваивающий
Сообщения
431
Репутация
25
alex33 сказал(а):
Vlasssov [?]
Как??? Почему метод send
Нажмите, чтобы раскрыть...
Вот именно, нужен метод, а вы свойства вызываете. :smile:
Добавьте в конец этой строки две скобки () чтобы было так:
Код: 
$hMAIL.Send()
Нажмите, чтобы раскрыть...

На самом деле глюк был общий... Так и не понял, что это было. Рабочий вариант. Для Yandex

Код: 
Func _SendYandex($Login, $Password, $ToAddress,  $subject, $body, $Attachment)

$SMTPServer = 'smtp.yandex.ru'
$Port = '465'
$FromAddress = $Login
$str = "http://schemas.microsoft.com/cdo/configuration/"


$hMAIL = ObjCreate ("CDO.Message")

$hMAIL.Configuration.Fields.Item ($str & "sendusing") = 2
$hMAIL.Configuration.Fields.Item ($str & "smtpserver") = $SMTPServer
$hMAIL.Configuration.Fields.Item ($str & "smtpauthenticate") = 1
$hMAIL.Configuration.Fields.Item ($str & "sendusername") = $Login
$hMAIL.Configuration.Fields.Item ($str & "sendpassword") = $Password
$hMAIL.Configuration.Fields.Item ($str & "smtpserverport") = $Port
$hMAIL.Configuration.Fields.Item ($str & "smtpusessl") = True

$hMAIL.Configuration.Fields.Update

$hMAIL.From = $FromAddress
$hMAIL.To = $ToAddress
$hMAIL.Subject = $Subject
$hMAIL.TextBody = $Body
$hMAIL.AddAttachment ($Attachment)
$hMAIL.Send

EndFunc
 
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
xishnik [Сеть, интернет] В IE кнопка работает, а через _IECreateEmbedded() внутри autoit нет Автоматизация IE и Web-интерфейса 0
A [Сеть, интернет] Не работает авторизация на mail.ru Помогите поправить Автоматизация IE и Web-интерфейса 0
madmasles Перенесено: [Сеть, интернет] AutoIt Не работает IE Общие вопросы по AutoIt 0
M [Сеть, интернет] AutoIt Не работает IE Автоматизация IE и Web-интерфейса 3
M [Сеть, интернет] Помогите скрипт дальше не работает когда стоит значение выше -1 Автоматизация IE и Web-интерфейса 3
Похожие темы
[Сеть, интернет] В IE кнопка работает, а через _IECreateEmbedded() внутри autoit нет
[Сеть, интернет] Не работает авторизация на mail.ru Помогите поправить
Перенесено: [Сеть, интернет] AutoIt Не работает IE
[Сеть, интернет] AutoIt Не работает IE
[Сеть, интернет] Помогите скрипт дальше не работает когда стоит значение выше -1
Верх