メインコンテンツへスキップ

OutlookからExcelに電子メールを自動的にエクスポートするにはどうすればよいですか?

通常、インポート/エクスポート機能を使用して、OutlookからExcelに電子メールをエクスポートできます。 しかし、新しいメッセージが到着したときに電子メールをExcelファイルに自動エクスポートしようとしたことがありますか? この記事では、新しい受信メッセージの情報をExcelで自動的にエクスポートする方法について説明します。

VBAコードを使用してOutlookからExcelに電子メール情報を自動エクスポートする

すばらしい機能を使用して、OutlookからExcelにメール情報をエクスポートします


VBAコードを使用してOutlookからExcelに電子メール情報を自動エクスポートする

新着メールをExcelブックに自動的にエクスポートするには、次のVBAコードを適用してください。

1。 まず、次のスクリーンショットに示すように、以下のヘッダー情報を使用してワークブックを作成する必要があります。これにより、メッセージのこれらの情報がこのExcelファイルにエクスポートされます。

メールをExcel1に自動エクスポートするドキュメント

2。 次に、Outlookに移動し、 Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

3。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、ダブルクリック このOutlookSession Project1(VbaProject.OTM) ペインでモードを開き、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード:OutlookからExcelファイルへの電子メール情報の自動エクスポート:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

Note:上記のコードでは、 C:\ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx エクスポートした情報を検索するExcelファイルのパスとExcel名です。必要に応じて変更してください。

メールをExcel2に自動エクスポートするドキュメント

4。 まだ アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック 工具 > リファレンス 参考資料-Project1 ダイアログボックスをクリックし、チェックします MicrosoftExcelオブジェクトライブラリ オプションから 利用可能な参考文献 リストボックス、スクリーンショットを参照:

メールをExcel3に自動エクスポートするドキュメント

5。 次に、をクリックします OK ボタンをクリックしてダイアログを閉じ、コードウィンドウを保存して閉じます。

6。 ここで、Outlookを再起動して、このコードを有効にする必要があります。 今後、新しいメールが届くと、それらは特定のワークブックに自動的にエクスポートされます。スクリーンショットを参照してください。

メールをExcel4に自動エクスポートするドキュメント


すばらしい機能を使用して、OutlookからExcelにメール情報をエクスポートします

メールを受信トレイ、送信トレイ、またはその他のフォルダからExcelファイルにエクスポートする場合は、 Outlook用Kutools's クイックレポート 必要に応じて、現在の電子メールフォルダまたはタスクフォルダ内のすべてのアイテムの情報をレポートするためのXMLファイルを簡単に生成するのに役立ちます。

注:これを適用する クイックレポート、まず、ダウンロードする必要があります Outlook用Kutools、次に機能をすばやく簡単に適用します。

インストールした後 Outlook用Kutools、次のようにしてください。

1。 すべてのメッセージ情報をエクスポートするフォルダを選択し、をクリックします クツールズプラス > クイックレポート、スクリーンショットを参照してください:

2。 次に、飛び出した レポートを保存 ウィンドウで、場所を選択し、このエクスポートされたファイルの名前を指定します。スクリーンショットを参照してください。

3。 次に、をクリックします Save ボタンをクリックしてこのファイルを保存し、ポップアウトされたボックスで[ はい ボタンをクリックしてファイルを開きます。スクリーンショットを参照してください。

4。 これで、選択したフォルダー内の電子メールのすべての情報がExcelファイルにエクスポートされたことがわかります。スクリーンショットを参照してください。


より相対的な記事:

  • 電子メール本文テーブルをOutlookのExcelにエクスポート
  • 本文にいくつかのテーブルを含む電子メールを受信した場合、メッセージ本文からExcelワークシートにすべてのテーブルをエクスポートする必要がある場合があります。 通常、テーブルをコピーしてワークシートに貼り付けることができますが、ここでは、エクスポートする必要のあるテーブルが複数ある場合に、このジョブを解決するための便利な方法について説明します。
  • OutlookでタスクリストをExcelに抽出またはエクスポートする
  • Outlookを使用しているときに、他の用途のためにタスクリストをExcelに抽出できます。 Outlookの強力なエクスポート機能を使用すると、タスクリストをExcelに簡単にエクスポートできます。 以下のチュートリアルが示すようにしてください。
  • Outlookで写真を使用して連絡先の情報をエクスポートする
  • Outlookからファイルに連絡先をエクスポートする場合、エクスポートできるのは連絡先のテキスト情報のみです。 ただし、場合によっては、連絡先のテキスト情報だけでなく写真もエクスポートする必要があります。Outlookでこのタスクをどのように処理できますか?

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

Outlook用Kutools - Outlook を強化する 100 以上の強力な機能

📧 自動メール: 不在時 (POP および IMAP で利用可能)  /  メール送信のスケジュール設定  /  メール送信時のルールによる自動CC/BCC  /  自動転送 (高度なルール)   /  あいさつを自動追加   /  複数受信者の電子メールを個別のメッセージに自動的に分割する ...

📨 電子メール管理: メールを簡単に思い出す  /  件名などで詐欺メールをブロック  /  重複するメールを削除する  /  高度な検索  /  フォルダーを統合する ...

📁 アタッチメント プロバッチ保存  /  バッチデタッチ  /  バッチ圧縮  /  自動保存   /  自動デタッチ  /  自動圧縮 ...

🌟 インターフェースマジック: 😊もっと可愛くてクールな絵文字   /  タブ付きビューで Outlook の生産性を向上  /  Outlook を閉じる代わりに最小化する ...

???? ワンクリックの驚異: 受信した添付ファイルをすべてに返信する  /   フィッシングメール対策  /  🕘送信者のタイムゾーンを表示 ...

👩🏼‍🤝‍👩🏻 連絡先とカレンダー: 選択したメールから連絡先を一括追加  /  連絡先グループを個別のグループに分割する  /  誕生日のリマインダーを削除する ...

オーバー 100の特長 あなたの探索をお待ちしています! ここをクリックして詳細をご覧ください。

 

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If I have more than one email accounts in outlook, how can I output the emails from a specified account ?
This comment was minimized by the moderator on the site
I have followed above steps but have blanks in excel.
what should I do?
This comment was minimized by the moderator on the site
Same excel not getting updated? Any suggestions?
This comment was minimized by the moderator on the site
How to capture the Categories, Importance or the User-defined column on the same folder view?
This comment was minimized by the moderator on the site
Can you please let me know how to deal with sub-folders in above code.
This comment was minimized by the moderator on the site
how to deal with subfolders.
This comment was minimized by the moderator on the site
I need the help about exporting Email information sent (outgoing) emails
This comment was minimized by the moderator on the site
Hello, Jorge,
If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations