Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

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

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

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 / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

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

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (14)
5の5を評価 · 1の評価
このコメントは、サイトのモデレーターによって最小化されました
上記の手順を使用して、「Excelで複数の添付ファイルが添付されたメールをKutools for Excelですばやく送信する」ことはできますが、さらに一歩進んで、名前を挿入して各メールをパーソナライズしたいと思います(Excelシートの列から)メールの本文に。 メールの本文で、フィールドを選択して[プレースホルダーを挿入]をクリックしようとしましたが、何も起こりません。 なぜ、またはどのようにこれを修正できるのか、何か考えはありますか? ありがとうございました!
このコメントは、サイトのモデレーターによって最小化されました
上記のファイルがサブフォルダにある場合はどうなりますか? フォルダとサブフォルダでファイルを探す方法は?
このコメントは、サイトのモデレーターによって最小化されました
複数の異なるユーザーと異なる添付ファイルが異なる件名で送信される場合はどうなりますか。
このコメントは、サイトのモデレーターによって最小化されました
上記のコードは完璧に機能します!! しかし、私の電子メールの自動署名は、このコードで消えるようです。 なぜですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはチーム....私はメールで添付ファイルを見ることができないので、私があなたのステップに従うならば...あなたはplsを助けることができます
このコメントは、サイトのモデレーターによって最小化されました
素晴らしい......完璧に動作します。
このコメントは、サイトのモデレーターによって最小化されました
Excel VBA内から電子メールに複数の添付ファイルを追加するために、このソリューションを使用して作業することを楽しんでいます。 ありがとうございました。 私たちの多くが恩恵を受けて、私たちがやろうとしていることのためにカスタマイズされたいくつかの側面を望んでいることを私は知っています。 私も違いはありませんが、ステップ8の場合です。 ブラウズ ウィンドウが開きますか? 別の場所にある別のフォルダを参照できますが、パスを設定できれば時間の節約になります。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
Megustaríasabrecomoquedaríalamacrosiquisiera enviar en un mismo correoavariaspersonasomásyconvariosficherosomás。
どうもありがとうございます。
このコメントは、サイトのモデレーターによって最小化されました
het ook mogelijk om een filter te zetten op de selectie van de bijlagen、zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはアレックスデグラーフ、
このコードは、Microsoftのファイル選択ウィンドウを直接呼び出します。 これにより、VBAユーザーは必要なファイルを簡単に選択できます。
このコメントは、サイトのモデレーターによって最小化されました
こんにちはクリスタル、

はい、わかりました。 ただし、ユーザーがPDFファイルしか選択できないようにしたい。
これは可能でしょうか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちはアレックスデグラーフ、
次のVBAコードは、[参照]ウィンドウにPDFファイルのみを一覧表示します。 ぜひお試しください。

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    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
このコメントは、サイトのモデレーターによって最小化されました
こんにちはクリスタル、
はい、私はそれを理解しています。 ただし、ユーザーがpdfファイルのみを選択するように制限することはできますか?
このコメントは、サイトのモデレーターによって最小化されました
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
5の5を評価
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護