email - 特定の受信者に Word 文書を添付ファイルとして送信するにはどうすればよいですか?

Question

Word 2010 でフォームを作成し、フォームを送信するためのボタンを追加しました。
私が欲しいのは、ボタンをクリックすると、フォームが電子メール メッセージに添付され、特定の電子メール アドレスがメッセージの「To」フィールドに自動的に入力されることです。
メール メッセージを開いてフォームを添付ファイルとして追加するためのボタンを取得することはできましたが、メール アドレスを入力することはできません。

Answer 1

メール メッセージの生成方法によって異なります。たとえば、1 つの方法については以下を参照してください。

Private Sub 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