연락처 그룹에 Outlook 전자 메일을 보낼 때 특정 구성원에게 배달을 지연하는 방법

Outlook 솔루션 2025 년 9 월 29 일
지금 공유 :

이 기사에서는 Outlook의 연락처 그룹에 전자 메일을 보낼 때 특정 구성원에 대한 배달을 신속하게 지연 할 수있는 VBA 코드를 공유합니다.

Outlook 이메일을 작성하여 연락처 그룹에 보낼 때이 이메일을이 그룹의 특정 구성원에게 보내는 것을 연기하려면 다음 방법을 사용하여이를 실현할 수 있습니다. 자동으로 연락처 그룹을 확장하고 특정 회원에게 지연되는 동일한 이메일을 생성합니다. 이제 정교한 단계를 알아 보려면 계속 읽으십시오.

연락처 그룹에 Outlook 전자 메일을 보낼 때 특정 구성원에 대한 배달 지연

연락처 그룹에 이메일을 보낼 때 특정 회원에게 전달 지연

  1. 먼저 Outlook 프로그램을 실행하세요.
  2. 그런 다음 나타나는 Outlook 주 창에서 "Alt + F11"키 버튼을 눌러야합니다.
  3. 그런 다음 새 모듈을 삽입하거나 사용하지 않는 모듈을 열어야하는 Outlook VBA 편집기에 액세스 할 수 있습니다.
  4. 그런 다음이 모듈에 다음 VBA 코드를 복사하여 붙여 넣을 수 있습니다.
Sub DelayEmail_aSpecificMemberinContactGroup()
    Dim objCurrentMail As MailItem
    Dim objRecipients As Recipients
    Dim ContactGroupFound As Boolean
    Dim i, n As Long
    Dim objDelayedMail As MailItem
 
    Set objCurrentMail = ActiveInspector.CurrentItem
    ContactGroupFound = True
 
    While ContactGroupFound = True
          Set objRecipients = objCurrentMail.Recipients
          ContactGroupFound = False
 
          'Expand the contact group in "To" field
          For i = objRecipients.count To 1 Step -1
              If objRecipients(i).AddressEntry.DisplayType <> olUser Then
                 For n = 1 To objRecipients(i).AddressEntry.Members.count
                     If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
                     Else
                        objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
                        ContactGroupFound = True
                     End If
                 Next
                 objRecipients(i).Delete
              End If
          Next i
          objRecipients.ResolveAll
    Wend

    'Find the specific memebr in the recipients
    For Each objRecipient In objRecipients
        If objRecipient.Address = "shelly@datanumen.com" Then
 
           'Create a same email
           Set objDelayedMail = objCurrentMail.Copy
           With objDelayedMail
                .To = ""
                .Recipients.Add objRecipient.Address
                .Recipients.ResolveAll
                'Change the deferred delivery time as per your needs
                .DeferredDeliveryTime = (Date + 1) & " 09:00:00"
                .Send
          End With
 
          objRecipient.Delete
       End If
    Next
 
    objCurrentMail.Send
End Sub

VBA 코드-연락처 그룹에 Outlook 전자 메일을 보낼 때 특정 구성원에게 배달 지연

  1. 다음으로 나중에 편리한 액세스를 위해 새로 추가 된 매크로를 메시지 창의 빠른 액세스 도구 모음에 추가하는 것이 좋습니다.
  2. 그런 다음 "Trust Center"의 "매크로 설정"에서 모든 매크로를 활성화하도록 Outlook 매크로 설정을 변경해야합니다.
  3. 결국 한 번 찍을 수 있습니다.
  • 먼저 평소와 같이 연락처 그룹에 이러한 이메일을 작성하십시오.
  • 그런 다음 빠른 실행 도구 모음에서 새 매크로 버튼을 클릭 할 수 있습니다.
  • 한 번에 동일한 이메일이 생성되고 예정된 시간에 특정 회원에게 발송되도록 설정됩니다.
  • 그 동안 현재 이메일이 연락처 그룹의 나머지 구성원에게 발송됩니다.

전망과 관련된 모든 위험을 주시하십시오.

In the contemporary era, virus and spyware is becoming increasingly rampant. It is usually disguised as innocuous email. Hence, you should watch out for various risks around your Outlook, such as the malicious emails. You need beware of the emails from unknown contacts. Also, in order to Outlook 수정 PST 파일이 멀웨어의 공격을받는 즉시 다음과 같은 숙련 된 복구 도구를 준비해야합니다. DataNumen Outlook Repair.

저자 소개 :

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

지금 공유 :

댓글이 닫혀있다.