Question

我有一个VBA脚本启动Outlook模板，并在将其输入到InputBox后用用户名替换％_％。

我想知道是否有办法创建一个InputBox来请求收件人的电子邮件地址并将其输入“To ...”框。

Sub TerminationsEmail()

    txtUser = InputBox("Terminated Employee's Name", "Name of Recipient")

    Set myOlApp = CreateObject("Outlook.Application")
    Set itm = myOlApp.CreateItemFromTemplate("C:\Users\fm81996\AppData\Roaming\Microsoft\Templates\Asset Recovery.oft")

    itm.HTMLBody = Replace(itm.HTMLBody, "%_%", txtUser)

    itm.Display

End Sub

Answer 1

仅利用上述MailItem.To属性，您可以执行类似（未经测试）的操作：

itm.To = InputBox("prompt for user email address; modify as needed")

或者：

Dim myRecipient as Recipient
Dim email as String
email = InputBox("What is the email address?")
Set myRecipient = itm.Recipients.Add(email)

Answer 2

混合了似乎有效的宏：

Sub TerminationsEmail()

    txtUser = InputBox("Terminated Employee's Name", "Name of Recipient")

    Set myOlApp = CreateObject("Outlook.Application")
    Set itm = myOlApp.CreateItemFromTemplate("C:\Users\fm81996\AppData\Roaming\Microsoft\Templates\Asset Recovery.oft")

    itm.To = txtUser

    itm.Display

End Sub

添加InputBox以要求将收件人添加到“To ...”框中

2 个答案: