以下声明将是有用的。

数据：p\窗体类型crmt\ U pml\ U id，

lr\ U ref类型ref到cl\ U crm\ U pml\ U mail\ U form\ U exec，

lv\ U subject类型xstring，大数据包括哪些内容，

lt\ U个性化邮件类型crmt\ U pml\ U TXTSSUBJECT\ U exec\ U tab，

lt\ U图片\ key类型crmt\ U pml\ U exec\ U pic key\ U tab，

lt\ U附件\ U key类型skwf\ U ios，云服务器多少钱，

lt\ U消息类型bapiret2\ t，

lv\ U pers\ U mail\ U type type crmt\ U pml\ U type，

lv\ U date type bcos\ U tstmp，

lt\ U bo type sibflporbt，

ls\ U bo type sibflporb，

lt\ U return type bapiret2\ U t，

ls\ U activity type bapibus20001\ U object\ U id，云服务器品牌，

lv\ U activity\ U guid type guid\ U 32，

lt\ U activity type cmst\ U bapibus20001\ U object\ U id\ t，

lv\ U guid type crmt\ U object\ U guid，

l\ U error type c，

lr\ U DOCU type REF TOcl\u document\u bcs，

ls\u adsmptp TYPE bapiadsmtp，

lt\u adsmptp TYPE TABLE OF bapiadsmtp，

lr\u send\u request TYPE REF TO cl\u bcs，

ls\u variable TYPE crmt\u pml\u name\u value，

lt\u attr\u variable TYPE crmt\u pml\u name\u value tab，

lt\u variable TYPE crmt\u pml\u name\u value tab.

步骤1。首先获取您创建的邮件表单的引用。

p\u form='MAILFORM001'。邮件表单ID

创建对象lr\u ref

导出

iv\u Mail\u ID=p\u form

异常

Mail\u not\u found=1

OTHERS=2。

步骤2.获取您在邮件表单中创建的占位符。

调用方法lr\u ref->get\u variables

RECEIVING

rt\u variable=lt\u variable.

lt\u variable将包含您在邮件表单中创建的所有占位符。

步骤3。将值传递到邮件表单中的占位符

将lt\u变量循环到ls\u变量中。

CASE ls\u variable-name。

当'BAPIBUS1006\u CENTRAL\u PERSON-FULLNAME'时。

ls\u variable-value='ABC'。

当'BAPIBUS1006\u HEAD-BPARTNER'时。

ls\u variable-value='400024'。

ENDCASE。

将ls\u变量插入表中lt\u attr\u variable.

ENDLOOP.

在我的例子中，我刚刚使用了两个占位符。

步骤4。使用"CRM\u IM\u Create\u PERS\u mail"功能模块创建邮件模板。传递变量表、邮件语言和邮件窗体对象引用。接收到的参数将在步骤6中用于发送邮件。

调用函数'CRM\u IM\u CREATE\u PERS\u mail'

导出

it\u attribute\u values=lt\u attr\u variable

iv\u langu='E'

ir\u exec\u service=lr\u ref

导入

ev\u subject=lv\u subject

et\u personalized\u mail=lt\u personalized\u mail

et\u picture\u key=lt\ u picture\ u key

et\ u attachment\ u key=lt\ u attachment\ u key

et\ u messages=lt\ u messages

ev\ u pers\ u mail\ u type=lv\ u pers\ u mail\ u type

EXCEPTIONS

mail\ u empty=1

OTHERS=2.

步骤5。创建邮件将附加到的活动。然后，云服务器ecs，云教云，该活动将在您发送邮件的订单的交互历史记录中可见。请使用实用程序类"cl\u crm\u email\u utility"的方法"create\u activity"。

获取时间戳字段lv\u date.

lv\u guid='xxxxxxxxxxxx.""输入订单的guid要创建的后续活动

ls\u bo-institd=lv\u guid.

ls\u bo-typeid='BUS2000120'。投诉业务对象

ls\u bo-catid='bo.

将ls\u bo插入表lt\u bo.

调用方法cl\u crm\u email\u实用程序=>创建\u活动

导出

iv\u流程\u type='0005'

iv\u说明='Created使用邮件形式"

iv\ U开始日期=lv\ U日期

it\ U链接\ U bo=lt\ U bo

iv\ U方向='1'

iv\ U状态\ U过程='FINI'

导入

et\ U返回=lt\ U返回

et\ U活动=lt\ U活动。

将表lt\ U活动读取到ls\ U活动索引1。

lv\ U活动\ U guid=ls\ U活动-guid。

步骤6。已创建邮件活动和邮件模板。现在我们必须使用"CRM\u IM\u Send\u PERSONALIZED\u mail"功能模块附加和发送邮件。输入收件人电子邮件地址、发件人电子邮件地址、回复电子邮件地址，

邮件表单id和其他邮件表单模板变量。

ls\u adsmptp-e\u mail='test@abc.com"."收件人邮件地址

ls\u adsmptp-std\u no='X'。

将ls\u adsmptp插入表lt\u adsmptp.

调用函数"CRM\u IM\u SEND\u PERSONALIZED\u mail"

导出

iv\u device='mail'

iv\u sender=‘abc@abc.com'""发件人电子邮件地址

iv_reply='回复@abc.com'

iv_mailform='MAILFORM001'

iv_activity_guid=lv_activity_guid

iv_pers_mail_type=lv_pers_mail_type

it_picture_keys=lt_picture_key

iv_subject=lv_subject

it_personalized_mail=lt\u个人化邮件

it\u attachment\u key=lt\u attachment\u key

导入

er\u document=lr\u document

er\u send\u request=lr\u send\u request

表格

it\u smtp=lt\u adsmptp

更改

cv\u error=l\u error.

步骤7。"提交工作"很重要，因为邮件在执行之前不会发送。

提交工作。

感谢您分享此信息！

另一种可能性是与交易相关的行为。此操作分配给方法调用CL\u IM\u MAIL\u SEND。执行此操作（在后台或由用户执行）将创建一个新的传出电子邮件并链接到当前事务。您可以在交易历史记录中找到此传出电子邮件交易。

Kim

Hi K.Zelders，

您建议的方法非常简单，但在这种情况下，您将无法使用邮件表单。本文档为您提供了使用邮件表单和创建交易电子邮件活动的解决方案。

谢谢，

Ritu

非常有用且清晰。感谢您提供此模板。我已将其添加到我的收藏夹中。

致以最诚挚的问候

马库斯

感谢您提供此模板。它很有用，但我有一个特殊的问题。在在我的模板中，有一个类似

文本

使用FM CRM\u IM\u CREATE\u PERS\u mail在lt\u personalized\u mail中创建个性化邮件后，如下所示

Text如果你在邮件中点击这个链接，什么都不会发生。我想，这是因为%2f被解释为符号而不是符号一个分隔符。

有什么想法，如何正确编码？