Отправка картинки на почту

Форумы Помощь по пакетуОтправка картинки на почту ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 279

Рейтинг: 1

#1: 2026-05-11 05:36:17 ЛС | профиль | цитата

Здравствуйте, подскажите как правильно сделать схему отправки картинки на почту клиента из программы в Хаясме.
Пробовал переделать родной пример SMTP под себя но что то ничего не получается.

карма: 1

Ответов: 1096

Рейтинг: 223

#2: 2026-05-11 09:21:52 ЛС | профиль | цитата

Gitarist писал(а):

Пробовал переделать родной пример SMTP под себя но что то ничего не получается.

Какой SMTP сервер ты использовал в своей схеме?
Проблема в том, что практически не осталось анонимных SMTP серверов (а те что остались занесены в спам-листы). Все требуют авторизации, а некоторые и специального разрешения на отправку писем в интерфейсе аккаунта.

| Название    | Адрес SMTP сервера    | Порт | Тип шифрования |
|-------------|-----------------------|------|----------------|
| Yandex      | smtp.yandex.ru        | 465  | TLS/SSL        |
| Mail.ru     | smtp.mail.ru          | 465  | TLS/SSL        |
| Gmail       | smtp.gmail.com        | 587  | TLS            |
|             |                       | 25   | TLS            |
|             |                       | 465  | SSL            |
| Office 365  | smtp.office365.com    | 587  | TLS            |
| Outlook.com | smtp-mail.outlook.com | 587  | TLS            |

--- Добавлено в 2026-05-11 10:21:13

Если установлен MS Outlook, то можно попробовать отправлять через COM интерфейс.

Add(MainForm,1495719,385,252)
{
 link(onCreate,9473006:doExecute,[])
}
Add(VBJScript,13058327,539,266)
{
 WorkPoints=#11:##SetScript|
 Script=#
 UseName=0
}
Add(FormatStr,14851356,483,266)
{
 DataCount=3
 Mask="Const PR_ATTACH_MIME_TAG = "http://schemas.microsoft.com/mapi/proptag/0x370E001E"\r\nConst PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001E"\r\n\r\nSet objOutlook = CreateObject("Outlook.Application")\r\nSet objMail = objOutlook.CreateItem(0)\r\n\r\nobjMail.Subject = "%2"\r\nobjMail.To = "%1"\r\n\r\nSet objAttachments = objMail.Attachments\r\nSet objAttachment = objAttachments.Add("%3")\r\n\r\nSet oPA = objAttachment.PropertyAccessor\r\noPA.SetProperty PR_ATTACH_MIME_TAG, "image/jpeg"\r\noPA.SetProperty PR_ATTACH_CONTENT_ID, "my-unique-id"\r\n\r\nobjMail.HTMLBody = "<html><body><img src='cid:my-unique-id'></body></html>"\r\n\r\nobjMail.Display \r\n' objMail.Send\r\n"
 link(onFString,13058327:##SetScript,[])
 link(Str1,11909134:Text,[])
 link(Str2,5713602:Text,[])
}
Add(ODialog,9473006,434,266)
{
 Filter="Изображения (*.jpg;*.png;*.gif)|*.jpg;*.jpeg;*.png;*.gif|Все файлы (*.*)|*.*""
 link(onExecute,14851356:doString,[])
}
Add(VisualStrings,11909134,483,189)
{
 @Hint=#4:Кому|
 Lines=#16:mail@example.com|
 Width=116
 AddHint(245,-26,41,13,@Hint)
}
Add(VisualStrings,5713602,490,217)
{
 @Hint=#16:Заголовок письма|
 Lines=#25:Тест отправки изображения|
 Width=186
 AddHint(253,40,110,13,@Hint)
}

У меня всё работает

Редактировалось 4 раз(а), последний 2026-05-11 10:57:54

карма: 20

Форумы Помощь по пакетуОтправка картинки на почту ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)