Отправка на EMAIL

[_Lexa98_]

Есть функция:

Func _send($Body, $Subject, $Attachment)
$FromAddress = '*'
$ToAddress = '*'
$SMTPServer = 'smtp.mail.ru'
$Username = '*'
$Password = "*"
$Port = '2525'

$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 ;SMTP Server
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password ;Пароль SMTP-сервер
        .Item ($str & "smtpserverport") = $Port ;Порт
        .Update
    EndWith
$hMAIL.Send
EndFunc

Указываю все переменные и запускаю, выходит ошибка:

The requested action with this object has failed.:
.AddAttachment ($Attachment)
.AddAttachment ($Attachment)^ ERROR

Что не так?

 

[sngr]

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Func MyErrFunc()
	MsgBox(4096, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
			"err.description is: " & @TAB & $oMyError.description & @CRLF & _
			"err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
			"err.number is: " & @TAB & hex($oMyError.number, 8) & @CRLF & _
			"err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
			"err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
			"err.source is: " & @TAB & $oMyError.source & @CRLF & _
			"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
			"err.helpcontext is: " & @TAB & $oMyError.helpcontext)
	Exit 1
EndFunc

Сюда объект должен ругаться. $Attachment - это прикрепляемый файл, как я понимаю, коий должени передаватся в эту функцию. Ты его передаёшь?

 

[kaster]

поиском пробовал пользоваться? тем с отправкой писем полно. покажи как передаешь путь до файлов. судя по остальным примерам - путь должен быть абсолютный. у тебя так?

 

[_Lexa98_]

sngr [?]

Ты его передаёшь?

Да

Kaster [?]

путь должен быть абсолютный. у тебя так?

_send("test", "lalala", @TempDir & "\" & "proc.txt")

Func _send($Body, $Subject, $Attachment)
$FromAddress = '*'
$ToAddress = '*'
$SMTPServer = 'smtp.mail.ru'
$Username = '*'
$Password = "*"
$Port = '2525'

$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 ;SMTP Server
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password ;Пароль SMTP-сервер
        .Item ($str & "smtpserverport") = $Port ;Порт
        .Update
    EndWith
$hMAIL.Send
EndFunc

 

[kaster]

_Lexa98_
а если файл положить куда-нибудь в другое место, например @ScriptDir? точно не скажу, но на 7-ке вроде были какие-то грабли с Temp-папкой. у тебя 7ка?

 

[_Lexa98_]

Kaster
нет


Добавлено:

Сообщение автоматически объединено: 28 Апр 2012

Kaster
ааа, все заработало
Просто я написал это:

_send("StartUp" , @HOUR & ":" & @MIN & ":" & @SEC, 0)

Вместо:

_send("StartUp" , @HOUR & ":" & @MIN & ":" & @SEC, '')

блин..