☰

특정 상황에서만 Outlook 이메일을 외부로 자동 전달합니다.

tag-icon • tag-icon email microsoft-outlook vba
특정 상황에서만 Outlook 이메일을 외부로 자동 전달합니다.

제공된 VBA 코드를 수정할 수 있습니까?이 응답모든 것을 전달하지 않고 특정 이메일 주소에서만 이메일을 전달하는 이전 게시물에서요? 본질적으로, 다음의 메시지만 조건으로 Outlook 자동 전달 규칙을 모방합니다.[이메일 보호됨]보내지?

*서버의 자동 전달 비활성화를 우회하기 위해 몇 가지 VBA 스크립트를 작성했습니다. 기본적으로 이는 서버가 자동 전달을 수행하는 것이 아니라 사용자가 이메일을 전달하는 것을 모방합니다. 자세한 지침을 제공하는 것은 이 게시물의 범위를 벗어납니다. 하지만 요약은 다음과 같습니다.

Outlook의 Visual Basic 편집기에 위 코드를 추가합니다(Alt-F11을 누르면 시작됩니다). 꼭 바꿔보세요[이메일 보호됨]우편물을 보내고 싶은 주소로

각 인바운드 메시지에 대해 이 코드를 실행하도록 Outlook에 지시합니다(도구 -> 규칙 및 경고 -> 새 규칙 -> 메시지 도착 시 확인 -> 다음 -> 예 -> "스크립트 실행" 확인란 -> 그런 다음 방금 사용한 스크립트 선택). 만들어진.

이제 Outlook은 귀하가 받은 각 이메일을 자동으로 전달하지만 관리자에 의해 "자동 전달"로 차단되지는 않습니다.

암호:

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

myFwd.Recipients.Add "[email protected]"
myFwd.Send
Set myFwd = Nothing 
End Sub

답변1

if다음을 사용하여 문을 추가해 보세요.보낸 사람 주소-

Sub AutoForwardAllSentItems(Item As Outlook.MailItem)
Dim strMsg As String
Dim myFwd As Outlook.MailItem

Set myFwd = Item.Forward

If myFwd.Sender = "[email protected]" then
myFwd.Recipients.Add "[email protected]"
myFwd.Send
End if

Set myFwd = Nothing 
End Sub

아니면 더 쉬운 방법은규칙을 정하다:

각 인바운드 메시지에 대해 이 코드를 실행하도록 Outlook에 지시합니다(도구 -> 규칙 및 경고 -> 새 규칙 -> 메시지 도착 시 확인 -> 다음 -> 예 -> "스크립트 실행" 확인란 -> 그런 다음 방금 사용한 스크립트 선택). 만들어진.

Outlook에 코드를 실행하라고 지시하세요.메시지가 특정 주소에서 온 경우.

관련 정보