Что нового

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

M

max1300

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

alex33

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

max1300

Гость
alex33 сказал(а):
max1300, Посмотри эту функцию:
Код:
_INetSmtpMail

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

alex33

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

max1300

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

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

alex33

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

max1300

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


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

alex33

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


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



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

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

alex33

Скриптер
Сообщения
1,457
Репутация
184
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,457
Репутация
184
max1300 сказал(а):
вообще то в этом скрипте который ты мне предложил скачать содержит COM и там в свойствах COM объекта стоит To а To у меня не пропускает au3check
Это известный баг. Запускай без au3check и всё будет нормально.
Ответ #5
 

alex33

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

max1300

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


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

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

armenxxx1

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