如何在Excel VBA中通过提示添加电子邮件地址?

我试图发送通过Excel VBA创build的图表,但是如何通过提示dynamic地添加收件人。

wkbk.SendMail Recipients:="dind_r01@gmail.com" 。 这里如何通过提示添加电子邮件地址(超过1个电子邮件地址),而不是在代码中定义它。

 wk.SendMail Recipients:=Application.InputBox("Please enter email address:", "Email Address", , , , , 2)