ジョルテ

Public Sub ジョルテ完了() Dim objOL As Outlook.Application Dim objOLSelect As Outlook.Selection Dim item As AppointmentItem Dim k As Long Set objOL = New Outlook.Application Set objOLSelect = objOL.ActiveExplorer.Selection Set fso = New FileSystemObject ' [ 選択中のメールに対してループ ] For k = 1 To objOLSelect.count …