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

[Сеть, интернет] Отправка файла на e-mail адрес

Статус
Закрыто для дальнейших ответов.
W

WiryS

Новичок
Сообщения
3
Репутация
0
Здравствуйте. Много раз пробовал, но так и не смог сделать отправку файла на e-mail адрес. В отчаянии пишу сюда, чтобы вы сделали мне саму программу или дали рабочий скрипт.
Данные:
$FromAddress = "[email protected]" ; адрес отправителя
$ToAddress = "[email protected]" ; адрес назначения
$AttachFiles = Текст из файла data.txt + ".txt"; прикреплённые файлы к письму
$Username = "hfhfhffgfdgdgdfgdfgd g" ; имя пользователя аккаунта, с которого отправляется
$Password = "123wirys123" ; пароль аккаунта, с которого отправляется
 
CreatoR

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8,671
Репутация
2,481
Re: [Сеть, интернет] Помогите сделать программу

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.
Нажмите, чтобы раскрыть...


Данные правила могут пополняться локальными правилами раздела.
Как правильно называть темы

"[Сеть, интернет] Помогите сделать программу" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, ваш Администратор.
 
_Lexa98_

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
WiryS
Вот тебе функция:
Код: 
_send("тело письма", "тема письма", "полный путь к файлу")
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
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password
        .Item ($str & "smtpserverport") = $Port
        .Update
    EndWith
$hMAIL.Send
EndFunc
 
joiner

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
WiryS
на форуме куча тем по этому вопросу. есть готовые программы на autoit..пользуйся поиском по форуму..все легко находится.
 
Автор
W

WiryS

Новичок
Сообщения
3
Репутация
0
ЧТо не так ???

Код: 
_send("тело письма", "тема письма", "C:\123.txt")
Func _send($Body, $Subject, $Attachment)
$FromAddress = '[email protected]'
$ToAddress = '[email protected]'
$SMTPServer = 'smtp.mail.ru'
$Username = 'hfhfhffgfdgdgdfgdfgd'
$Password = "123wirys123"
$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
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password
        .Item ($str & "smtpserverport") = $Port
        .Update
    EndWith
$hMAIL.Send
EndFunc


Eror: The requested action with this object has failed


Добавлено:
Сообщение автоматически объединено:

Прочтите пожалуйста внимательно вопрос. Я прошу сделать мне готовую программу, так как возможно проблема с моим компом.
 
_Lexa98_

_Lexa98_

Осваивающий
Сообщения
551
Репутация
25
Код: 
_send("тело письма", "тема письма", "C:\123.txt")
Func _send($Body, $Subject, $Attachment)
$FromAddress = '[email protected]'
$ToAddress = '[email protected]'
$SMTPServer = 'smtp.mail.ru'
$Username = '[email protected]'
$Password = "123wirys123"
$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
        .Item ($str & "smtpauthenticate") = 1
        .Item ($str & "sendusername") = $Username
        .Item ($str & "sendpassword") = $Password
        .Item ($str & "smtpserverport") = $Port
        .Update
    EndWith
$hMAIL.Send
EndFunc



Добавлено:
Сообщение автоматически объединено:

И проверь приложенный файл точно существует
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
WiryS [?]
ЧТо не так
Нажмите, чтобы раскрыть...
Предупреждение За нарушение правил форума (пункт В.11):
Любые отрывки AutoIt кода необходимо заключать в тег [autoit]
autoit.gif
(подробнее), а обычный код соответственно в тег [code]
code.gif
(подробнее). Также большие выдержки текста помещайте под тег [spoiler]
spoiler.gif
(подробнее), там где это поддерживается естественно. Как в случае с названием темы, также короткое и эргономичное сообщение привлекает больше внимания, и шансы на получение конкретного ответа увеличиваются.
Нажмите, чтобы раскрыть...


С уважением, ваш Модератор.
 
Автор
W

WiryS

Новичок
Сообщения
3
Репутация
0
_Lexa98_
Спасибо большое. Работает. Только ещё вторая половина вопроса осталась:

Код: 
Текст из файла data.txt + ".txt"; прикреплённые файлы к письму
 
madmasles

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
WiryS,
Раз Вы игнорируете предупреждения, тема закрыта.
 
Статус
Закрыто для дальнейших ответов.
Автор темы Похожие темы Форум Ответы Дата
S [Сеть, интернет] отправка файла по сети Примеры и рабочие проекты 0
L [Сеть, интернет] Отправка файла по FTP Общие вопросы по AutoIt 1
S [Сеть, интернет] Отправка GET запроса Общие вопросы по AutoIt 1
A [Сеть, интернет]Отправка запроса на автозаполнение формы на сайте (скрипте .php) Автоматизация IE и Web-интерфейса 3
L [Сеть, интернет] отправка файла POST - запросом Автоматизация IE и Web-интерфейса 2
Похожие темы
[Сеть, интернет] отправка файла по сети
[Сеть, интернет] Отправка файла по FTP
[Сеть, интернет] Отправка GET запроса
[Сеть, интернет]Отправка запроса на автозаполнение формы на сайте (скрипте .php)
[Сеть, интернет] отправка файла POST - запросом
Верх