Что нового

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

  • Автор темы max1300
  • Дата начала
M

max1300

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

alex33

Скриптер
Сообщения
1 455
Репутация
183
max1300, Посмотри эту функцию:
Код:
_INetSmtpMail
 
Автор
M

max1300

Гость
alex33 сказал(а):
max1300, Посмотри эту функцию:
Код:
_INetSmtpMail
не работает пробовал через COM объект не работает посоветуй что нибудь другое
 

alex33

Скриптер
Сообщения
1 455
Репутация
183
Не может такого быть, чтобы не работало...
Проверь правильность всех данных.
Возможно надо будет зайти в настройки почты и поставить флаг Разрешить почтовые программы...
 
Автор
M

max1300

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

alex33

Скриптер
Сообщения
1 455
Репутация
183
Покажи лучше свои скрипты
И какая именно ошибка возникает?
 
Автор
M

max1300

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


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

alex33

Скриптер
Сообщения
1 455
Репутация
183
Вот здесь ошибка:
Код:
$send = TCPNameToIP("[email protected]")


Вот так надо:
Код:
$send = TCPNameToIP("smtp.mail.ru")



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

Код:
TCPSend($conntct,"привет")
:smile: :D :D Не, так дело не пойдёт...
 
Автор
M

max1300

Гость
а как тогда надо ?
 

alex33

Скриптер
Сообщения
1 455
Репутация
183
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

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

max1300

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

alex33

Скриптер
Сообщения
1 455
Репутация
183
max1300 сказал(а):
вообще то в этом скрипте который ты мне предложил скачать содержит COM и там в свойствах COM объекта стоит To а To у меня не пропускает au3check
Это известный баг. Запускай без au3check и всё будет нормально.
Ответ #5
 
Автор
M

max1300

Гость
как запустить без au3check ?
 
Автор
M

max1300

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

alex33

Скриптер
Сообщения
1 455
Репутация
183
Письма отправляются? Всё работает?
 
Автор
M

max1300

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


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

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

armenxxx1

Продвинутый
Сообщения
155
Репутация
56
http://autoit-script.ru/index.php?topic=12508
http://autoit-script.ru/index.php/topic,6173.msg43770.html#msg43770
 
Верх