Excel VBAのOutlookオブジェクトライブラリ：メール自動化と連携の強力なツール

Sub SendEmail()
    ' Outlookライブラリの参照設定が必要
    ' 参照設定: Microsoft Outlook xx.x Object Library

    Dim olApp As Outlook.Application
    Dim olMail As Outlook.MailItem

    ' Outlookアプリケーションのインスタンスを取得
    Set olApp = New Outlook.Application

    ' 新しいメールアイテムを作成
    Set olMail = olApp.CreateItem(olMailItem)

    ' メールのプロパティを設定
    With olMail
        .To = "recipient@example.com"
        .Subject = "自動送信メール"
        .Body = "これはExcel VBAから自動送信されたメールです。"
        .Attachments.Add "C:\path\to\your\attachment.txt" ' 添付ファイルの追加（必要に応じて）
        .Send ' メールの送信
    End With

    ' リソースの解放
    Set olMail = Nothing
    Set olApp = Nothing

    MsgBox "メールが送信されました。", vbInformation, "完了"
End Sub

Sub CreateAppointment()
    ' Outlookライブラリの参照設定が必要
    ' 参照設定: Microsoft Outlook xx.x Object Library

    Dim olApp As Outlook.Application
    Dim olAppt As Outlook.AppointmentItem

    ' Outlookアプリケーションのインスタンスを取得
    Set olApp = New Outlook.Application

    ' 新しい予定アイテムを作成
    Set olAppt = olApp.CreateItem(olAppointmentItem)

    ' 予定のプロパティを設定
    With olAppt
        .Subject = "プロジェクト会議"
        .Location = "会議室A"
        .Start = DateAdd("d", 1, Now) ' 明日の今の時間
        .Duration = 60 ' 1時間
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 15 ' 15分前にリマインド
        .Body = "会議の詳細をここに記入します。"
        .Save ' 予定の保存
    End With

    ' リソースの解放
    Set olAppt = Nothing
    Set olApp = Nothing

    MsgBox "予定が作成されました。", vbInformation, "完了"
End Sub

Sub ReadEmails()
    ' Outlookライブラリの参照設定が必要
    ' 参照設定: Microsoft Outlook xx.x Object Library

    Dim olApp As Outlook.Application
    Dim olNs As Outlook.Namespace
    Dim olFolder As Outlook.Folder
    Dim olItem As Object
    Dim olMail As Outlook.MailItem
    Dim i As Integer

    ' Outlookアプリケーションのインスタンスを取得
    Set olApp = New Outlook.Application

    ' 名前空間オブジェクトを取得
    Set olNs = olApp.GetNamespace("MAPI")

    ' 受信トレイフォルダを取得
    Set olFolder = olNs.GetDefaultFolder(olFolderInbox)

    ' メールアイテムをExcelシートに表示
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1)
    ws.Cells.Clear

    i = 1
    For Each olItem In olFolder.Items
        If TypeOf olItem Is Outlook.MailItem Then
            Set olMail = olItem
            ws.Cells(i, 1).Value = olMail.Subject
            ws.Cells(i, 2).Value = olMail.SenderName
            ws.Cells(i, 3).Value = olMail.ReceivedTime
            ' メールの本文を安全に取得
            On Error Resume Next
            ws.Cells(i, 4).Value = Left(olMail.Body, 32767) ' Excelセルの最大文字数に切り取る
            On Error GoTo 0
            i = i + 1
        End If
    Next olItem

    ' リソースの解放
    Set olMail = Nothing
    Set olFolder = Nothing
    Set olNs = Nothing
    Set olApp = Nothing

    MsgBox "受信メールの読み取りが完了しました。", vbInformation, "完了"
End Sub