如何使用 Word 文本框值更新 Outlook 的收件人？答案

【问题标题】：How to update Outlook's To with Word textbox value?如何使用 Word 文本框值更新 Outlook 的收件人？
【发布时间】：2020-12-03 04:11:22
【问题描述】：

我在 Word 模板上有一个“发送反馈”按钮，可通过电子邮件将文件发送到静态电子邮件地址。

我有一个名为 textbox1 的文本框，用户可以在其中输入他们的电子邮件地址。

据我了解，我会将硬编码的电子邮件地址替换为按钮代码中的 textbox1 变量。

Private Sub CommandButton2_Click()
    Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Access Request for Governance Library"
        .Body = "Please review and provide feedback."
        .To = EMAIL.EXAMPLE@ABC.com
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

End Sub

用.To = texbox1 替换行没有任何作用。

【问题讨论】：

标签： vba forms email ms-word textbox

【解决方案1】：

您应该使用Text 属性

.To = texbox1.Text

【讨论】：