Outlook 메일로 작성할 때 제목(본문)에 날짜 설정

한마디

나는 회사에 연락할 수 있는 근태의 틀을 만들어 보았다.

개요

연락 태만을 위한 틀이 정해졌기 때문에 틀 자체는 제작된 것이다...
메일 이름과 본문의 날짜는 매번 수정됩니다.
이 날짜를 편집하는 것은 매우 번거롭기 때문에 오늘 날짜를 자동으로 설정할 수 있는 물건을 만들었다.

컨디션

Windows10
Outlook

절차.

메시지 템플릿 만들기

매크로 작성

동작 확인

사용 편의(경품)

1. 메일 템플릿 작성

메일을 제작하여 Outlookテンプレート形式(*.oft)에 보관합니다.
주제의 yyyy/mm/dd와 본문의 mm와 dd 부분을 바꿉니다.
파일 >[다른 이름으로 저장]
템플릿 파일의 저장 위치는 매크로를 만들 때 사용되므로 제어해야 합니다.
기본값C:\Users\$ユーザ名\AppData\Roaming\Microsoft\Templates저장 위치는 매크로를 만들 때 사용되기 때문에 제어해야 합니다.

2. 매크로 제작

부팅OutlookVisual Basic[개발] [Visual Basic]
(리본에 개발 라벨이 없을 때リボンのユーザ設定 추가)
개발 태그 추가 단계リボンのユーザ設定 마우스 오른쪽 버튼을 클릭하거나 [파일][옵션]에서 리본을 이동할 수 있습니다.リボンのユーザ設定의 오른쪽開発 확인란이 설정되었습니다.

Project1.ThisOutlookSession에 다음을 입력하고 저장합니다.
Project1.ThisOutlookSession

Sub 遅刻連絡()
    Dim MyItem As Outlook.MailItem

    Set MyItem = Application.CreateItemFromTemplate("$テンプレート保存場所\【勤怠連絡】山田花子　yyyymmdd 遅刻.oft")
    MyItem.Display
    ' 件名
    ' yyyy/mm/dd形式
    MyItem.Subject = Replace(MyItem.Subject, "yyyy/mm/dd", FormatDateTime(Now, vbShortDate))
    ' 本文
    ' mm
    MyItem.Body = Replace(MyItem.Body, "mm", Month(Now))
    ' dd
    MyItem.Body = Replace(MyItem.Body, "dd", Day(Now))
End Sub