email - 如何将 Word 文档作为附件发送给特定收件人？

Question

我在 Word 2010 中创建了一个表单，并添加了一个按钮来发送表单。
我想要的是，当单击按钮时，表单会附加到电子邮件中，并且会在邮件的“收件人”字段中自动输入特定的电子邮件地址。
我设法获得了打开电子邮件并将表单添加为附件的按钮，但我无法让它输入我的电子邮件地址。

Answer 1

这取决于您如何生成电子邮件。例如，请参阅下面的一种方法。

私有子 CommandButton1_Click()

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next

    With OutMail
        .To = "test@test.com"
        .CC = ""
        .BCC = ""
        .Subject = "Subject goes here"
        .Body = "Text of body goes here."
        .Attachments.Add (\file\to\attach.txt)
        .Display
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub