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

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

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

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

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

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

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

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名です。必要に応じて変更してください。

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

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

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

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

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

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

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

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

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

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

より相対的な記事：

---

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

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

🤖 AIメールアシスタント: AI の魔法を備えたインスタント プロのメール - ワンクリックで天才的な返信、完璧な口調、多言語の習得。メールを簡単に変革しましょう! ...

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

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

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

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

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

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

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

続きを読む       無料ダウンロード      購入