Outlook VBA를 사용하여 현재 날짜 또는 시간을 이메일 제목 또는 본문에 자동 삽입하는 방법

지금 공유 :

많은 사용자가 새 이메일을 작성할 때 이메일 제목이나 본문에 현재 날짜 또는 시간을 삽입하는 데 익숙합니다. 이 기사는 빠른 시간 내에이를 달성하는 방법을 알려줍니다.

이전 p에서ost - "Outlook 이메일의 제목에 현재 날짜를 자동으로 추가하는 방법”, 제목에 현재 날짜 또는 시간을 자동으로 추가하는 방법을 배울 수 있습니다. 그러나 그 p의 방법ost 사용자 지정 메시지 형식을 만드는 것입니다. 따라서 제목에 현재 날짜 나 시간이 포함 된 새 이메일을 만들 때마다 평소와 같이 새 이메일을 만드는 대신 사용자 지정 양식을 선택해야합니다. 분명히 꽤 번거로울 것입니다.

실제로 Outlook은 이미 날짜 또는 시간을 삽입 할 수있는 기본 필드를 제공했습니다. 또한 Outlook VBA를 적용하여 현재 날짜 또는 시간을 새 전자 메일의 본문이나 제목에 자동으로 삽입 할 수 있습니다. 선택하는 방법은 날짜 또는 시간을 삽입해야하는 빈도에 따라 다릅니다.

"날짜 및 시간"필드로 수동 삽입

  1. 에tart와 함께 Outlook을 시작합니다.
  2. 그런 다음 "홈"탭의 "새로 만들기"그룹에서 "새 이메일"버튼을 클릭하여 새 메시지를 작성합니다.
  3. 그런 다음 새 메시지 창에서 이메일 본문을 클릭하고 "삽입"탭으로 전환 할 수 있습니다.
  4. 다음으로 "텍스트"그룹에서 "날짜 및 시간"필드를 찾아 클릭 할 수 있습니다.날짜 및 시간 필드 찾기
  5. 그 후 새로운 대화 상자가 나타납니다. 사용 가능한 형식을 선택하고 "확인"버튼을 클릭합니다.날짜 및 시간 형식 선택
  6. 메시지 창으로 돌아 가면 이메일 본문에서 현재 날짜 또는 시간을 볼 수 있습니다. 기본적으로 Outlook에서는 제목에 "날짜 및 시간"필드를 적용 할 수 없습니다.메시지 본문의 현재 날짜 또는 시간
  7. 따라서 마지막으로 제목에 날짜 나 시간을 삽입하려면 본문에서 복사하여 제목에 수동으로 붙여 넣어야합니다.

이 방법은 현재 날짜 또는 시간을 거의 삽입 할 필요가없는 경우에 더 권장됩니다. 그러나 자주 또는 항상 삽입해야하는 경우 다음 VBA 코드를 사용하여 자동으로 수행하는 것이 좋습니다.

Outlook VBA로 자동 삽입

  1. 먼저 "Alt + F11"키 버튼을 눌러 VBA 편집기에 액세스합니다.
  2. 그런 다음 왼쪽에있는 "ThisOutlookSession"프로젝트를 두 번 클릭하여 엽니 다.
  3. 다음으로 다음 코드를 복사하십시오.
Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Private Sub Initialize_handlers()
    Set objInspectors = Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

Private Sub objMail_Open(Cancel As Boolean)
    Dim strTime As String
 
    'the current time
    strTime = Now
 
    'insert to subject
    'If you don't want to insert to subject, remove the following line
    objMail.Subject = strTime
    'insert to body
    'If you don't want to insert to body, remove the following line
    objMail.Body = strTime & objMail.Body
End Sub

VBA 코드-이메일 제목 또는 본문에 현재 날짜 또는 시간 자동 삽입

참고 : 위의 코드는 현재 시간을 피사체와 본문에 자동으로 삽입합니다. 현재 날짜를 삽입하려면 "objMail_Open다음과 함께”하위 :

Private Sub objMail_Open(Cancel As Boolean)
    Dim strDate As String
 
    'the current date
    strDate = Date
 
    'insert to subject
    objMail.Subject = strDate
    'insert to body
    objMail.Body = strDate & objMail.Body
End Sub
  1. 그런 다음 평소처럼이 코드에 서명하십시오.
  2. 나중에 restart Outlook에서 매크로를 활성화합니다.
  3. 마지막으로 시도해 볼 수 있습니다.
  • 새 이메일을 열려면 "새 이메일"버튼을 직접 클릭하십시오.새 이메일
  • 새 이메일 자동에는 아래 이미지와 같이 제목과 본문에 현재 날짜 또는 시간이 포함되어 있습니다.메시지 제목 또는 본문의 현재 날짜 또는 시간

알 수없는 이메일을 쉽게 신뢰하지 마십시오

정크 메일을받은 적이있을 것입니다. 보통 그것들을 어떻게 처리합니까? 바이러스를 포함 할 수 있으므로 이러한 종류의 메일에 첨부 파일을 다운로드하거나 링크를 여는 것은 바람직하지 않습니다. Outlook 데이터가 감염되면받은 편지함 복구 도구 인 Scanpst.exe가 영향을주지 않습니다. 이 경우, 당신은 더 경험이 풍부한 PST 수정 도구, 같은 DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 손상 SQL Server 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM

지금 공유 :

댓글이 닫혀있다.