Обработка входящих сообщений электронной почты
Зададим функцию-слушателя, которая говорит тему входящего сообщения.
In[1]:=
listener =
ChannelListen["mailSpeak",
Speak["From " <> #Message["from"] <>
", message: " <> #Message["msg"]] &,
Permissions -> <|"Owner" -> {"Read", "Execute"}, "All" -> "Write"|>]
Out[1]=
Зададим функцию MailReceiverFunction для передачи полученной почты слушателю.
In[2]:=
MailReceiverFunction[With[{user = $WolframID},
ChannelSend[
user <> ":" <> "mailSpeak", <|"msg" -> #Subject,
"from" -> #From|>] &]] // CloudDeploy
Отправим электронное сообщение функции-получателю и прослушаем слушателя.
In[3]:=
SendMail[<|"To" -> "receiver+d98iMkU6@wolframcloud.com",
"Subject" -> "Hello There"|>];