Outlook: 응답이 없는 경우 이메일을 자동으로 다시 보내는 방법
동료나 협력 파트너 또는 누군가에게 이메일을 보내고 급하게 답변이 필요한 경우 지정된 시간까지 응답이 오지 않으면 자동 이메일 재전송 설정을 할 수 있습니다.
응답이 없는 경우 미리 알림 및 VBA를 사용하여 자동 재전송 설정
- 이메일을 자동화하세요 자동 CC / BCC, 자동 전달 규칙에 따라; 보내다 자동 회신 (부재중) 교환서버 필요없이...
- 다음과 같은 알림을 받으세요 BCC 경고 BCC 목록에 있는 동안 모든 항목에 답장할 때 첨부 파일 누락시 알림 잊어버린 첨부파일을 위해...
- 이메일 효율성 향상 첨부 파일을 포함하여 회신(전체), 서명이나 제목에 인사말이나 날짜 및 시간 자동 추가, 여러 이메일에 답장하기...
- 이메일 전송을 간소화하세요 리콜 이메일, 부착 도구 (모두 압축, 모두 자동 저장...), 중복 제거및 빠른 보고서...
응답이 없는 경우 미리 알림 및 VBA를 사용하여 자동 재전송 설정
파트 1: 지정된 시간에 미리 알림 설정
1. 응답이 없으면 재전송하려는 이메일(보낸 편지함 폴더에서)을 마우스 오른쪽 버튼으로 클릭하고 팝업되는 컨텍스트 메뉴에서 후속 > 알림 추가.
2. 터지는 관습 대화, 유지 알림 확인란을 선택한 다음 아래 드롭다운 상자에서 응답이 도착하기 전에 원하는 날짜와 시간을 선택하고 상자에 날짜와 시간을 직접 입력할 수도 있습니다. 딸깍 하는 소리 OK.
파트 2: 지정된 시간에 응답이 없으면 VBA를 삽입하여 전자 메일을 다시 보냅니다.
3. 프레스 다른 + F11 활성화하는 키 응용 프로그램 용 Microsoft Visual Basic 창.
4. 더블 클릭 ThisOutlook세션 FBI 증오 범죄 보고서 프로젝트 – 프로젝트1 창에서 빈 스크립트를 만들고 아래 VBA 코드를 복사하여 빈 스크립트에 붙여넣습니다.
VBA: 응답이 없으면 이메일을 다시 보냅니다.
Public WithEvents GInboxItems As Outlook.Items
'UpdatebyExtendoffice20220413
Private Sub Application_Startup()
Dim xInboxFld As Folder
Set xInboxFld = Application.Session.GetDefaultFolder(olFolderInbox)
Set GInboxItems = xInboxFld.Items
End Sub
'Judge
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
Dim xSentItems As Outlook.Items
Dim xMail As MailItem
Dim i As Long
Dim xSubject As String
Dim xItemSubject As String
Dim xSendTime As String
On Error Resume Next
Set xSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
If Item.Class <> olMail Then Exit Sub
For i = xSentItems.Count To 1 Step -1
If xSentItems.Item(i).Class = olMail Then
Set xMail = xSentItems.Item(i)
xSubject = LCase(xMail.Subject)
xSendTime = xMail.SentOn
xItemSubject = LCase(Item.Subject)
If (xItemSubject = "re: " & xSubject) Or (InStr(xItemSubject, xSubject) > 0) Then
If Item.SentOn > xSendTime Then
With xMail
.ClearTaskFlag
.ReminderSet = False
.Save
End With
End If
End If
End If
Next i
End Sub
'Reminder
Private Sub Application_Reminder(ByVal Item As Object)
Dim xPrompt As String
Dim xResponse As Integer
Dim xFollowUpMail As Outlook.MailItem
Dim xRcp As Recipient
On Error Resume Next
'Resend
If (Item.Class <> olMail) Then Exit Sub
xPrompt = "You haven't yet recieved the reply of " & Chr(34) & Item.Subject & Chr(34) & " within your expected time. Do you want to send a follow-up notification email?"
xResponse = MsgBox(xPrompt, vbYesNo + vbQuestion, "Kutools for Outlook")
If xResponse = vbNo Then Exit Sub
Set xFollowUpMail = Application.CreateItem(olMailItem)
With xFollowUpMail
For Each xRcp In Item.Recipients
.Recipients.Add (xRcp.Address)
Next
.Recipients.ResolveAll
.Subject = "Follow Up: " & Chr(34) & Item.Subject & Chr(34)
.Body = "Please respond to my email " & Chr(34) & Item.Subject & Chr(34) & "as soon as possible"
.Attachments.Add Item
.Display
End With
End Sub
5. 코드를 저장한 다음 기본 인터페이스로 돌아가서 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 옵션 그리고 일에서전자 Outlook 옵션 창을 클릭합니다 보안 센터 왼쪽 창에서 보안 센터 설정 를 사용하려면 보안 센터 창문. 딸깍 하는 소리 매크로 설정 그리고 확인하십시오 모든 매크로 사용 (권장하지 않음, 잠재적으로 위험한 코드 실행 가능) 옵션은 오른쪽 섹션에서 선택됩니다. 딸깍 하는 소리 OK > OK.
6. 이제 알림이 설정된 보낸 이메일이 지정된 시간이 되었을 때 응답이 없으면 알림을 보내기 위해 이메일을 다시 보낼지 알려주는 팝업 대화 상자가 나타납니다.
7. 클릭 가능, 메시지 창이 뜨며 이전 이메일을 첨부하고 본문을 다시 편집하고 클릭할 수 있습니다. 전송 이메일을 다시 보내려면..
8. 클릭 아니, 알림이 삭제됩니다.
주의 사항: 이메일이 지정된 시간 전에 회신된 경우 VBA에서 알림을 제거합니다.
최고의 사무 생산성 도구
Outlook 용 Kutools - 귀하의 전망을 강화하는 100개 이상의 강력한 기능
🤖 AI 메일 도우미: AI 마법이 적용된 즉각적인 전문가 이메일 - 원클릭으로 천재적인 답변, 완벽한 어조, 다국어 숙달이 가능합니다. 손쉽게 이메일을 변환하세요! ...
📧 이메일 자동화: 부재중(POP 및 IMAP에서 사용 가능) / 이메일 보내기 예약 / 이메일 발송 시 규칙에 따른 자동 참조/숨은참조 / 자동 전달(고급 규칙) / 인사말 자동 추가 / 여러 수신자 이메일을 개별 메시지로 자동 분할 ...
📨 이메일 관리: 이메일을 쉽게 기억할 수 있습니다. / 제목 및 기타 사기 이메일 차단 / 중복 이메일 삭제 / 고급 검색 / 폴더 통합 ...
📁 첨부 파일 프로: 일괄 저장 / 일괄 분리 / 일괄 압축 / 자동 저장 / 자동 분리 / 자동 압축 ...
🌟 인터페이스 매직: 😊더 예쁘고 멋진 이모티콘 / 탭 보기로 Outlook 생산성 향상 / 문을 닫는 대신 전망을 최소화하세요 ...
???? 원클릭 불가사의: 수신 첨부 파일과 함께 전체 회신 / 피싱 방지 이메일 / 🕘발신자의 시간대 표시 ...
👩🏼🤝👩🏻 연락처 및 캘린더: 선택한 이메일에서 연락처 일괄 추가 / 연락처 그룹을 개별 그룹으로 분할 / 생일 알림 제거 ...
이상 100 특징 당신의 탐험을 기다려주세요! 더 알아보려면 여기를 클릭하세요.