0

エクセルのデータを抽出してOutlookの会議依頼を生成するマクロを組んでいます。しかし問題点が二つあり、

  1. マクロによって開かせた会議依頼ウインドウ以外に別のOutlookのウインドウ(メールでも会議依頼でも)が開いていると、そちらに目的のデータが書き込まれてしまって大変
  2. この辺(マクロで書式設定した文字列を予定アイテムの本文に書き込む方法)をみて文字列の書式は変えられるようになったけど、表が作れない。

上のURLはOutlookVBAの話なので、エクセルから呼び出したOutlookのオブジェクトとその中のWordのコンポーネントのつながりをどう記述すればいいのかわからない、というのが1の原因のような気がしています。2に至ってはMSDSのTable オブジェクト (Word)を参照という名のコピペしてみてるんですが、どう書いてもエラーになります・・・

よろしくお願いいたします。

Sub MeetingRequest()
    Dim OutlookObj As Outlook.Application
    Dim MailItemObj As Outlook.AppointmentItem

    Set OutlookObj = CreateObject("Outlook.Application")
    Set MailItemObj = OutlookObj.CreateItem(olAppointmentItem)
    MailItemObj.MeetingStatus = olMeeting

    MailItemObj.Display

    Dim wrdEditor As Object
    Set wrdEditor = ActiveInspector.WordEditor

    With MailItemObj
        .Subject = "会議依頼"
    End With

    With wrdEditor.Application.Selection
    .Font.Size = 11
    .Font.Color = RGB(91, 155, 213)
    .TypeText "Hello all," & vbCrLf
    .TypeText "This is a meeting request!" & vbCrLf & vbCrLf
    .TypeText "The detail is as follows;"
    End With

    MailItemObj.Display
    Set OutlookObj = Nothing
    Set MailItemObj = Nothing
    Set wrdEditor = Nothing
End Sub
2
  • Outlookで出来るかどうか分かりませんが、こんな記事とかページがあります。Using Tables in RTF, Table Definitions, MSFT-RTF.pdf
    – kunif
    Commented 2019年10月8日 16:53
  • むむむRTF直イジリですか・・・ハードル高そう・・・
    – Nekotaro
    Commented 2019年10月9日 10:19

0

この質問に回答するには、ログインする必要があります。

のタグが付いた他の質問を参照する。