Что нового

Не понятная ошибка при отправке файла на E-mail

urrya

Новичок
Сообщения
159
Репутация
1
Доброго времени суток дамы и гос-да.

Есть код отправки файлов на почтовый ящик -
Код:
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.
---------------------------
ОК
---------------------------


прошу помощи в исправлении этой ошибки.
:scratch:
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
urrya
за последний месяц уже раза три обсуждали это. вот рабочий вариант http://autoit-script.ru/index.php?topic=19682.msg117733#msg117733
 
Верх