Note: The other languages of the website are Google-translated. Back to English
ログイン  \/ 
x
or
x
今すぐ登録  \/ 
x

or

Excelで複数の添付ファイルを添付してメールを送信するにはどうすればよいですか?

この記事では、Excelで複数の添付ファイルを添付したOutlookを介した電子メールの送信について説明しています。

VBAコードを使用してExcelに添付された複数の添付ファイルを含む電子メールを送信する


VBAコードを使用してExcelに添付された複数の添付ファイルを含む電子メールを送信する


Excelで複数の添付ファイルを添付したメールを送信するには、次のようにしてください。

1.をクリックしてコマンドボタンを挿入してください ディベロッパー > インセット > コマンドボタン(ActiveXコントロール)。 スクリーンショットを参照してください:

2.コマンドボタンを挿入したら、右クリックして選択してください コードを表示 コンテキストメニューから選択します。

3.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウをクリックしてください BHツール > リファレンス 以下のスクリーンショットのように。

4。 の中に 参照– VBAProject ダイアログボックスで、を見つけて確認してください MicrosoftOutlookオブジェクトライブラリ オプションをクリックしてから、 OK ボタン。

5.次に、[コード]ウィンドウの元のコードを以下のVBAコードに置き換えます。

VBAコード:Excelで複数の添付ファイルが添付されたメールを送信する

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

注意:の変量を変更して、メールの受信者、件名、本文を指定してください .To = happy.xuebi@163.com, .Subject = "test" .HTMLBody = "テスト" コード内の行。

6。 プレス 他の + Q 一緒にキーを押して終了します アプリケーション向け Microsoft Visual Basic 窓。

7。 クリック ディベロッパー > デザインモード デザインモードをオフにします。 スクリーンショットを参照してください:

8.コマンドボタンをクリックしてコードを実行します。 ポップアップで ブラウズ ウィンドウで、電子メールに添付する必要のあるファイルを選択し、[ OK ボタン。 スクリーンショットを参照してください:

9.次に、指定されたフィールドと添付ファイルがリストされた電子メールが作成されます。 クリックしてください 送信 それを送信するボタン。 スクリーンショットを参照してください:

注意:VBAコードは、電子メールプログラムとしてOutlookを使用している場合にのみ機能します。


Excelで作成されたメーリングリストのフィールドに基づいて、Outlookを介して簡単に電子メールを送信します。

世界 メールを送る の有用性 Kutools for Excel Excelで作成されたメーリングリストに基づいてOutlookを介して電子メールを送信するユーザーを支援します。
今すぐダウンロードしてお試しください! (30日間の無料トレイル)



関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 全機能30日間の無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性が50%向上し、毎日何百ものマウスクリックが減ります。
officetab下部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alberto · 4 months ago
    Hola,

    Me gustaría saber como quedaría la macro si quisiera enviar en un mismo correo a varias personas o más y con varios ficheros o más.

    Muchas gracias.
  • To post as a guest, your comment is unpublished.
    Bigfoot17 · 9 months ago
    I have enjoyed working through this solution for adding multiple attachments to an email from within Excel VBA. Thank you. I know that a lot of us benefit and then want some aspect customized for exactly what we are trying to do. I am no different, but for step 8. Can we set the path that the Browse window will open with? I can browse over to another folder at a different location but if I could set the path that would be a time saver.
  • To post as a guest, your comment is unpublished.
    udayakumar · 1 years ago
    Superb...... Works perfectly.

  • To post as a guest, your comment is unpublished.
    kailash.naik00@gmail.com · 2 years ago
    HI Team ....i am unable to see the attachment in mail so if i follow the your step...can you pls help
  • To post as a guest, your comment is unpublished.
    Regina · 2 years ago
    the above code works perfectly thanks!! but my email automatic signature seem to disappear with this code. any idea why?
  • To post as a guest, your comment is unpublished.
    Rizwan Siddiqui · 3 years ago
    What if multiple different user and different attachment to be send with different subject line.
  • To post as a guest, your comment is unpublished.
    prashantsoni51@gmail.com · 3 years ago
    What if above files are located in sub-folders? How to look for a file in folder and sub-folders?
  • To post as a guest, your comment is unpublished.
    Laurel Granger · 3 years ago
    I am able to "Quickly send email with multiple attachments attached in Excel with Kutools for Excel" using your steps above, but would like to take it one step further and personalize each email by inserting their names (from a column in the Excel sheet) into the body of the email. While in the body of the email, I try selecting the field and clicking on "Insert Placeholder" but nothing happens. Any idea why or how I can fix this? Thank you!