Outlook’ta e-posta gönderirken görevi otomatik olarak nasıl oluşturursunuz?

Bazen, Outlook’ta bir e-posta gönderirken bu e-postayla ilişkili bir görevi otomatik olarak oluşturmanız gerekebilir. İşte bunu hızlıca yapmanıza yardımcı olacak pratik bir yöntem.

Outlook'ta VBA ile e-posta gönderirken görevi otomatik olarak oluşturun

---

Outlook'ta VBA ile e-posta gönderirken görevi otomatik olarak oluşturun

Aşağıdaki VBA kodu sayesinde, Outlook’ta gönderdiğiniz bir e-postaya dayalı olarak otomatik olarak görev oluşturabilirsiniz. Lütfen aşağıdaki adımları uygulayın.

1. Outlook'u başlatın ve "Microsoft Visual Basic for Applications" penceresini açmak için "Alt" + "F11" tuşlarına basın.

2. "Microsoft Visual Basic for Applications" penceresinde, aşağıdaki VBA kodunu "ThisOutlookSession" kod penceresine yapıştırın.

VBA kodu: Outlook'ta e-posta gönderirken görevi otomatik olarak oluştur

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

Not: Mesaj alıcıları ve mesaj gövdesi otomatik olarak görevin içeriğine eklenecektir. Görevin Başlangıç Tarihi, mesajın gönderildiği tarih olacak ve görev 3 gün içinde tamamlanacaktır. Görevle ilgili hatırlatma ise bir gün sonra sabah 9’da yapılacaktır. İhtiyacınıza göre bu ayarları değiştirebilirsiniz.

3. Kodu kaydedin ve Microsoft Visual Basic for Applications penceresinden çıkmak için "Alt" + "Q" tuşlarına basın.

4. Bundan sonra yeni bir e-posta veya yanıt penceresinde "Gönder" düğmesine tıkladığınızda, aşağıdaki ekran görüntüsünde gösterildiği gibi bir "Görev Oluştur" iletişim kutusu açılacaktır. E-postayı gönderip görevi otomatik olarak oluşturmak için "Evet", görev oluşturmadan e-postayı göndermek için ise "Hayır" seçeneğine tıklayın.