着信メールを処理する

着信メッセージのトピックを読み上げるリスナを設定する．

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

Out[2]=

電子メールをレシーバ関数に送信し，リスナが読み上げるのを聴く．

In[3]:=

SendMail[<|"To" -> "receiver+d98iMkU6@wolframcloud.com", "Subject" -> "Hello There"|>];