[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『EXCEL_VBAでOUTLOOKの予定表の本文文字を太字化する方法』(チビンさん)
EXCELのVBAで生成したOUTLOOKの予定表の本文の一部を太字化したいのですが、どのようにVBAで記述すればよいでしょう?また一部の文字の色を赤字にするにはどうすればよいでしょうか?
< 使用 Excel:Excel2010、使用 OS:Windows7 >
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.