urrya
Новичок
- Сообщения
- 159
- Репутация
- 1
Доброго времени суток дамы и гос-да.
Есть код отправки файлов на почтовый ящик -
мало того что этот скрипт нельзя запустить для тестирования, пока он не .exe - шник,
так ещё на одной машине он прекрасно работает после компиляции, а другой нет,
и выдаёт непонятную (мне) ошибку -
---------------------------
AutoIt Error
---------------------------
Line 26634 (File "E:\АРХИВ\TestMeil.exe"):
Error: Only Object-type variables allowed in a "With" statement.
---------------------------
ОК
---------------------------
прошу помощи в исправлении этой ошибки.
Есть код отправки файлов на почтовый ящик -
Код:
Global $DaytimsEmailTo = (@ScriptDir & "\test.rar")
Global $TestEmailw = 0
If FileExists($DaytimsEmailTo) Then
PingG()
Else
$TestEmailw = 0
IniWrite(@ScriptDir & "\ini.ini", 'Email', '$wewe', $TestEmailw)
MsgBox(0,'Error', 'test file was not found')
EndIf
Func PingG()
Local $nal = 0, $var
$var = Ping("yandex.ru",1000)
If $var Then
_TestSendMeil()
Else
Sleep(2000)
If $nal = 12 Then
$TestEmailw = 0
IniWrite(@ScriptDir & "\ini.ini", 'Email', '$wewe', $TestEmailw)
Exit
Else
$nal += 1
EndIf
EndIf
EndFunc
Func _TestSendMeil()
Local $gNowDate = _NowDate()
Local $emailfrom = IniRead(@ScriptDir & "\ini.ini", 'Email', 'fromt', 'faq')
Local $password = IniRead(@ScriptDir & "\ini.ini", 'Email', 'Passwordt', 'faq')
Local $emailto = IniRead(@ScriptDir & "\ini.ini", 'Email', 'tot', 'faq')
$str = "http://schemas.microsoft.com/cdo/configuration/"
$hMAIL = ObjCreate ("CDO.Message")
With $hMAIL
.From = $emailfrom ; от кого
.To = $emailto ; на кого
.Subject = $gNowDate
.TextBody = " Test - Spy !!! " ;Текст
.BodyPart.Charset = "UTF-8" ;кодировка "windows-1251"
.HTMLBody = "<b> Test - Spy !!! </b></br>" ;В HTML формат
.AddAttachment ($DaytimsEmailTo) ;Файл
Sleep(2000)
EndWith
With $hMAIL.Configuration.Fields
.Item ($str & "sendusing") = 2
.Item ($str & "smtpserver") = 'smtp.yandex.ru' ;smtp сервер
.Item ($str & "smtpauthenticate") = 1
.Item ($str & "sendusername") = $emailfrom
.Item ($str & "sendpassword") = $password ;Пароль
.Item ($str & "smtpusessl") = 1 ;TLS/SSL
.Item ($str & "smtpserverport") = 465 ;Порт
.Update
EndWith
$hMAIL.Send
$TestEmailw = 1
IniWrite(@ScriptDir & "\ini.ini", 'Email', '$wewe', $TestEmailw)
EndFunc
мало того что этот скрипт нельзя запустить для тестирования, пока он не .exe - шник,
так ещё на одной машине он прекрасно работает после компиляции, а другой нет,
и выдаёт непонятную (мне) ошибку -
---------------------------
AutoIt Error
---------------------------
Line 26634 (File "E:\АРХИВ\TestMeil.exe"):
Error: Only Object-type variables allowed in a "With" statement.
---------------------------
ОК
---------------------------
прошу помощи в исправлении этой ошибки.