팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
등록하기
x

or

Outlook을 통해 보내기 전에받는 사람 주소를 확인하는 방법?

일부 경우 Outlook을 통해 전자 메일을 보내는 동안 중요한받는 사람을받는 사람, 참조 또는 숨은 참조 필드에 추가하지 못할 수 있습니다. 여기에서는 Outlook을 통해 보내기 전에 특정 전자 메일 주소가 추가되었는지 확인하는 방법을 소개 할 수 있습니다.

VBA 코드로 보내기 전에 주소를 확인하십시오.

모두에게 답장하면 Outlook에서 자신을 제외합니다.

Outlook의 모든 기능에 대한 답장을 사용하는 경우 수신 한 이메일에 두 개의 계정이 더 포함되어있는 경우 수신자 입력란에 계정을 추가 할 수 있습니다. 이 경우받는 사람 및 참조 입력란에서 계정을 제거 할 수 있습니다. Outlook 용 Ktools's 내 이름은 이 일을 빨리 해결하는 데 호의를 베풀 수 있습니다. 한 번만 클릭하면 Outlook의 모든 myselft 계정이받는 사람 및 참조 필드에서 제거됩니다. 45 일 무료 평가판을 보려면 클릭하십시오!
doc 회신 제외 계정
doc arrow dowm

doc 답장 계정 제외 2
Outlook 용 Kutools : 수십 개의 편리한 Outlook 추가 기능으로 45 일 동안 아무런 제한없이 시도 할 수 있습니다.

VBA 코드로 보내기 전에 주소를 확인하십시오.

여기에 내가이 직업을 해결하는 데 도움이되는 두 가지 코드가 있습니다. 필요한 사람을 선택할 수 있습니다.

1. 프레스 Alt + F11 k유효한 EYS 응용 프로그램 용 Microsoft Visual Basic 창.

2. 더블 클릭 ThisOutlookSession 제품가격 Project1 코드 편집기를 열고 아래 코드를 복사하여 편집기에 붙여 넣으십시오.

VBA : 보내기 전에받는 사람 주소를 확인하십시오.

개인 서브 Application_ItemSend (ByVal 항목을 객체로, 부울로 취소) 'UpdatebyExtendoffice20180523 Dim xAddressArr () As Variant Dim xAddress As String Dim xRecipient as 수신자 Dim xPrompt As String Dim xYesNo Integer Dim xDictionary Scripting.Dictionary On 오류 재개 다음 세트 xDictionary = 새로운 Scripting.Dictionary xAddressArr = Array ( "example1@126.com", "example2@126.com", "example3@126.com") i = LBound (xAddressArr) UBound (xAddressArr) xDictionary.Add xAddressArr (i ), True이면 각 xRecipient에 Item.Recipients If xRecipient.Type = olTo Then xDictionary.Exists (xRecipient.Address) Then xDictionary.Remove xRecipient.Address End If 다음 xDictionary.Count = 0 Then GoTo L1 i = 0 To xDictionary.Count - 1 xAddress = ""그렇다면 xAddress = xDictionary.Keys (i) Else xAddress = xAddress + ";"xDictionary.Keys (i) End if Next i xPrompt = "& xAddress &". 메일을 보내시겠습니까? " xYesNo = MsgBox (xPrompt, vbQuestion + vbYesNo, "Outlook 용 Kutools") xYesNo = vbNo이면 Cancel = True L1 : Set xRecipient = Nothing Set xDictionary = Nothing End Sub

doc 1을 보내기 전에 수신자 주소를 확인하십시오.

코드에서 다음을 변경할 수 있습니다. ("example1@126.com", "example2@126.com", "example3@126.com") 필요한 실제 수신자에게

3. 그런 다음 응용 프로그램 용 Microsoft Visual Basic 창을 클릭합니다 도구 > 참조. 확인 Microsoft Scripting 런타임 체크 박스 참고 문헌-Project1 대화.

doc 2을 보내기 전에 수신자 주소를 확인하십시오. 박사 오른쪽 화살표 doc 3을 보내기 전에 수신자 주소를 확인하십시오.

4. 클릭 OK 코드를 저장하십시오.

지금 지정한받는 사람이 전자 메일을 보내는 동안받는 사람 필드에 나타나지 않으면 전자 메일을 보낼지를 알려주는 대화 상자가 나타납니다.
doc 4을 보내기 전에 수신자 주소를 확인하십시오.

위의 코드를 사용하면 필드, 체크 인하 고 싶다면 , CC 그리고, BCC 필드를 사용하면 아래 코드를 사용할 수 있습니다.

VBA : 보내기 전에받는 사람 / 참조 / 숨은 참조 필드에서받는 사람 주소를 확인하십시오.

비공개 Sub Application_ItemSend (ByVal 항목을 개체로, 부울로 취소) 'UpdatebyExtendoffice20180523 Dim xRecipients As Outlook.Recipients Dim xRecipient As Outlook.Recipient Dim xPos As Integer Dim xYesNo As 정수 Dim xPrompt As String Dim xAddress As String On Error 다음 항목. Class <> olMail 그런 다음 Exit Sub Set xRecipients = Item.Recipients xAddress = "example1@gmail.com"xRecipients의 각 xRecipient xPos = InStr (LCase (xRecipient.Address), xAddress) xPos = 0이면 xPrompt = "보내는 중 이것을 "& xAddress &"로 보내주십시오. 정말로 보내시겠습니까? " xYesNo = MsgBox (xPrompt, vbYesNo + vbQuestion + 4096, "Kutools for Outlook") xYesNo = vbNo이면 취소 = True End If Next xRecipient End Sub

이 코드를 사용하면 Microsoft Scripting 런타임 확인란을 선택하고 코드를 저장하면 바로 적용됩니다.



Outlook 용 Kutools

Outlook 100, 2010, 2013, 2016 및 2019 용 365 고급 기능 이상

배너 201812를 위해 작은 전망을위한 스크린 샷 kutools

더 많은 특징 | 무료 다운로드 | 수백 개의 함수에 대해서만 $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.