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

Question

我在 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 没有任何作用。

Answer 1

你应该使用 Text 属性

.To = texbox1.Text

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

How to update Outlook's To with Word textbox value?

forms

email

vba

textbox

ms-word