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 = "ISHelpdeskTeam@appvion.com" 

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")

接受VBA脚本的输入

1 个答案: