Outlook Appointmentでテーブルの内容にプログラムでアクセスする方法

Question

プログラムでOutlook招待に埋め込まれたテーブルの内容にどうにかしてアクセスする必要があるプロジェクトに取り組んでいます。それが電子メールであれば、クラス "MailItem"のオブジェクトを扱うことになり、HTMLBodyを呼び出して "table"タグを使用して内容を取得することができます。しかし、私の知る限り、 "AppointmentItem"オブジェクトには類似の機能はありません。私はMailItemsのための "RTFBody"関数があることを知っていますが、私は完全にRTFを使用してテーブルの内容を取得する方法については失われており、Googleはこの面ではあまり役に立ちません。私の目的のために、Outlookの招待状のテーブルは、埋め込まれたExcelワークシートオブジェクトか、単に挿入|表。

私の最終目標は、共有チームカレンダーに埋め込まれたテーブルの内容を取得し、Excelワークシートに送信して、私のチームが持っている会議のダッシュボードを構築することです。チームカレンダーのOutlook招待状に埋め込まれたテーブルの内容には、ダッシュボードに動的に表示したいデータポイントがあります。

ご協力いただければ幸いです。ありがとうございます！

Answer 1

これを試すことができますか？

Private Sub Add_Appointments_To_Outlook_Calendar() 

    'Include Microsoft Outlook nn.nn Object Library from Tools -> References 
    Dim oAppt As AppointmentItem 
    Dim Remind_Time As Double 

    i = 2 
    Subj = ThisWorkbook.Sheets(1).Cells(i, 1) 

    'Loop through entire list of Reminders to be added 
    While Subj <> "" 
     Set oAppt = Outlook.Application.CreateItem(olAppointmentItem) 

     oAppt.Subject = Subj 
     oAppt.Location = ThisWorkbook.Sheets(1).Cells(i, 2) 
     oAppt.Start = ThisWorkbook.Sheets(1).Cells(i, 3) 
     Remind_Time = ThisWorkbook.Sheets(1).Cells(i, 4) * 1 * 60 
     oAppt.ReminderMinutesBeforeStart = Remind_Time 
     oAppt.AllDayEvent = True 
     oAppt.Save 

     i = i + 1 
     Subj = ThisWorkbook.Sheets(1).Cells(i, 1) 
    Wend 
    MsgBox "Reminder(s) Added To Outlook Calendar" 

End Sub 

' The code comes from this link: 

http://officetricks.com/add-appointment-to-outlook-calendar-through-excel-macro-vba/

私は実際にこれについての本を書いた、と非常に多くの他のもの。あなたは下のリンクでそれを見つけることができます。

https://www.amazon.com/Automating-Business-Processes-Reducing-Increasing-ebook/dp/B01DJJKVZC?ie=UTF8&keywords=ryan%20shuell&qid=1463837322&ref_=sr_1_1&sr=8-1