[Сеть, интернет] Помогите отправить сообщение на e-mail с помощью TCP функций

[max1300]

Я ещё не пробовал отправлять сообщение на e-mail через TCP функции.Но я новичок поэтому хочу знать мнение опытных программистов.

 

[alex33]

max1300, Посмотри эту функцию:

_INetSmtpMail

 

[max1300]

max1300, Посмотри эту функцию:

_INetSmtpMail

не работает пробовал через COM объект не работает посоветуй что нибудь другое

 

[alex33]

Не может такого быть, чтобы не работало...
Проверь правильность всех данных.
Возможно надо будет зайти в настройки почты и поставить флаг Разрешить почтовые программы...

 

[max1300]

Не может такого быть, чтобы не работало...
Проверь правильность всех данных.
Возможно надо будет зайти в настройки почты и поставить флаг Разрешить почтовые программы...

куда нужно заходить расскажи подробнее

 

[alex33]

Покажи лучше свои скрипты
И какая именно ошибка возникает?

 

[max1300]

я скрипт не писал но я планировал написать скрипт как то вот так:

TCPStartup() 
$send = TCPNameToIP("[email protected]")
$conntct = TCPConnect($send,25)
TCPSend($conntct,"привет")

 

[alex33]

Вот здесь ошибка:

$send = TCPNameToIP("[email protected]")

Вот так надо:

$send = TCPNameToIP("smtp.mail.ru")

Добавлено:

Сообщение автоматически объединено: 19 Окт 2014

TCPSend($conntct,"привет")

:D :D Не, так дело не пойдёт...

 

[max1300]

а как тогда надо ?

 

[alex33]

Cкачай этот файл: sendmail.au3 (UDF).
Сделай такой скрипт:

#AutoIt3Wrapper_Run_AU3Check=n
#include "sendmail.au3"
Global $rc = ""
Local $SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl
$SmtpServer = "smtp.yandex.ru"  ; address for the smtp-server to use - REQUIRED
$FromName = "alex33" ; name from who the email was sent
$FromAddress = "[email protected]"  ; address from where the mail should come
$ToAddress = "[email protected]" ; destination address of the email - REQUIRED
$Subject = "Тема письма отправленного из AutoIt скрипта" ; subject from the email - can be anything you want it to be
$Body = "Это текст письма, отправленного через AutoIt скрипт функцией _INetSmtpMailCom отредактированной Alex33... Всё работает"  ; the messagebody from the mail - can be left blank but then you get a blank mail
#cs
не обязательно / можно не указывать
$AttachFiles = "C:\path\files\test.txt"  ; the file you want to attach- leave blank if not needed
$CcAddress = "" ; address for cc - leave blank if not needed
$BccAddress = ""  ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
#ce
$Username = "yourlogin" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "**********" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 465  ; port used for sending the mail
$ssl = 1  ; enables/disables secure socket layer sending - put to 1 if using httpS

$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
	MsgBox(0, "Error", "Error sending message" & @TAB & "Error code: " & @error & " Description: " & $rc)
EndIf

Подставив свои данные...

 

[max1300]

вообще то в этом скрипте который ты мне предложил скачать содержит COM и там в свойствах COM объекта стоит To а To у меня не пропускает au3check

 

[alex33]

вообще то в этом скрипте который ты мне предложил скачать содержит COM и там в свойствах COM объекта стоит To а To у меня не пропускает au3check

Это известный баг. Запускай без au3check и всё будет нормально.
Ответ #5

 

[max1300]

как запустить без au3check ?

 

[alex33]

как запустить без au3check ?

Закрыть SciTE и запустить через меню Run script (или двойным кликом по файлу)

 

[max1300]

Спасибо за ответ

 

[alex33]

Письма отправляются? Всё работает?

 

[max1300]

ещё не пробовал щас просто нет свободного времени что заниматься этим а за ответ спасибо


Добавлено:

Сообщение автоматически объединено: 19 Окт 2014

ни чего ни работает лучше я буду писать чат

 

[Garrett]

max1300 [?]

ни чего ни работает лучше я буду писать чат

Гениально!!! :laugh:

 

[alex33]

max1300 [?]

ни чего ни работает

Попробуй поставить 25 порт

$IPPort = 25

 

[armenxxx1]

http://autoit-script.ru/index.php?topic=12508
http://autoit-script.ru/index.php/topic,6173.msg43770.html#msg43770