Note: The other languages of the website are Google-translated. Back to English
로그인  \/ 
x
or
x
회원가입  \/ 
x

or

Outlook에서 일정 반복 이메일을 보내는 방법은 무엇입니까?

Microsoft Outlook에서는 반복되는 약속, 회의 또는 작업을 다른 사람에게 쉽게 보낼 수 있습니다. 그러나 약속, 회의 또는 작업없이 일정 반복 이메일 만 보내고 싶다면 어떻게 할 수 있습니까? 불행히도 Outlook은 일정 반복 이메일을 보내는 기능을 제공하지 않지만 자습서에서는 Outlook에서 일정 반복 이메일을 보내는 방법을 보여줍니다.

VBA 코드로 Outlook에서 일정 반복 이메일 보내기


VBA 코드로 Outlook에서 일정 반복 이메일 보내기

이 튜토리얼은 네 부분으로 나뉘며,이 부분을 마친 후에는 일정 반복 이메일을 성공적으로 보낼 수 있습니다. 다음과 같이하십시오.

첫 번째 부분 : 새 약속 만들기

1. 다음으로 이동하십시오. 학교 캘린더 클릭하여보기 학교 캘린더 에서 탐색 창을 클릭 한 다음 클릭하여 새 약속을 만듭니다. 신임 아래에 Home 탭.

3. 에서 약속 아래의 대화 약속 탭. 다음을 수행해야합니다.

A : 제목 B : 수신자의 이메일 주소를 촬영장소 대여
C : 구성 시작 시간 그리고 종료 시간 D : 아래에서 미리 알림을 선택합니다. 알림 드롭 다운 목록.
15 분을 선택하면 이메일이 전송 될 때 15 분 일찍 알려줍니다.
E : 약속 본문을 작성하십시오.

주의 사항다음 약속 주제 되풀이되는 이메일 제목이됩니다. 그리고 임명 기관 수신자가 이메일을 수신하면 반복 이메일 본문이됩니다.

두 번째 부분 : 새 범주 만들기

이제 ""라는 새 범주를 만들어야합니다.일정 반복 이메일 보내기”다음과 같습니다.

1. 에서 약속 대화 상자를 클릭하십시오 분류 > 전체카테고리 에서 태그 아래 그룹 약속 탭.

2. 때 색상 카테고리 대화 상자가 나타나면 클릭하십시오 신규클래스 단추. 에서 새 카테고리 추가 대화 상자에서“일정 반복 이메일 보내기" 안에 이름 들; 그런 다음 Color 드롭 다운 목록. 그런 다음 OK.

3. 그러면 "일정 반복 이메일 보내기”범주가 나열되면 확인란을 선택한 다음 OK 버튼을 클릭합니다.

세 번째 부분 : 반복 설정

이제 약속의 반복을 설정할 시간입니다.

1. 클릭 회귀 에서 옵션 아래 그룹 약속 탭. 스크린 샷보기 :

2. 에서 약속 반복 대화 상자, 구성 회귀 무늬. 종료 시간이 필요한 경우 아래에서 구성하십시오. 재발 범위. 그런 다음 OK.

3.로 돌아갈 때 약속 대화 상자를 클릭하십시오 저장 후 닫기 단추. 스크린 샷보기 :

마지막 : 일정 반복 이메일을 보내기 위해 VBA 코드 사용

1. 누르십시오 다른 + F11 를 열려면 응용 프로그램 용 Microsoft Visual Basic 대화.

2. 더블 클릭 Project1 > Microsoft Outlook 개체 > ThisOutlookSession 왼쪽 창에서. 스크린 샷보기 :

3. 다음 VBA 코드를 복사하여 VBA 편집기에 붙여 넣습니다. 그런 다음 찜하기 버튼을 클릭합니다.

VBA : 일정 반복 이메일 보내기

Private Sub Application_Reminder(ByVal Item As Object)
'Updated by Extendoffice 20200522
Dim xMailItem As MailItem
Dim xItemDoc As Word.Document
Dim xNewDoc As Word.Document
Dim xFldPath As String
On Error Resume Next
If Item.Class <> OlObjectClass.olAppointment Then Exit Sub
If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
Set xItemDoc = Item.GetInspector.WordEditor
xFldPath = CStr(Environ("USERPROFILE"))
xFldPath = xFldPath & "\MyReminder"
If Dir(xFldPath, vbDirectory) = "" Then
    MkDir xFldPath
