Indigo Rose AutoPlay Media Studio (часть 5) - [21] :: Программы

Если кому надо - переделал чуть форму для отправки сообщения (от GOOSE) по SMTP (используется бесплатный плагин для AMS)

На кнопку "Отправить" в OnClick

Код:

-- Обнуление предыдущих ошибок обработки
error = 0;
-- Получаем значения из полей ввода (у меня их 5 - ФИО, мыло, телефон, компания, сообщение)
-- ФИО
name1 = Input.GetText("Input1");
-- мыло
name2 = Input.GetText("Input2");
-- телефон
name3 = Input.GetText("Input3");
-- название компании
name4 = Input.GetText("Input4");
-- сообщение
name5 = Input.GetText("Input5");

-- Здесь делаем проверку, заполнено поле или нет (проверку для поле -компания- я не делал, при желании - легко добавить кусок кода)

if String.Length(name1) < 1 then
Dialog.Message("Ошибка!", "Поле -ФИО- не должно быть пустым! Заполните и повторите отправку!");
error = 1;
end
if String.Length(name2) < 1 then
Dialog.Message("Ошибка!", "Поле -e-mail- не должно быть пустым! Заполните и повторите отправку!");
error = 1;
end
if String.Length(name3) < 1 then
Dialog.Message("Ошибка!", "Поле -Телефон- не должно быть пустым! Заполните и повторите отправку!");
error = 1;
end
if String.Length(name5) < 1 then
Dialog.Message("Ошибка!", "Поле -Сообщение- не должно быть пустым! Заполните и повторите отправку!");
error = 1;
end

-- Если ошибок заполнения нет, то активируем плагин SMTP для отправки сообщения

if error~=1 then

-- Mail Properties

tblMailProperties = {};
-- Вместо TEST пишем, от кого хотим получать письма (поле From)
tblMailProperties.FromName = "TEST";
-- Вместо name2 пишем, с какого мыльника должны (якобы) приходить письма (поле FromEmail) или оставляем как есть - это хорошо для ответов юзеру, отправившему письмо
tblMailProperties.FromEmail = name2 ;
-- На какой e-mail отправлять письмо
tblMailProperties.To = "test@test.ru";

-- tblMailProperties.ReplayTo = "test@test.com";

-- Формируем BODY для письма (оно будет в текстовом формате, при желании - можно в html сделать)
tblMailProperties.TextBody = name1 .. "\r\n" .. name2 .. "\r\n" .. name3 .. "\r\n" .. name4 .. "\r\n" .. name5;

--tblMailProperties.HtmlBody = "<b>Test</b>";

-- tblMailProperties.CreateMHTMLBody = _SourceFolder.."\\AutoPlay\\Docs\\mhtDoc.htm";

-- Здесь формируем тему письма, которое нам придет на мыльник (в параметре tblMailProperties.To)
tblMailProperties.Subject = "Тут тема письма";

-- Копии писем отправлять по нижеуказанным адресам
-- tblMailProperties.CC = "Копия письма на это мыло";
-- tblMailProperties.BCC = "Скрытая копия на это мыло";

-- Приоритет письма
tblMailProperties.Importance = "high"; -- normal - low
-- Какой клиент отправляет почту (требуется для принимающей стороны)
tblMailProperties.Xmailer = "Microsoft Office Outlook 12.0";

-- Server Properties

tblServerProperties = {};
tblServerProperties.Server = "тут указываем адрес почтового сервера - mail.test.ru";
tblServerProperties.ServerPort = 25;

-- Использовать ли SSL
tblServerProperties.UseSSL = false; -- или true

-- Требуется ли аутентификация на SMTP сервере
tblServerProperties.Authenticated = true; -- или false
tblServerProperties.UserName = "user";
tblServerProperties.PassWord = "password";

-- Send Mail

result = SMTP.SendMail(tblMailProperties, tblServerProperties);

Dialog.Message("Спасибо, Ваше сообщение отправлено!", result, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

Модерирует : gyra, Maz
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191