現在のWordファイルが添付された電子メールを送信するためのボタンの適用方法

Outlookを介してWord文書から電子メールメッセージを送信し、現在のWordファイルを添付する必要がある場合は、コマンドボタンを作成し、Outlookを開かずにこのボタンをクリックしてメッセージを送信できます。 この記事では、それを迅速かつ簡単に処理する方法を紹介します。

現在のWordファイルが添付された電子メールを送信するボタンを適用する

現在のWordファイルが添付された電子メールを送信するボタンを適用する

Wordファイルでこのジョブを解決するには、次の手順を実行してください。

1。 まず、コマンドボタンを作成する必要があります。 ディベロッパー > レガシーツール > コマンドボタン（ActiveXコントロール）、スクリーンショットを見る：

2。 ボタンを選択し、をクリックします。 プロパティ 下 ディベロッパー タブの プロパティ ウィンドウで、必要なキャプションテキストを キャプション フィールド、スクリーンショットを参照してください：

3。 次に、 プロパティ ウィンドウを右クリックし、 コードを表示、スクリーンショットを見る：

4。 そして、表示された アプリケーション用Microsoft Visual Basic ウィンドウを開き、以下のコードを元のスクリプトの間にコピー＆ペーストしてください。スクリーンショットを参照してください：

Dim xOutlookObj As Object
    Dim xEmile As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmile = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmile
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

注：上記のコードでは、必要に応じて件名、本文または送信アドレスを変更する必要があります。

5。 次に、このコードを保存して閉じ、[ デザインモード デザインモードをオフにします。 今作成したコマンドボタンをクリックすると、現在のWord文書を添付した電子メールが作成されます。スクリーンショットを参照してください：

6。 最後に、クリックするだけで 送信 ボタンを押してこのメ​​ッセージを送信します。

おすすめのWord生産性向上ツール