VBA Outlook予定

Question

ExcelからOutlook予定アイテムにデータをコピーしようとしています。私はすでにテーブルといくつかの画像を持つテンプレートを作成しており、テンプレートの本体にある既にフォーマットされたテーブルのExcelファイルからデータをコピーしたいと考えています。しかし、電子メールと異なり、Outlookの予定は".htmlbody"のプロパティをサポートしていないため、テンプレートにデータを貼り付けるのが難しくなります。

これまでのところ、私はこれを行うにしようとしています：私は問題を抱えていますどこ

Dim olAppItem as Outlook.AppointmentItem 
Set olAppItem = olApp.CreateItemFromTemplate("C:\Users\User1\Desktop\Invite.oft") 

以下の2行があります。

olAppItem.BodyFormat = olFormatRichtext 
olAppItem.RTFBody = Replace(olAppItem.RTFBody, "%1%", "Test", , , vbDatabaseCompare) 

私もolformatHTMLからolAppItem.Bodyformatを設定しようとしたが、それはプロパティをサポートしていません。

何か助けていただければ幸いです。

ありがとうございました。

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=1463833985&ref_=sr_1_1&sr=8-1