获取 VBA 脚本的输入

Question

我有一个 vba 脚本，它将某些单元格范围值通过电子邮件发送给特定的人。 但问题是每次需要更改某些内容时，我都必须编辑电子邮件的正文。有没有办法我可以添加一个字段，例如："输入电子邮件地址="，我可以输入电子邮件，后端的脚本会获取该邮件地址，我将能够发送它。

Set CH = ActiveChart CH.Parent.Name = "Rishab" 
ActiveSheet.ChartObjects("Rishab").Height = RNG.Height 
ActiveSheet.ChartObjects("Rishab").Width = RNG.Width 
RNG.CopyPicture xlScreen, xlBitmap CH.Paste CH.Export "P:ABC.png" 
esubject = "Shift Handover_Night" 
sendto = "[e-mail]" 
Set app = CreateObject("outlook.application") 
Set itm = app.CreateItem(0) 
With itm 
.Subject = esubject 
.To = sendto 
.CC = ccto 
.HTMLBody = "<img src='P:ABC.png'/> <br> <br> Thank You <br> Regards <br> Helpdesk" 
.Display 
.send 
End With 
Set app = Nothing 
Set itm = Nothing

Answer 1

您可以使用输入框来提示用户。

EmailAddress = InputBox("Enter the email address")