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

ReSQL.ru

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

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

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

2 сообщений из 2, страница 1 из 1

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

#39644129

it-sphere

Гость

Доброго времени суток!
Для "белой" рассылки одним из требований 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:20

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

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

#39644137

it-sphere

Гость

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

14.05.2018, 08:35

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

2 сообщений из 2, страница 1 из 1

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

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

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

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

start [/forum/topic.php?fid=45&msg=39644137&tid=1611445]:	0ms
get settings:	9ms
get forum list:	17ms
check forum access:	3ms
check topic access:	3ms
track hit:	180ms
get topic data:	10ms
get forum data:	3ms
get page messages:	35ms
get tp. blocked users:	1ms
others:	211ms

total:	472ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы