翻訳は機械翻訳により提供されています。提供された翻訳内容と英語版の間で齟齬、不一致または矛盾がある場合、英語版が優先します。
# SDK for SAP ABAP を使用した Amazon Pinpoint の例
次のコード例は、Amazon Pinpoint で AWS SDK for SAP ABAP を使用してアクションを実行し、一般的なシナリオを実装する方法を示しています。
*アクション*はより大きなプログラムからのコードの抜粋であり、コンテキスト内で実行する必要があります。アクションは個々のサービス機能を呼び出す方法を示していますが、コンテキスト内のアクションは、関連するシナリオで確認できます。
各例には完全なソースコードへのリンクが含まれており、コードの設定方法と実行方法に関する手順を確認できます。
**Topics**
+ [アクション](#actions)
## アクション
### `SendMessages`
次の例は、`SendMessages` を使用する方法を説明しています。
**SDK for SAP ABAP**
GitHub には、その他のリソースもあります。用例一覧を検索し、[AWS コード例リポジトリ](https://github.com/awsdocs/aws-doc-sdk-examples/tree/main/sap-abap/services/ppt#code-examples)での設定と実行の方法を確認してください。
E メールメッセージを送信します。
```
" Build the addresses map from the list of to_addresses
DATA lt_addresses TYPE /aws1/cl_pptaddressconf=>tt_mapofaddressconfiguration.
LOOP AT it_to_addresses INTO DATA(lo_address).
INSERT VALUE /aws1/cl_pptaddressconf=>ts_mapofaddressconf_maprow(
key = lo_address->get_value( )
value = NEW /aws1/cl_pptaddressconf( iv_channeltype = 'EMAIL' )
) INTO TABLE lt_addresses.
ENDLOOP.
" Send the email message
DATA(lo_result) = lo_ppt->sendmessages(
iv_applicationid = iv_app_id
io_messagerequest = NEW /aws1/cl_pptmessagerequest(
it_addresses = lt_addresses
io_messageconfiguration = NEW /aws1/cl_pptdirectmessageconf(
io_emailmessage = NEW /aws1/cl_pptemailmessage(
iv_fromaddress = iv_sender
io_simpleemail = NEW /aws1/cl_pptsimpleemail(
io_subject = NEW /aws1/cl_pptsimpleemailpart(
iv_charset = iv_char_set
iv_data = iv_subject
)
io_htmlpart = NEW /aws1/cl_pptsimpleemailpart(
iv_charset = iv_char_set
iv_data = iv_html_message
)
io_textpart = NEW /aws1/cl_pptsimpleemailpart(
iv_charset = iv_char_set
iv_data = iv_text_message
)
)
)
)
)
).
" Extract message IDs from response
DATA(lo_message_response) = lo_result->get_messageresponse( ).
ot_message_ids = lo_message_response->get_result( ).
MESSAGE 'Email message sent successfully.' TYPE 'I'.
```
SMS メッセージを送信します。
```
" Build the addresses map for the destination number
DATA lt_addresses TYPE /aws1/cl_pptaddressconf=>tt_mapofaddressconfiguration.
INSERT VALUE /aws1/cl_pptaddressconf=>ts_mapofaddressconf_maprow(
key = iv_destination_number
value = NEW /aws1/cl_pptaddressconf( iv_channeltype = 'SMS' )
) INTO TABLE lt_addresses.
" Send the SMS message
DATA(lo_result) = lo_ppt->sendmessages(
iv_applicationid = iv_app_id
io_messagerequest = NEW /aws1/cl_pptmessagerequest(
it_addresses = lt_addresses
io_messageconfiguration = NEW /aws1/cl_pptdirectmessageconf(
io_smsmessage = NEW /aws1/cl_pptsmsmessage(
iv_body = iv_message
iv_messagetype = iv_message_type
iv_originationnumber = iv_origination_number
)
)
)
).
" Extract message ID from response
DATA(lo_message_response) = lo_result->get_messageresponse( ).
DATA(lt_results) = lo_message_response->get_result( ).
LOOP AT lt_results INTO DATA(ls_result).
IF ls_result-key = iv_destination_number.
ov_message_id = ls_result-value->get_messageid( ).
EXIT.
ENDIF.
ENDLOOP.
MESSAGE 'SMS message sent successfully.' TYPE 'I'.
```
既存の E メールテンプレートを使用して E メールメッセージを送信します。
```
" Build the addresses map from the list of to_addresses
DATA lt_addresses TYPE /aws1/cl_pptaddressconf=>tt_mapofaddressconfiguration.
LOOP AT it_to_addresses INTO DATA(lo_address).
INSERT VALUE /aws1/cl_pptaddressconf=>ts_mapofaddressconf_maprow(
key = lo_address->get_value( )
value = NEW /aws1/cl_pptaddressconf( iv_channeltype = 'EMAIL' )
) INTO TABLE lt_addresses.
ENDLOOP.
" Send the email message using a template
DATA(lo_result) = lo_ppt->sendmessages(
iv_applicationid = iv_app_id
io_messagerequest = NEW /aws1/cl_pptmessagerequest(
it_addresses = lt_addresses
io_messageconfiguration = NEW /aws1/cl_pptdirectmessageconf(
io_emailmessage = NEW /aws1/cl_pptemailmessage(
iv_fromaddress = iv_sender
)
)
io_templateconfiguration = NEW /aws1/cl_ppttemplateconf(
io_emailtemplate = NEW /aws1/cl_ppttemplate(
iv_name = iv_template_name
iv_version = iv_template_version
)
)
)
).
" Extract message IDs from response
DATA(lo_message_response) = lo_result->get_messageresponse( ).
ot_message_ids = lo_message_response->get_result( ).
MESSAGE 'Templated email message sent successfully.' TYPE 'I'.
```
既存の SMS テンプレートを使用してテキストメッセージを送信します。
```
" Build the addresses map for the destination number
DATA lt_addresses TYPE /aws1/cl_pptaddressconf=>tt_mapofaddressconfiguration.
INSERT VALUE /aws1/cl_pptaddressconf=>ts_mapofaddressconf_maprow(
key = iv_destination_number
value = NEW /aws1/cl_pptaddressconf( iv_channeltype = 'SMS' )
) INTO TABLE lt_addresses.
" Send the SMS message using a template
DATA(lo_result) = lo_ppt->sendmessages(
iv_applicationid = iv_app_id
io_messagerequest = NEW /aws1/cl_pptmessagerequest(
it_addresses = lt_addresses
io_messageconfiguration = NEW /aws1/cl_pptdirectmessageconf(
io_smsmessage = NEW /aws1/cl_pptsmsmessage(
iv_messagetype = iv_message_type
iv_originationnumber = iv_origination_number
)
)
io_templateconfiguration = NEW /aws1/cl_ppttemplateconf(
io_smstemplate = NEW /aws1/cl_ppttemplate(
iv_name = iv_template_name
iv_version = iv_template_version
)
)
)
).
" Extract message ID from response
DATA(lo_message_response) = lo_result->get_messageresponse( ).
DATA(lt_results) = lo_message_response->get_result( ).
LOOP AT lt_results INTO DATA(ls_result).
IF ls_result-key = iv_destination_number.
ov_message_id = ls_result-value->get_messageid( ).
EXIT.
ENDIF.
ENDLOOP.
MESSAGE 'Templated SMS message sent successfully.' TYPE 'I'.
```
+ API の詳細については、 *AWS SDK for SAP ABAP API リファレンス*の[SendMessages](https://docs.aws.amazon.com/sdk-for-sap-abap/v1/api/latest/index.html)」を参照してください。