Cum se convertesc mai multe note în e-mailuri separate simultan în Outlook?

Uneori, poate doriți să creați e-mailuri noi separate cu conținutul notelor din Outlook. În mod normal, puteți trage toate notele în pictograma Mail din panoul de navigare, dar toate notele vor fi inserate într-un singur e-mail. Cum ați putea converti mai multe note în e-mailuri noi separat în Outlook?

Convertiți mai multe note în e-mailuri separate simultan cu codul VBA

Convertiți mai multe note în e-mailuri separate simultan cu codul VBA

Pentru a crea mai multe e-mailuri separate pe baza conținutului notelor, vă rugăm să aplicați următorul cod VBA:

1. Accesați panoul Note, apoi selectați notele pe care doriți să le convertiți în e-mailuri.

2. Apoi, țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

3. Apoi, faceți clic Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis:

Cod VBA: convertiți mai multe note în e-mailuri separate simultan:

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. Apoi apăsați F5 pentru a rula acest cod și apare o casetă de mesaj pentru a vă reaminti dacă doriți să convertiți notele în e-mailuri, faceți clic pe OK, vezi captura de ecran:

doc convertiți notele în e-mailuri 1