End If
xFldPath = xFldPath & "\AppointmentBody.xml"
xItemDoc.SaveAs2 xFldPath, wdFormatXMLDocument ' wdFormatXML
Set xNewDoc = xMailItem.GetInspector.WordEditor
VBA.DoEvents
xNewDoc.Application.Selection.HomeKey
xNewDoc.Activate
xNewDoc.Application.Selection.InsertFile FileName:=xFldPath, Attachment:=False
With xMailItem
    .To = Item.Location
    .Recipients.ResolveAll
    .Subject = Item.Subject
    .Send
End With
Set xMailItem = Nothing
VBA.Kill xFldPath
End Sub

4. 클릭 도구 > 참조 를 열려면 참조 -프로젝트 대화. 대화 상자에서 Microsoft Word 개체 라이브러리 옵션을 클릭하고 OK 버튼을 클릭합니다.

5. 누르세요 다른 + Q 닫는 동시에 키 응용 프로그램 용 Microsoft Visual Basic 창.

알림 팝업이 나타나면 첫 번째 부분의 위치 필드에 입력 한 수신자에게 이메일이 자동으로 전송됩니다. 그런 다음 알림닫기 에서 알림 대화. 그리고 이메일은이 시간에 매일 반복적으로 전송됩니다. 스크린 샷보기 :

주의 사항: VBA 코드는 Outlook 2010 이상 버전에서 성공적으로 테스트되었습니다.


Outlook 용 Kutools-Outlook에 100 개의 고급 기능을 제공하고 작업을 훨씬 더 쉽게 만듭니다!

  • 자동 CC / BCC 이메일을 보낼 때 규칙에 따라; 자동 전달 사용자 정의에 의한 여러 이메일; 자동 회신 교환 서버없이 더 많은 자동 기능 ...
  • BCC 경고 -모두 답장하려고 할 때 메시지 표시 메일 주소가 숨은 참조 목록에있는 경우; 첨부 파일 누락시 알림및 기타 알림 기능 ...
  • 메일 대화에서 모든 첨부 파일로 (전체) 회신; 많은 이메일에 답장 초 안에; 인사말 자동 추가 대답 할 때; 제목에 날짜 추가 ...
  • 첨부 도구 : 모든 메일의 모든 첨부 파일 관리, 자동 분리, 모두 압축, 모두 이름 바꾸기, 모두 저장 ... 빠른 보고서, 선택한 메일 수...
  • 강력한 정크 메일 관습에 의해; 중복 메일 및 연락처 제거... Outlook에서 더 스마트하고 빠르며 더 나은 작업을 수행 할 수 있습니다.
