Отправка скриншота по e-mail

[Arei]

OffTopic:
наверное, проверять не буду.

Добавлено:

Сообщение автоматически объединено: 10 Авг 2011

OffTopic:
проверял на 3.3.6.1

 

[_Lexa98_]

обновил, и все также :(

 

[SECTOR]

Видать дело в OC или в Подключении

 

[Arei]

у него не компилируется.

 

[_Lexa98_]

Arei
У тебя x64?

 

[Arei]

да

 

[_Lexa98_]

у меня x32

 

[Arei]

он должно работать везде.Что то .У вас XP?

 

[_Lexa98_]

Arei
Windows 7

 

[Zaramot]

_Lexa98_

А есть возможность сделать тоже самое без dll?

#include <ScreenCapture.au3>

$Screen  @TempDir & '\screenshot.jpg'
_ScreenCapture_Capture($Screen)
Do
Until FileExists($Screen)

$FromAddress = 'от кого письмо'
$ToAddress = 'кому письмо'
$Subject = 'тема письма'
$Body = 'текст письма'
$Attachment = $Screen ;файл для отправки
$SMTPServer = 'smtp.mail.ru'
$Username = 'логин@mail.ru'
$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

 

[_Lexa98_]

Zaramot
В конце пишет ошибку:

==> The requested action with this object has failed.:
$hMAIL.Send
$hMAIL.Send^ ERROR
>Exit code: 1    Time: 22.669