[[20170608150447]] 『EXCEL_VBAでOUTLOOKの予定表の本文文字を太字化す』(チビンさん) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『EXCEL_VBAでOUTLOOKの予定表の本文文字を太字化する方法』(チビンさん)

EXCELのVBAで生成したOUTLOOKの予定表の本文の一部を太字化したいのですが、どのようにVBAで記述すればよいでしょう?また一部の文字の色を赤字にするにはどうすればよいでしょうか?

< 使用 Excel:Excel2010、使用 OS:Windows7 >


まずはOUTLOOK VBAのサイトを見てOUTLOOK VBAを組んでください。
それが出来たらエクセルから操作するように改変するのはお手伝いできると思います。
ここはエクセルのサイトですので。
(とおりすがり) 2017/06/08(木) 15:25

下記ソースの3行14列目が3行12列目の文字の一部と同じでありそれを太字にしたいです。
よろしくお願いします。

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・

Sub main()

Dim Row1 As Integer

    'ChDrive Left(ThisWorkbook.Path, 2)
'    ChDir ThisWorkbook.Path             'カレントディレクトリをワークブックのあるところにする。
'    Application.DisplayAlerts = False
'    カレントディレクトリ = ThisWorkbook.Path

    Row1 = Application.WorksheetFunction.Count(Worksheets("Sheet1").Range("A:A"))

For i = 0 To Row1

          パス名1 = Cells(3 + i, 16)
'VBSからOutlook 予定表のアイテム作成をテスト
'入力された名前で予定のアイテムを1つ作成する

'Dim yoteiNAME '予定の名前

'yoteiNAME = InputBox("予定の題名・件名は?") '入力させる

'Outlookの起動 アプリケーション を 作成する

    Dim oApp As Outlook.Application        'As Outlook.Application OutlookのApplication オブジェクトを入れる
    Dim myNameSpace 'As Outlook.NameSpace 名前のスペースと言われても、、
    Dim myFolder    'As Outlook.Folder フォルダー指定

    'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を
            Set oApp = CreateObject("Outlook.Application")

    '呪文1 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ
            Set myNameSpace = oApp.GetNamespace("MAPI")

'olFolderCalendar 9 予定フォルダ ※カレンダー

    '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display)
        '    Set myFolder = myNameSpace.GetDefaultFolder(9) '規定のフォルダー olFolderCalendar=9 指定
        '    myFolder.Display  '表示 いつものクセで .Visible = True とやりがちだけど

    '通常サイズ olNormalWindow=2 で表示(ほかに olMaximized=0,olMinimized=1)
            oApp.ActiveWindow.WindowState = 2   'olNormalWindow=2 を セット

'ここから予定の作成
'CreateItem(1) とolAppointmentItem=1 1を指定しただけ。

    Dim aITEM As Outlook.AppointmentItem   'As Outlook.AppointmentItem '予定、アポ
    Dim myRequiredAttendee As Outlook.Recipient
    Dim myOptionalAttendee As Outlook.Recipient
    Dim myResourceAttendee As Outlook.Recipient

    'CreateItemで予定の作成
            Set aITEM = oApp.CreateItem(olAppointmentItem)   'olAppointmentItem=1 1予定・アポを指定
            aITEM.MeetingStatus = olMeeting
            aITEM.Display   '編集画面表示

    'データのセット
            aITEM.Subject = Cells(3 + i, 4)
            Set myRequiredAttendee = aITEM.Recipients.Add(Cells(3 + i, 5))
            myRequiredAttendee.Type = olRequired
            If Cells(3 + i, 6) <> "" Then
                Set myOptionalAttendee = aITEM.Recipients.Add(Cells(3 + i, 6))
                myOptionalAttendee.Type = olOptional
            End If
            aITEM.Body = Cells(3 + i, 11) & vbCrLf & Cells(3 + i, 12) & vbCrLf & パス名1 & vbCrLf & Cells(3 + i, 13)
            aITEM.Start = Cells(3 + i, 8)
            aITEM.Duration = Cells(3 + i, 9)
            aITEM.Location = Cells(3 + i, 10)
            aITEM.ReminderMinutesBeforeStart = Cells(3 + i, 15) 'リマインダー(開始何分前にアラームを出すか?)
            aITEM.Save   '.Saveで保存
Next i

End Sub
(チビンさん) 2017/06/08(木) 16:05


EXCELファイルを添付して、送ることはできるのでしょうか?できるのであればファイルを送付しますが、やり方がわかりません。
(チビンさん) 2017/06/08(木) 16:07

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.