Outlook에서 특정 날짜의 특정 보낸 사람이 보낸 전자 메일을 자동으로 삭제하도록하려면이 문서를 읽을 수 있습니다. 여기에서는 VBA 코드를 사용하여 가져 오는 자세한 단계를 보여줍니다.
이메일 자동 삭제와 관련하여 먼저 "자동 보관"기능을 생각할 수 있습니다. 그러나 이메일을 자동 보관할 때 특정 발신자를 필터링 할 수 없습니다. 따라서 예를 들어 x 일 후에 특정 발신자가 보낸 이메일을 자동 삭제하려면 다음과 같은 다른 방법을 사용해야합니다.
X 일 후 특정 발신자의 이메일 자동 삭제
- 처음에는 star당신의 Outlook 응용 프로그램.
- 그런 다음 "에 따라 Outlook VBA 편집기를 트리거합니다.Outlook에서 VBA 코드를 실행하는 방법".
- 다음으로 다음 VBA 코드를 "ThisOutlookSession"프로젝트에 복사합니다.
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
Call DeleteEmailsFromSpecificSenderAfterXDays
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
'From the specific sender
If objMail.SenderEmailAddress = "bob_black@datanumen.com" Then
'Set expiry time - after 5 days
objMail.ExpiryTime = objMail.ReceivedTime + 4
objMail.Save
End If
End If
End Sub
Private Sub DeleteEmailsFromSpecificSenderAfterXDays()
Dim strFilter As String
Dim objExpiredItems As Outlook.Items
Dim objExpiredMail As Outlook.MailItem
strFilter = "[ExpiryTime] <= " & Chr(34) & Now & Chr(34)
'Get all expired items
Set objExpiredItems = objInboxItems.Restrict(strFilter)
For i = objExpiredItems.Count To 1 Step -1
If objExpiredItems(i).Class = olMail Then
Set objExpiredMail = objExpiredItems(i)
'Auto delete expired emails from the specific sender
If objExpiredMail.SenderEmailAddress = "bob_black@datanumen.com" Then
objExpiredMail.Delete
End If
End If
Next
End Sub
- 그 후, 입술tart Outlook에서이 매크로를 활성화합니다.
- 그 이후로 특정 발신자가 보낸 새 이메일이 Inbox에 도착할 때마다 특정 만료 시간 (수신 후 특정 날짜)이 할당됩니다.
- 그런 다음 매번tart Outlook, Outlook은 특정 발신자로부터 만료 된 메일을 자동으로 확인하고 삭제합니다.
손상 후 Outlook 데이터 복원
Outlook에서 다양한 오류와 문제가 발생했을 수 있습니다. 그렇다면 Outlook 손상에 직면 한 적이 있습니까? 예를 들어 Outlook을 자주 잘못 종료하면 PST 파일이 손상되는 경향이 있습니다. 일반적으로 이러한 경우 백업에서 Outlook 데이터를 검색하도록 선택할 수 있습니다. 또는 사용할 수 있습니다 받은 편지함 수리 도구 또는 다음과 같은 신뢰할 수있는 외부 도구 DataNumen Outlook Repair.
저자 소개 :
Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL 복구 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM


