Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/email/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Email 如何将Word文档作为附件发送给特定收件人?_Email_Ms Word_Word 2010 - Fatal编程技术网

Email 如何将Word文档作为附件发送给特定收件人?

Email 如何将Word文档作为附件发送给特定收件人?,email,ms-word,word-2010,Email,Ms Word,Word 2010,我在Word 2010中创建了一个表单,并添加了一个按钮来发送表单。 我想要的是,当单击按钮时,表单会附加到电子邮件中,并且在邮件的“收件人”字段中自动输入特定的电子邮件地址。 我设法找到了打开电子邮件并将表单添加为附件的按钮,但无法让它输入我的电子邮件地址。这取决于您生成电子邮件的方式。例如,请参见下面的一种方法 私有子命令按钮1_单击() Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateOb

我在Word 2010中创建了一个表单,并添加了一个按钮来发送表单。
我想要的是,当单击按钮时,表单会附加到电子邮件中,并且在邮件的“收件人”字段中自动输入特定的电子邮件地址。

我设法找到了打开电子邮件并将表单添加为附件的按钮,但无法让它输入我的电子邮件地址。

这取决于您生成电子邮件的方式。例如,请参见下面的一种方法

私有子命令按钮1_单击()

    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