आउटलुक में एक साथ कई नोट्स को अलग-अलग ईमेल में कैसे बदलें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-10-22

कभी-कभी, आप आउटलुक में नोट्स की सामग्री के साथ अलग नए ईमेल बनाना चाह सकते हैं। आम तौर पर, आप सभी नोट्स को नेविगेशन फलक में मेल आइकन में खींच सकते हैं, लेकिन सभी नोट्स एक ही ईमेल में डाले जाएंगे। आप आउटलुक में अलग-अलग नोट्स को नए ईमेल में कैसे परिवर्तित कर सकते हैं?

VBA कोड के साथ एक साथ कई नोट्स को अलग-अलग ईमेल में बदलें

VBA कोड के साथ एक साथ कई नोट्स को अलग-अलग ईमेल में बदलें

नोट्स की सामग्री के आधार पर कई अलग-अलग ईमेल बनाने के लिए, कृपया निम्नलिखित VBA कोड लागू करें:

1. नोट्स फलक पर जाएँ, और फिर उन नोट्स का चयन करें जिन्हें आप ईमेल में कनवर्ट करना चाहते हैं।

2. फिर, दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

3. और फिर, क्लिक करें सम्मिलित करें > मॉड्यूल, खुले हुए रिक्त मॉड्यूल में नीचे दिए गए कोड को कॉपी और पेस्ट करें:

वीबीए कोड: एक साथ कई नोट्स को अलग-अलग ईमेल में बदलें:

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। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक संदेश बॉक्स आपको याद दिलाने के लिए पॉप अप होगा यदि आप नोट्स को ईमेल में कनवर्ट करना चाहते हैं, तो कृपया क्लिक करें OK, स्क्रीनशॉट देखें:

दस्तावेज़ नोट्स को ईमेल में बदलें 1