샷 kutools 전망 kutools 탭 1180x121
샷 kutools 전망 kutools 플러스 탭 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    john · 2 years ago
    This is limited on the number of email addresses you can add in the locations. Any work arounds?
  • To post as a guest, your comment is unpublished.
    Kevin · 2 years ago
    This still works. Just tested on Office 2016/ O365. Make sure macros are enabled. Make sure you are pasting the code under "application" and "Reminder" as shown in the screen shot.
  • To post as a guest, your comment is unpublished.
    anitanashgh · 2 years ago
    I am getting a "compile error: invalid outside procedure" every time ANY reminder pops up, not just the one's for the scheduled send. Also, my scheduled send doesn't work. Any ideas? I copied and pasted the code from above. Thanks.
  • To post as a guest, your comment is unpublished.
    Anita · 2 years ago
    Not working for me.... :(
  • To post as a guest, your comment is unpublished.
    Kathrin · 2 years ago
    It didn't work for me either :/.Is there any update available?
  • To post as a guest, your comment is unpublished.
    Simon Hogh · 2 years ago
    This still works? :D
  • To post as a guest, your comment is unpublished.
    Simon · 2 years ago
    Does this still work? Unfortunately it doesn#t work for me...
  • To post as a guest, your comment is unpublished.
    SS · 2 years ago
    Does this go out as an invite? Does the recipient have to accept the invite?
  • To post as a guest, your comment is unpublished.
    Johan · 2 years ago
    If I want multiple of these emails, each with a seperate category/calendar activity like "Send Schedule Recurring Email", "Send Schedule Recurring Email 2" & "Send Schedule Recurring Email 3" etc. How would I go about doing that? Do I copy this code all together for each category/calendar activity, or just add each "Send Schedule Recurring Email x" in the existing code? If so, how do I seperate them? Comma? < > ?
  • To post as a guest, your comment is unpublished.
    DTM · 2 years ago
    Just wanted to add my Thanks out here.
    I was struggling with my own version of this and found this and others.
    This is the best version of this I saw. Specifically what I like about it is - this works if you have multiple different emails you want to send. Because, it does not use "hardcoded" variables like the body or emails addresses pulling them from the appointment detail, you do not need to create different micros for each email or edit the code for every little detail that might change. You can even use this for non-reoccurring emails that you want o schedule (yes, you could do a delayed send). that's all controlled by the reoccurrence of the appointment.
    The one con is like any macro based solution, outlook does have to be open (running).

    A couple changes someone might want to make.
    If you do not want replies going to everyone who got the email, change .To - to .BCC.
    If you want to Review or make miner changes before it is sent, change .send to .display
  • To post as a guest, your comment is unpublished.
    Mel · 2 years ago
    I tried this but I cannot get my tests to work.
  • To post as a guest, your comment is unpublished.
    Chowa · 2 years ago
    Hi,
    Thank you so much. It works for Outlook 2016, the version we use at our company.
    I have a question. What do I need to add to the VBA so that it will also grab pictures? I included picture/graphics in my Body. The email grabbed text only.

    Please help.
    Ann
  • To post as a guest, your comment is unpublished.
    Guy · 2 years ago
    For those it's not working - You need to enable Macro commands on Outlook first
  • To post as a guest, your comment is unpublished.
    Laurie · 2 years ago
    Is it necessary to attach a reminder to trigger the email?
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Chris Good Day,
    The code has been updated in the post. Please try it again.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Anonymouse Good Day,
    The code has been updated in the post. Please try it again.
  • To post as a guest, your comment is unpublished.
    Kristal · 3 years ago
    @Tracy Make another Distribution list that contains/points to the other Distribution Lists that you already have setup that you want to include.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @tallgingerone God Day,
    Any question about Outlook, please don’t hesitate to post in our forum: https://www.extendoffice.com/forum.html.
    You will get more supports about Outlook from our Outlook professional.
  • To post as a guest, your comment is unpublished.
    tallgingerone · 3 years ago
    Hi there, my appointment did not send. I am unsure if there is an issue with the code I am using. I want to send the email to 6 addresses and have separated them with semi colons; do I need to put the actual email addresses in to the code? Here is the code I used:



    Private Sub Application_Reminder(ByVal Item As Object)
    Dim MItem As MailItem
    Set MItem = Application.CreateItem(olMailItem)
    If Item.MessageClass <> "IPM.Appointment" Then Exit Sub
    If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
    MItem.To = "single or multiple emails separated by semi colon ";" "
    MItem.CC = "single or multiple emails separated by semi colon ";" "

    MItem.Subject = Item.Subject
    MItem.Body = Item.Body
    With MItem
    .Attachments.Add "network path of the file to be attached. eg: \\abc\def\ghi.doc"
    .Display

    End With
    MItem.Send
    Set MItem = Nothing
    End Sub



    Can anyone advise? Thank you
  • To post as a guest, your comment is unpublished.
    Anonymouse · 3 years ago
    It didnt work for me
  • To post as a guest, your comment is unpublished.
    Chris · 3 years ago
    Same here, Office 2010 and 2016. Works great when setting up the First occurance, does not work when the next recurring reminder triggers the next week.
  • To post as a guest, your comment is unpublished.
    tmas · 3 years ago
    The first automatic one of the series worked but no more have
  • To post as a guest, your comment is unpublished.
    Malcolm · 3 years ago
    I mean "dismiss"
  • To post as a guest, your comment is unpublished.
    Malcolm · 3 years ago
    Nothing is happening after I click submit.
  • To post as a guest, your comment is unpublished.
    AndrewR · 3 years ago
    Very useful, thank you for taking the time to create this.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Newt Hey,
    The code is now updated in the post, please try again! Thank you!
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @CLAYTON Good Day,
    The <> does not effect the sending. Actually there is something wrong with the VBA code, and the code now is updated in the post. Please try again. Thank you!
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Mani Dear Nani,
    The code has been updated to be compatible with Outlook 2013.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @Marc Dear Mac,
    The code has been updated to be compatible with Outlook 2016.
  • To post as a guest, your comment is unpublished.
    CLAYTON · 3 years ago
    I do not receive an email after I hit DISMISS ... I did use <> in the location field - is that correct?
  • To post as a guest, your comment is unpublished.
    engyaogoh@gmail.com · 3 years ago
    Hi All,


    I have added code to dismiss reminder once it was fired, so that we would not accidentally click snooze and cause the email to be resend. Also, code was added so that the full formatted email body is copied (including picture and attachment). Hope the code below will resolve all your issues.


    Code as below:


    Dim WithEvents objReminders As Outlook.Reminders
    Private Sub Application_Reminder(ByVal Item As Object)
    Dim MItem As MailItem
    Set MItem = Application.CreateItem(olMailItem)
    If Item.MessageClass <> "IPM.Appointment" Then Exit Sub
    If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
    MItem.To = Item.Location
    MItem.CC = ""
    MItem.BCC = ""
    MItem.Subject = Item.Subject
    MItem.BodyFormat = olFormatHTML
    Item.GetInspector().WordEditor.Range.Copy
    MItem.GetInspector().WordEditor.Range.Paste
    MItem.Display
    MItem.Send
    Set MItem = Nothing
    End Sub

    Private Sub Application_Startup()
    Set objReminders = Application.Reminders
    End Sub
    Private Sub objReminders_ReminderFire(ByVal ReminderOBject As Reminder)

    If ReminderOBject.Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub

    ReminderOBject.Dismiss

    End Sub


    Regards,
    Engyaogoh
  • To post as a guest, your comment is unpublished.
    Newt · 3 years ago
    <HELP>

    hi I found out one.
    The first test of the code, it works properly.
    But I found out the next day to test, I found out it is not working anymore. (not sending the mail to the destination)


    I have tried the macro setting, remove categories, seem not working too.
  • To post as a guest, your comment is unpublished.
    GP · 3 years ago
    A lot of people have asked about CC and adding an attachment and sending the mail to multiple people. Please use the VBA code below in place of the one provided in the VBA code step above.



    Private Sub Application_Reminder(ByVal Item As Object)
    Dim MItem As MailItem
    Set MItem = Application.CreateItem(olMailItem)
    If Item.MessageClass <> "IPM.Appointment" Then Exit Sub
    If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
    MItem.To = "single or multiple emails separated by semi colon ";" "
    MItem.CC = "single or multiple emails separated by semi colon ";" "

    MItem.Subject = Item.Subject
    MItem.Body = Item.Body
    With MItem
    .Attachments.Add "network path of the file to be attached. eg: \\abc\def\ghi.doc"
    .Display

    End With
    MItem.Send
    Set MItem = Nothing
    End Sub
  • To post as a guest, your comment is unpublished.
    PAP · 3 years ago
    Works well for Outlook 365! Thank you for sharing the code!
  • To post as a guest, your comment is unpublished.
    Ahmad · 3 years ago
    @William Hi, How did you change the macro security settings in outlook and what did you change it to?
  • To post as a guest, your comment is unpublished.
    Mani · 3 years ago
    It is not working in Outlook 2013. Any help?
  • To post as a guest, your comment is unpublished.
    Gandhiyappan · 3 years ago
    if my outlook is closed then mail is not sent. Is there any way to make it even when my outlook is closed
  • To post as a guest, your comment is unpublished.
    Brian · 3 years ago
    @Kyle Sorry - I'm not fully understanding "Spec@Group" - If I create a group called "NetworkMeeting" and add all the people in that, would the address be NetworkMeeting@MyDomain.com?
  • To post as a guest, your comment is unpublished.
    Sara · 3 years ago
    What Happens if I want to CC people?
  • To post as a guest, your comment is unpublished.
    victor · 3 years ago
    @Andrei Buldus it's stopping because of the line.... If Item.Categories <> "Send Schedule Recurring Email" Then Exit Sub
    when you add the other category it is cuasing the exit sub.... maybe use if instr(1,item.categories,"Send Schedule Recurring Email") =0 then exit sub or something like that...
  • To post as a guest, your comment is unpublished.
    Marc · 3 years ago
    Getting "Syntax Error " in VBA window. Using Outlook 2016 on Windows8
  • To post as a guest, your comment is unpublished.
    Ajmal · 3 years ago
    I've setup multiple emails in outlook, how would it know to send it from?
  • To post as a guest, your comment is unpublished.
    Kyle · 3 years ago
    @Krystin Asked and answered above. You add a distribution list (Outlook Contact Group) and use @ in the group name i.e. 'Spec@Group'. Put all the people you like in that group.
  • To post as a guest, your comment is unpublished.
    Krystin · 3 years ago
    It will not let me add the amount of people I need to send too ?
  • To post as a guest, your comment is unpublished.
    michelle · 3 years ago
    @Sally did you ever get an answer on how to add an attachment? Thanks!
  • To post as a guest, your comment is unpublished.
    Andrei Buldus · 3 years ago
    Hey guys. This code works great but i have a little problem . The email i am trying to send is part of two categories : Send Message(the macro uses) and PROGRAMARI RED-TEAM. The macro works fine when i only add the Send Message category, but as soon as any other category is added the macro stops sending emails. Here is the code so far. Please help :P

    Private Sub Application_Reminder(ByVal Item As Object)
    Dim objMsg As MailItem
    Set objMsg = Application.CreateItem(olMailItem)

    'IPM.TaskItem to watch for Task Reminders
    If Item.MessageClass "IPM.Appointment" Then
    Exit Sub
    End If

    If Item.Categories "Send Message" Then
    Exit Sub
    End If

    objMsg.To = Item.Location
    objMsg.BCC = "andrei.buldus@promotor.ws"
    objMsg.Subject = "Instiintare expirare Autorizatie/Contract Service"
    objMsg.Body = "Buna ziua," & vbNewLine & vbNewLine & _
    "Conform bazei noastre de date, autorizatia/contractul de service, incheiat intre compania nostra si " + Item.Subject + " urmeaza sa expire in termen de 14 zile." & vbNewLine & _
    "Acest lucru este in atentia departamentului nostru Service, si urmeaza sa fiti contactati in cel mai scurt timp posibil pentru a stabili cursul actiunilor viitoare." & vbNewLine & vbNewLine & _
    "Va multumim pentru increderea acordata." & vbNewLine & _
    "Promotor Import Export S.R.L." & vbNewLine & vbNewLine & vbNewLine & _
    "Acesta este un mesaj automat."

    objMsg.Send

    Set objMsg = Nothing
    End Sub
  • To post as a guest, your comment is unpublished.
    Duane Cowperthwait · 4 years ago
    I need to know how\if you can attached an excel spreed sheet?
  • To post as a guest, your comment is unpublished.
    Tracy · 4 years ago
    @Kyle This worked well. Now I need the same email to go to multiple groups. Can anyone help?

    Private Sub Application_Reminder(ByVal Item As Object)

    Dim CF As Folder
    Set CF = Application.Session.GetDefaultFolder(olFolderContacts)

    Dim DLI As DistListItem
    Set DLI = CF.Items("GDL Group 1")

    Dim MItem As MailItem
    Set MItem = Application.CreateItem(olMailItem)
    If Item.MessageClass "IPM.Appointment" Then Exit Sub
    If Item.Categories "Recurring GDL Recert Email" Then Exit Sub
    MItem.To = DLI
    MItem.Subject = Item.Subject
    MItem.Body = Item.Body
    MItem.Send
    Set MItem = Nothing

    End Sub
  • To post as a guest, your comment is unpublished.
    Tracy · 4 years ago
    @alex Alex

    Mine shows up with the formatting stripped out too. How do we keep it?
  • To post as a guest, your comment is unpublished.
    Tracy · 4 years ago
    It sent fine, but it dropped all of the fancy formatting I have in my email body. How do I get it to keep this formatting???