시작하기

내 회사의 메일 소프트웨어가 Outlook입니다. Office 제품군으로서 VBA를 이용할 수 있지만, VBA의 환경 설정이 좀처럼 능숙하지 않았다. 지금도 수행과 모색의 나날이지만, 성과물로서 본문에 남깁니다.

1. 최초의 난관

회사에 있어서 Outlook의 「매크로의 설정」은 「디지털 서명된 매크로에 대해서 경고・・・」에 회색 고정되고 있다. IT 부문이 설정하고 있을 것이다. 이유는 아마 Outlook·VBA의 설정을, 예를 들면 「모든 매크로를 유효하게 한다」로 된 상태로 매크로가 악용되면, 사내 정보를 메일 경유로 사외에 자자 누설이 되기 때문일 것이다.
이유는 이해할 수 있지만, 아 멘도쿠사이. IT 부문에 설정을 변경해달라고 울고 부탁해도 0.1초만에 각하의 답변이 올 것이다.

2. 디지털 서명 필요

이 「매크로의 설정」이 시큐리티상 고정되어 있기 때문에, 「디지털 서명」이라고 하는 Excel의 매크로(VBA) 시대에서는 전혀 몰랐던 지식이 필요하게 되었다. 이 '디지털 서명'에 따라, 필요성을 이해할 때까지가 꽤 힘들었다. 당연하지만 '디지털 서명'이 필요하다고 아무도 가르쳐주지 않는다. 기계 엔지니어는 장애물이 높습니다.

3. 디지털 서명의 작업 순서

자세한 내용은 아래의 참고 사이트를 보고 싶지만 개요는 4단계입니다.
VBA - 유효한 디지털 자체 서명 인증서를 만드는 SELFCERT.EXE

스텝 ① : PC 내에서 SELFCERT.EXE를 찾아서 기동해 「디지털 증명서」를 작성한다.
단계 ②: 작성한 「디지털 증명서」를, 동 PC내의 「증명서 스토어」로 이동한다.
Step ③ : 「증명서 스토어」로 이동시킨 「디지털 증명서」를 Outlook의 「디지털 서명」에 등록한다.
Step④: OutLook 재시작

4. 초기설정과 환경

"도구"에서 "참조 설정"을 선택하고 "Microsoft Outlook 16.0 Object Library"에 ☑를 붙인다.　

5. Outlook·VBA 아티팩트

가능한 한 원 라이너를 목표로 하고 싶지만 한계 있어. 용서해 주세요.

5-1. 사이트 열기

컴퓨터의 기본 브라우저에서 지정된 사이트 열기

Sub パソコンの既定ブラウザで開く()
    CreateObject("WScript.shell").Run "cmd /c start" & " " & String(2, Chr(34)) & " " & Chr(34) & "https://www.google.co.jp/" & Chr(34), 0, True
End Sub

InternetExplorer에서 지정된 사이트 열기

".Visible = True"를 한 줄로 만들 수 없습니다.

Sub IE起動() 
 With CreateObject("InternetExplorer.Application")
   .Navigate "https://www.google.co.jp/"
   .Visible = True   'Internet Explorerを表示する。
 End With
End Sub

5-2. 선택한 문자 범위 추출

비편집 상태(브라우징)의 경우

    Sub selectionTest()
        MsgBox ActiveExplorer.Selection(1).GetInspector.WordEditor.Application.Selection
    End Sub

편집 상태의 경우

신규 메일 작성이나 메일을 더블 클릭하여 열었을 경우 등

    Sub selectionTest()
        MsgBox ActiveInspector.WordEditor.Application.Selection
    End Sub

5-3. 선택한 문자 범위에 Wikipedia 링크를 부여합니다.

편집 상태가 아니면 할 수 없습니다.

Sub 選択範囲にハイパーリンク付与()
  ActiveInspector.WordEditor.Application.Selection.hyperlinks.Add anchor:=ActiveInspector.WordEditor.Application.Selection.Range, Address:="https://ja.wikipedia.org/wiki/" & ActiveInspector.WordEditor.Application.Selection
End Sub

5-4. 선택 영역에 색상을 지정합니다.

문자의 색상은 편집 모드에서 변경할 수 있습니다.

Sub 赤()
     ActiveInspector.WordEditor.Application.Selection.Font.Color = vbRed
End Sub

Sub 青()
     ActiveInspector.WordEditor.Application.Selection.Font.Color = vbBlue
End Sub

Sub 黒()
     ActiveInspector.WordEditor.Application.Selection.Font.Color = vbBlack
End Sub

6. 야미쿠모에게 와서 보아 온 것.

Active 계열
적출할 대상


ActiveExplorer
데스크톱의 최상위 계층에 대한 탐색기 추출

ActiveInspector
지금 열려 있는(=편집중) 아이템(=신규 메일 등)의 윈도우를 적출

ActiveInlineResponse

ActiveInlineResponseWordEditor

참고 사이트

Outlook VBA 참조
OUTLOOK 연구소