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

Понедельник, 14 Мая 2018 г. 08:20 + в цитатник

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

    'ñîçäàåì îáúåêò 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