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)
}
У меня всё работает
Поиск
Друзья
Администрация