特定の本やシートを電子メールで頻繁に送信する必要がある場合は、この手順をすぐに呼び出すことができないことに気付くはずです。 「古典的に」行う場合は、次のものが必要です。
- メール プログラム (Outlook など) を開く
- 新しいメッセージを作成する
- アドレス、件名、テキストを入力します
- メッセージにファイルを添付してください (忘れないでください!)
- ボタンをクリックします 送信
実際、メールはさまざまな方法で Excel から簡単に直接送信できます。 行け…
方法 1: 埋め込み送信
古き良き Excel 2003 をまだお持ちの場合は、すべてが簡単です。 目的のブック/シートを開き、メニューから選択します ファイル – 送信 – メッセージ (ファイル — 送信先 — メール受信者). 送信するための XNUMX つのオプションのいずれかを選択できるウィンドウが開きます。
最初のケースでは、現在のブックが添付ファイルとしてメッセージに追加されます。XNUMX 番目のケースでは、現在のシートの内容がテキスト テーブルとして (数式なしで) メッセージ テキストに直接挿入されます。
また、メニュー ファイル – 送信 (ファイル — 送る) さらにいくつかのエキゾチックな配送オプションがあります。
- メッセージ（レビュー用） (レビューのためのメール受信者) – ワークブック全体が送信され、同時に変更追跡がオンになります。つまり、明確に修正され始めます – 誰が、いつ、どのセルで、どのような変更を行ったか。 その後、メニューで行われた変更を表示できます サービス – 修正 – ハイライト修正 (ツール — 変更の追跡 — 変更の強調表示) またはタブで レビュー – 訂正 (Reveiw — 変更の追跡) 次のようになります。
色付きのフレームは、ドキュメントに加えられた変更を示します (ユーザーごとに色が異なります)。 マウスをホバーすると、メモのようなウィンドウがポップアップし、このセルで誰が、何を、いつ変更したかについての詳細な説明が表示されます。 部下のレポートを自分が編集したり、上司が自分のレポートを編集したりする場合など、ドキュメントのレビューに非常に便利です。
- ルート沿い (ルーティング受信者) – 本が添付されるメッセージは一連の受信者を経由し、各受信者がバトンのように自動的にさらに転送します。 必要に応じて、メッセージがチェーンの最後に返されるように設定できます。 変更の追跡を有効にして、スレッド内の各ユーザーが行った編集を確認できます。
新しい Excel 2007/2010 では、状況が少し異なります。 これらのバージョンでは、書籍をメールで送信するには、ボタンを選択する必要があります Office (オフィスボタン) またはタブ File （ファイル） チーム 送信 （送信）. 次に、一連の送信オプションがユーザーに提供されます。
新しいバージョンでは、Excel 2003 以降と同様に、レターの本文に挿入されたワークブックの別のシートを送信する機能がなくなっていることに注意してください。 残っている唯一のオプションは、ファイル全体を送信することです。 しかし、よく知られている PDF 形式とあまり知られていない XPS (PDF に似ていますが、読むのに Acrobat Reader は必要ありません。Internet Explorer で直接開きます) を送信する便利な機会がありました。 レビュー用に書籍を送るコマンドは、クイック アクセス パネルの追加ボタンとして引き出すことができます。 ファイル – オプション – クイック アクセス ツールバー – すべてのコマンド – レビュー用に送信 (ファイル — オプション — クイック アクセス ツールバー — すべてのコマンド — レビュー用に送信).
方法 2. 送信する単純なマクロ
マクロの送信ははるかに簡単です。 メニューから Visual Basic Editor を開く サービス – マクロ – Visual Basic Editor (ツール — マクロ — Visual Basic Editor)、新しいモジュールをメニューに挿入します インサート – モジュール そこに次の XNUMX つのマクロのテキストをコピーします。
Sub SendWorkbook() ActiveWorkbook.SendMail Recipients:="[email protected]", Subject:="Лови файлик" End Sub Sub SendSheet() ThisWorkbook.Sheets("Лист1").Copy With ActiveWorkbook .SendMail Recipients:="[email protected]", Subject:="Catch the file" .Close SaveChanges:=False End With End Sub その後、コピーしたマクロをメニューで実行できます サービス – マクロ – マクロ (ツール — マクロ — マクロ). ワークブックの送信 現在のブック全体を指定されたアドレスに送信し、 送信シート — Sheet1 を添付ファイルとして。
マクロを実行すると、Excel が Outlook に接続し、次のセキュリティ メッセージが画面に表示されます。
ボタンまでお待ちください 解決する がアクティブになり、クリックして送信を確認します。 その後、自動生成されたメッセージがフォルダに配置されます アウトゴーイング Outlook を初めて起動したとき、または Outlook を実行している場合はすぐに、受信者に送信されます。
方法 3. ユニバーサル マクロ
そして、現在の本ではなく、他のファイルを送信したい場合は? そしてメッセージの本文も設定しておくといいですね！ 以前のマクロは、Excel 自体の機能によって制限されるため、ここでは役に立ちませんが、Excel から Outlook を管理するマクロを作成できます。新しいメッセージ ウィンドウを作成して入力し、送信します。 マクロは次のようになります。
Sub SendMail() Dim OutApp As Object Dim OutMail As Object Dim cell As Range Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") 'Outlook を隠しモードで起動 OutApp.Session.Logon On Error GoTo cleanup 'そうでない場合started - exit Set OutMail = OutApp.CreateItem(0) '新しいメッセージを作成します On Error Resume Next 'メッセージ フィールドに OutMail .To = Range("A1").Value .Subject = Range("A2"). を入力します。 Value .Body = Range("A3").Value .Attachments.Add Range("A4").Value 'Send を Display に置き換えて、送信前にメッセージを表示できます .Send End With On Error GoTo 0 Set OutMail = Nothing cleanup : Set OutApp = Nothing Application.ScreenUpdating = True End Sub メッセージのアドレス、件名、テキスト、および添付ファイルへのパスは、現在のシートのセル A1:A4 にある必要があります。
- PLEX アドインを使用した Excel からのグループ メール
- Lotus Notes 経由で Excel からメールを送信するためのマクロ (Dennis Wallentin 著)
- マクロとは、Visual Basic でマクロ コードを挿入する場所
- HYPERLINK機能を使ったメール作成