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

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 メーリングリストを作成する   送信 メール ユーティリティは、ワークシートにメーリングリストをすばやく作成し、同じ件名、同じ内容、同じ添付ファイルを複数の電子メールアドレスに送信できます。

ダウンロードに移動 30日間の無料トライアル

関連記事：

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

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

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

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

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

続きを読みます... 無料ダウンロード... 購入... 

---

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

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性が50％向上し、毎日何百ものマウスクリックが減ります。

続きを読みます... 無料ダウンロード... 購入...