添付ファイル付きで Excel から Outlook に差し込み印刷する方法 (2 つの例)

差し込み印刷の使用 、各受信者が個別に受け取るドキュメントのコレクションを作成できます。 Excel から Outlook への差し込み印刷の特別な方法を探している場合 添付ファイルを使用すると、適切な場所に来ました。添付ファイル付きで Excel から Outlook に差し込み印刷するには、さまざまな方法があります。この記事では、Excel から Outlook への添付ファイル付きの差し込み印刷に適した 2 つの例について説明します。このすべてを学ぶために完全なガイドに従ってみましょう.

添付ファイル付きの Excel から Outlook への差し込み印刷の 2 つの適切な例

添付ファイル付きの Excel から Outlook への差し込み印刷には、効果的でトリッキーな 2 つの方法を使用します。このセクションでは、2 つの方法について詳しく説明します。どちらも目的に合わせて使用​​でき、カスタマイズに関しては幅広い柔軟性があります。思考能力と Excel の知識を向上させるため、これらすべてを学習して適用する必要があります。 Microsoft Office 365 を使用しています ここではバージョンを使用できますが、好みに応じて他のバージョンを利用することもできます。

1.添付ファイルが 1 つの Excel から Outlook への差し込み印刷

ここでは、単一の添付ファイルを使用して Excel から Outlook に差し込み印刷する方法を示します。この記事で達成しようとしていることを理解できるように、最初に Excel データセットを紹介します。個人の名前、電子メール ID、および個人が必要とするファイルを示すデータセットがあります。

Visual Basic For Applications (VBA) を使用して、Excel から Outlook に 1 つの添付ファイルを差し込み印刷することができます。これを行うには、[開発者] タブが必要です リボンに表示します。その後、次の手順に従って、Excel から Outlook に差し込み印刷を行う必要があります。

📌 手順:

• まず、リボンから 開発者 に移動します タブ
• 次に、Visual Basic を選択します コードから グループ。
• または、Alt+F11 を押す必要があります VBA エディターを開く

• VBA ウィンドウで、[挿入] に移動します。 モジュールを選択 .

• 次に、次のコードを入力する必要があります

Sub Single_attachment()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
mailto = mailto & Cells(2, 2) & ";"
source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3)
Email.attachments.Add source
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

• その後、Visual Basic ウィンドウを閉じて Alt+F8 を押します。
• マクロ ダイアログ ボックスが開き、Single_attachment を選択します マクロ名 . 実行をクリックします .

• その結果、Outlook ウィンドウが表示され、目的の添付ファイルが表示されます

🔎 VBA コードの説明

Sub Single_attachment()

まず、マクロのサブプロシージャーに名前を付けます。

Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String

次に、マクロに必要な変数を宣言します。

Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)

ここでは、set キーワードを使用して appOutlook という名前の新しいオブジェクトを作成しています と電子メール。

mailto = mailto & Cells(2, 2) & ";"

この変数には、メールを送信する相手が含まれます。

source = "F:\SOFTEKO\61-0055\New folder\" & Cells(2, 3)

この変数には、指定されたフォルダーからの個人の電子メール ID が含まれます。

ThisWorkbook.Save

これにより、一般的に保存され、ワー​​クブックが保存されます。

source = ThisWorkbook.FullName

この変数には、このワークブック名​​が含まれます。

Email.attachments.Add source

この Add メソッドは、ソースをコレクション オブジェクトに追加します。

Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."

この変数は、「重要なシート」というテキストを電子メールの件名として返し、「皆さん、こんにちは。電子メールの本文として、シートを確認してください。」というテキストを返します。

Email.Display

この Display メソッドはメールを表示します。

End Sub

最後に、マクロのサブ手順を終了します。

注:

Excel ファイルと docs ファイルを 1 つのフォルダーに保存する必要があります。そうしないと、この方法は機能しません。

続きを読む: Word を使用しない Excel での差し込み印刷 (2 つの適切な方法)

2.複数の添付ファイルを含む Excel から Outlook への差し込み印刷

ここでは、複数の添付ファイルを含む Excel から Outlook への差し込み印刷の方法を示します。この記事で達成しようとしていることを理解できるように、最初に Excel データセットを紹介します。一部の人の名前、電子メール ID、および人が必要とするファイルを示すデータセットがあります。

Visual Basic For Applications (VBA) を使用して、複数の添付ファイルを含む Excel から Outlook への差し込み印刷を行うことができます。これを行うには、[開発者] タブが必要です リボンに表示します。その後、次の手順に従って Excel から差し込み印刷を行う必要があります

📌 手順:

• まず、リボンから 開発者 に移動します タブ
• 次に、ビジュアルを選択します ベーシック コードから グループ。
• または、Alt+F11 を押す必要があります VBA エディターを開く

• VBA ウィンドウで、[挿入] に移動します。 モジュールを選択 .

• 次に、次のコードを入力する必要があります

Sub attachments()
Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer
Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)
For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3)
    Email.attachments.Add source
Next
ThisWorkbook.Save
source = ThisWorkbook.FullName
Email.attachments.Add source
Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."
Email.Display
End Sub

• その後、Visual Basic ウィンドウを閉じて Alt+F8 を押します。
• マクロ ダイアログ ボックスが開き、添付ファイルを選択します マクロ名 . 実行をクリックします .

• その結果、Outlook ウィンドウが表示され、目的の添付ファイルが表示されます

🔎 VBA コードの説明

Sub attachments()

まず、マクロのサブプロシージャーに名前を付けます。

Dim appOutlook As Object
Dim Email As Object
Dim source, mailto As String
Dim i, j As Integer

次に、マクロに必要な変数を宣言します。

Set appOutlook = CreateObject("Outlook.Application")
Set Email = appOutlook.CreateItem(olMailItem)

ここでは、set キーワードを使用して appOutlook という名前の新しいオブジェクトを作成しています と電子メール。

For i = 2 To 5
    mailto = mailto & Cells(i, 2) & ";"
Next i
For j = 2 To 5
    source = "F:\SOFTEKO\61-0055\New folder\" & Cells(j, 3)

その後、For ループを開始します。 ma​​ilto 変数には、メールを送信する人が含まれます。ソース変数には、指定されたフォルダーからの個人の電子メール ID が含まれます。

Next

次に、For ループの各反復を実行する必要があります。

ThisWorkbook.Save

この保存コマンドはワークブックを保存します。

source = ThisWorkbook.FullName

この変数には、このワークブック名​​が含まれます。

Email.attachments.Add source

この Add メソッドは、ソースをコレクション オブジェクトに追加します。

Email.To = mailto
Email.Subject = "Important Sheets"
Email.Body = "Greetings Everyone," & vbNewLine & "Please go through the Sheets." & vbNewLine & "Regards."

この変数は、「重要なシート」というテキストを電子メールの件名として返し、「皆さん、こんにちは。電子メールの本文として、シートを確認してください。」というテキストを返します。

Email.Display

この Display メソッドはメールを表示します。

End Sub

最後に、マクロのサブ手順を終了します。

注:

Excel ファイルと docs ファイルを 1 つのフォルダーに保存する必要があります。そうしないと、この方法は機能しません。

続きを読む: Excel から差し込み文書を作成するマクロ

結論

以上で本日のセッションは終了です。これからは、Excel から Outlook への添付ファイル付きの差し込み印刷が可能になると確信しています。質問や推奨事項がある場合は、下のコメント セクションで共有してください。

ウェブサイト Exceldemy.com も忘れずにチェックしてください。 さまざまな Excel 関連の問題と解決策について説明します。新しい方法を学び続け、成長し続けてください!

関連記事

• Excel ファイルを宛名ラベルにマージする方法 (簡単な手順)
• Excel から Word に写真を差し込み印刷する方法 (2 つの簡単な方法)
• Excel から Word 封筒への差し込み印刷 (2 つの簡単な方法)
• Excel 差し込み印刷で日付形式を変更する方法 (クイック手順付き)