ExcelからOutlook経由でのみワークシートを送信するにはどうすればよいですか？

Outlookを介してExcelのブックからXNUMXつのワークシートを電子メールで送信する場合は、ワークシートを添付ファイル、本文コンテンツ、またはPDFファイルとして送信できます。 しかし、Excelでこの問題に対処するためのより迅速な方法はありますか？

[メール受信者に送信]コマンドを使用して、Excelから単一のワークシートを本文として送信します

VBAコードを使用してExcelから添付ファイルとして単一のワークシートを送信します

VBAコードを使用してExcelからPDFファイルとして単一のワークシートを送信します

[メール受信者に送信]コマンドを使用して、Excelから単一のワークシートを本文として送信します

Excelは、[メール受信者に送信]コマンドを使用して、アクティブなワークシートを本文コンテンツとして電子メールで送信することをサポートしています。 次のように実行できます。

Excel 2007、2010、または2013を使用している場合は、これを追加する必要があります メール受信者に送信 コマンドを クイックアクセスツールバー 最初。

1。 のアイコンをクリックします クイックアクセスツールバーをカスタマイズする、選択して その他のコマンド、スクリーンショットを参照してください：

2. そして、 Excelのオプション ダイアログボックスで、 リボンにないコマンド セクションに からコマンドを選択します ドロップダウンリストを選択し、 メール受信者に送信 オプションをクリックして 追加>> このコマンドを追加するボタン、最後にクリック OK この設定を保存します。 スクリーンショットを参照してください：

3. この メール受信者に送信 コマンドがに挿入されました クイックアクセスツールバー、スクリーンショットを参照してください：

4。 次に、これをクリックします メール受信者に送信 アイコンボタンをクリックすると、プロンプトボックスが表示されます。 電子メール プロンプトボックス、チェックボックス 現在のシートをメッセージ本文として送信します、クリック OK。 スクリーンショットを参照してください：

5。 また、ワークシートデータの上にメール編集ボックスが表示され、対応するテキストボックスに受信者、件名、紹介を入力できます。 スクリーンショットを参照してください：

6. 次に、をクリックします。 このシーを送るこのアクティブなワークシートをメッセージ本文として特定の人に送信します。

Kutools AI で Excel の魔法を解き放つ

• スマートな実行: セル操作の実行、データの分析、グラフの作成など、すべて簡単なコマンドで実行できます。
• カスタム式: カスタマイズされた数式を生成してワークフローを効率化します。
• VBAコーディング: VBA コードを簡単に記述して実装します。
• 式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語の壁を打ち破ります。

AI を活用したツールで Excel の機能を強化します。 今すぐダウンロード これまでにない効率性を体験してください!

VBAコードを使用してExcelから添付ファイルとして単一のワークシートを送信します

アクティブなワークシートを添付ファイルとして電子メールで送信する場合は、次のVBAコードを使用すると便利です。

1。 送信するワークシートをアクティブにします。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：現在のワークシートをExcelから添付ファイルとして送信します

Sub SendWorkSheet()
'Update 20131209
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Application.ScreenUpdating = False
Set Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Set Wb2 = Application.ActiveWorkbook
Select Case Wb.FileFormat
Case xlOpenXMLWorkbook:
    xFile = ".xlsx"
    xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroEnabled:
    If Wb2.HasVBProject Then
        xFile = ".xlsm"
        xFormat = xlOpenXMLWorkbookMacroEnabled
    Else
        xFile = ".xlsx"
        xFormat = xlOpenXMLWorkbook
    End If
Case Excel8:
    xFile = ".xls"
    xFormat = Excel8
Case xlExcel12:
    xFile = ".xlsb"
    xFormat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
FileName = Wb.Name & Format(Now, "dd-mmm-yy h-mm-ss")
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add Wb2.FullName
    .Send
End With
Wb2.Close
Kill FilePath & FileName & xFile
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.ScreenUpdating = True
End Sub

注意：上記のコードでは、次の情報を必要に応じて変更できます。

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte機能"
• .Body = "このドキュメントを確認してお読みください。"

4。 次に、をクリックします F5 キーを押してこのコードを実行すると、プロンプトボックスが表示されます。 次を許可します。 プログレスバーが終了し、現在のワークシートが添付ファイルとして受信者に送信されたとき。

VBAコードを使用してExcelからPDFファイルとして単一のワークシートを送信します

ワークシートレポートを他の人に送信する必要があるが、他の人に変更させたくない場合があります。 この場合、ExcelからワークシートをPDFファイルとして送信できます。

1. 送信するワークシートをアクティブにします。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：現在のワークシートをExcelからPDFファイルとして送信します

Sub SendWorkSheetToPDF()
'Update 20131209
Dim Wb As Workbook
Dim FileName As String
Dim OutlookApp As Object
Dim OutlookMail As Object
On Error Resume Next
Set Wb = Application.ActiveWorkbook
FileName = Wb.FullName
xIndex = VBA.InStrRev(FileName, ".")
If xIndex > 1 Then FileName = VBA.Left(FileName, xIndex - 1)
FileName = FileName & "_" + ActiveSheet.Name & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:=FileName
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
With OutlookMail
    .To = "skyyang@extendoffice.com"
    .CC = ""
    .BCC = ""
    .Subject = "kte features"
    .Body = "Please check and read this document."
    .Attachments.Add FileName
    .Send
End With
Kill FileName
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub

注：上記のコードでは、必要に応じて次の情報を変更できます。

• .To = "skyyang@extendoffice.com"
• .CC = ""
• .BCC = ""
• .Subject = "kte機能"
• .Body = "このドキュメントを確認してお読みください。"

4。 次に、 F5 キーを押すと、プロンプトボックスが表示されます。をクリックします。 次を許可します。 プログレスバーが終了すると、アクティブなワークシートがPDFファイルとして特定の人に送信されます。

注意：

1.これらの方法は、メールプログラムとしてOutlookを使用している場合にのみ使用できます。

2.現在のワークシートを送信した後、Outlookに移動して、電子メールが正常に送信されたことを確認できます。

メーリングリストを作成してからメールを送信する

この Kutools for Excel's メーリングリストを作成する と 送信 メール ユーティリティは、ワークシートにメーリングリストをすばやく作成し、同じ件名、同じ内容、同じ添付ファイルを複数の電子メールアドレスに送信できます。

ダウンロードに移動

関連記事：

ExcelからOutlookを介して現在のブックを送信するにはどうすればよいですか？

ExcelからOutlookを介してセルの範囲を送信/電子メールで送信するにはどうすればよいですか？