Outlook'ta birden fazla notu aynı anda ayrı e-postalara nasıl dönüştürebilirim?

Bazen, Outlook’ta notların içeriğini kullanarak ayrı yeni e-postalar oluşturmak isteyebilirsiniz. Normalde tüm notları Gezinme bölmesindeki Posta simgesine sürükleyebilirsiniz; ancak bu şekilde tüm notlar tek bir e-postaya eklenir. Peki, birden fazla notu Outlook’ta ayrı ayrı yeni e-postalara nasıl dönüştürebilirsiniz?

Birden fazla notu VBA koduyla aynı anda ayrı e-postalara dönüştürme

---

Birden fazla notu VBA koduyla aynı anda ayrı e-postalara dönüştürme

Notların içeriklerine dayalı olarak birden fazla ayrı e-posta oluşturmak için lütfen aşağıdaki VBA kodunu uygulayın:

1. Notlar bölmesine gidin ve e-postaya dönüştürmek istediğiniz notları seçin.

2. Ardından, ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

3. Ardından Ekle > Modül seçeneğine tıklayın ve aşağıda verilen kodu açılan boş modüle kopyalayıp yapıştırın:

VBA kodu: Birden fazla notu aynı anda ayrı e-postalara dönüştürme:

Sub BatchCreateEmailsFromNotes()
    Dim xSelection As Outlook.Selection
    Dim i As Long
    Dim xItem As Object
    Dim xNote As Outlook.NoteItem
    Dim xMail As Outlook.MailItem
    Dim xYesNo As Integer
    On Error Resume Next
    Set xSelection = Outlook.Application.ActiveExplorer.Selection
    If xSelection Is Nothing Or xSelection.Count = 0 Then Exit Sub
    xYesNo = MsgBox("Are you sure to convert the selected notes to emails?", vbOKCancel + vbQuestion, "Kutools for Outlook")
    If xYesNo = VbMsgBoxResult.vbCancel Then
      Exit Sub
    End If
    For Each xItem In xSelection
        If xItem.Class = olNote Then
           Set xNote = xItem
           Set xMail = Outlook.Application.CreateItem(OlMailItem)
           With xMail
                .Subject = "Note: " & Mid(xNote.Body, 1, 10)
                .Body = xNote.Body
                .Attachments.Add xNote
                .Display
           End With
        End If
     Next
End Sub

4. Ardından bu kodu çalıştırmak için F5 tuşuna basın; notları e-postalara dönüştürmek istediğinizi onaylamanız için bir ileti kutusu açılacaktır. Devam etmek için lütfen Tamam düğmesine tıklayın (ekran görüntüsüne bakın):

5. Ardından, seçili tüm notlar aşağıdaki ekran görüntüsünde gösterildiği gibi e-postalara dönüştürüldü: