Заголовок List-Unsubscribe в заголовке письма / Microsoft Access

2.0.53

Планшетная версия Контакт Правила FAQ Помощь

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Заголовок List-Unsubscribe в заголовке письма / 2 сообщений из 2, страница 1 из 1

14.05.2018, 08:20

#39644129

it-sphere

Гость

Заголовок List-Unsubscribe в заголовке письма

Доброго времени суток!
Для "белой" рассылки одним из требований Yandex и Google является наличие заголовка List-Unsubscribe.
Вопрос в том, как заголовок List-Unsubscribe вставить в письмо?
Изучение этого вопроса привело меня к следующему ...
Заголовок в письмо можно вставить используя urn: schemas: mailheader:(пара заголовок значение)
CFields("urn:schemas:mailheader:List-Unsubscribe") = Mu_Unsubscribe

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

    '&#241;&#238;&#231;&#228;&#224;&#229;&#236; &#238;&#225;&#250;&#229;&#234;&#242; Message &#253;&#242;&#238; &#237;&#224;&#248;&#229; &#239;&#232;&#241;&#252;&#236;&#238;
    Set msg = CreateObject("CDO.Message")
    '&#241;&#238;&#231;&#228;&#224;&#229;&#236; &#238;&#225;&#250;&#229;&#234;&#242; Configuration &#253;&#242;&#238; &#237;&#224;&#241;&#242;&#240;&#238;&#233;&#234;&#232; &#241;&#238;&#229;&#228;&#232;&#237;&#229;&#237;&#232;&#255;
    Set Config = CreateObject("CDO.Configuration")
    Set CFields = Config.Fields
    Set msg.Configuration = Config
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru" '&#224;&#228;&#240;&#229;&#241; SMTP &#241;&#229;&#240;&#226;&#229;&#240;&#224;
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 '&#239;&#238;&#240;&#242;
    CFields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'SSL &#242;&#232;&#239; &#248;&#232;&#244;&#240;&#238;&#226;&#224;&#237;&#237;&#238;&#227;&#238; &#239;&#238;&#228;&#234;&#235;&#254;&#247;&#229;&#237;&#232;&#255;
    CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = StrSendUsername 'Login
    CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = StrSendPassword '&#239;&#224;&#240;&#238;&#235;&#252;
    CFields("urn:schemas:mailheader:content-language") = "windows-1251" ' &#234;&#238;&#228;&#232;&#240;&#238;&#226;&#234;&#224; &#239;&#232;&#241;&#252;&#236;&#224; &#247;&#242;&#238;&#225;&#251; &#239;&#232;&#241;&#224;&#242;&#252; &#239;&#238; &#240;&#243;&#241;&#241;&#234;&#232;
    CFields("urn:schemas:mailheader:List-Unsubscribe") = Mu_Unsubscribe 'ссылка на отписку
      CFields.Update

Однако заголовок в письме не появился, ошибок при отправке нет.
Нужен совет или направление поиска.

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

14.05.2018, 08:35

#39644137

it-sphere

Гость

Заголовок List-Unsubscribe в заголовке письма

Sorry получились кракозябры, в предварительном просмотре отсутствовали :)

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

'создаем объект Message это наше письмо
Set msg = CreateObject("CDO.Message")
'создаем объект Configuration это настройки соединения
Set Config = CreateObject("CDO.Configuration")
Set CFields = Config.Fields
Set msg.Configuration = Config
CFields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru" 'адрес SMTP сервера
CFields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
CFields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 'порт
CFields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'SSL тип шифрованного подключения
CFields("http://schemas.microsoft.com/cdo/configuration/sendusername") = StrSendUsername 'Login
CFields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = StrSendPassword 'пароль
CFields("urn:schemas:mailheader:content-language") = "windows-1251" ' кодировка письма чтобы писать по русски
CFields("urn:schemas:mailheader:List-Unsubscribe") = Mu_Unsubscribe ' ссылка на отписку
CFields.Update

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&mobile=1&tid=1611445]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	41ms
get topic data:	13ms
get forum data:	3ms
get page messages:	35ms
get tp. blocked users:	1ms
others:	15ms

total:	140ms