Add UTM to marketing email message

Such that links in email message get UTM parameters.

modules/marketing_campaign/CHANGELOG

@@ -1,3 +1,4 @@
+* Add UTM to email message
 * Add UTM parameters to shortened URL
 
 Version 7.0.0 - 2023-10-30

modules/marketing_campaign/__init__.py

@@ -45,6 +45,10 @@ def register():
     Pool.register(
         web.ShortenedURL,
         module='marketing_campaign', type_='model', depends=['web_shortener'])
+    Pool.register(
+        marketing.EmailMessage,
+        module='marketing_campaign', type_='model',
+        depends=['marketing_email'])
     if SaleAbstract:
         Pool.register_mixin(
             sale_reporting.AbstractMarketingCampaign, SaleAbstract,

modules/marketing_campaign/marketing.py

@@ -155,3 +155,7 @@ class MarketingCampaignMixin(Model):
                         default.setdefault(
                             fname + '.', {})['rec_name'] = target.rec_name
         return default
+
+
+class EmailMessage(MarketingCampaignUTM, MarketingCampaignMixin):
+    __name__ = 'marketing.email.message'

modules/marketing_campaign/marketing.xml

@@ -98,6 +98,12 @@ this repository contains the full copyright notices and license terms. -->
             action="act_source_form"
             sequence="50"
             id="menu_source_form"/>
-
+    </data>
+    <data depends="marketing_email">
+        <record model="ir.ui.view" id="email_message_view_form">
+            <field name="model">marketing.email.message</field>
+            <field name="inherit" ref="marketing_email.email_message_view_form"/>
+            <field name="name">campaign_mixin_form</field>
+        </record>
     </data>
 </tryton>

modules/marketing_campaign/setup.py

@@ -52,6 +52,7 @@ requires.append(get_require_version('trytond'))
 
 tests_require = [
     get_require_version('proteus'),
+    get_require_version('trytond_marketing_email'),
     get_require_version('trytond_sale'),
     get_require_version('trytond_sale_opportunity'),
     get_require_version('trytond_sale_point'),

modules/marketing_campaign/tests/test_module.py

@@ -12,7 +12,9 @@ from trytond.tests.test_tryton import ModuleTestCase, with_transaction
 class MarketingCampaignTestCase(ModuleTestCase):
     "Test Marketing Campaign module"
     module = 'marketing_campaign'
-    extras = ['sale', 'sale_opportunity', 'sale_point', 'web_shortener']
+    extras = [
+        'marketing_email', 'sale', 'sale_opportunity', 'sale_point',
+        'web_shortener']
 
     @with_transaction()
     def test_shortened_url_add_utm(self):

modules/marketing_campaign/tryton.cfg

@@ -4,6 +4,7 @@ depends:
     ir
     marketing
 extras_depend:
+    marketing_email
     sale
     sale_opportunity
     sale_point