Outlook 에서 이메일을 보낼 때 자동으로 작업을 생성하려면 어떻게 하나요？

때로는 Outlook 에서 이메일을 보낼 때 해당 이메일을 기반으로 작업을 자동으로 생성해야 할 수도 있습니다。 여기서는 이를 빠르게 수행할 수 있는 방법을 제공합니다。

VBA 를 사용하여 Outlook 에서 이메일 전송 시 자동으로 작업 생성하기

---

VBA 를 사용하여 Outlook 에서 이메일 전송 시 자동으로 작업 생성하기

아래의 VBA 코드를 사용하면 Outlook 에서 이메일을 보내는 시점에 자동으로 작업을 생성할 수 있습니다。 다음 단계를 따라 주세요。

1. Outlook 을 실행한 후 「Alt」 + “F11"을 눌러 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 「Microsoft Visual Basic for Applications」 창에서 아래 VBA 코드를 「ThisOutlookSession」 코드 창에 복사합니다。

VBA 코드: Outlook 에서 이메일 전송 시 자동으로 작업 생성하기

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

참고: 메시지 수신자와 메시지 본문은 자동으로 작업 본문에 추가됩니다. 작업의 시작일은 메시지 발송일이며, 작업 마감일은 3 일 후로 설정됩니다. 작업 알림은 하루 후 오전 9 시에 표시됩니다。 필요에 따라 이 설정을 변경할 수 있습니다。

3. 코드를 저장한 후 「Alt」 + 「Q」를 눌러 Microsoft Visual Basic for Applications 창을 닫습니다。

4. 이제 새 이메일 또는 답장 창에서 「보내기」 버튼을 클릭하면 아래 스크린샷과 같이 「작업 만들기」 대화상자가 나타납니다。 「예」를 클릭하면 이메일을 보내고 작업을 자동으로 생성하며， 「아니요」를 클릭하면 작업 없이 이메일만 보냅니다。