如何用Word文本框值更新Outlook的“收件人”？

问题描述

我在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 protected]
        .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替换行无济于事。

解决方法

您应该使用Text属性

.To = texbox1.Text