如何解决如何用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.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
替换行无济于事。
解决方法
您应该使用Text
属性
.To = texbox1.Text