Note: The other languages of the website are Google-translated. Back to English

Sut i drosi nodiadau lluosog i e-byst ar wahân ar unwaith yn Outlook? 

Weithiau, efallai yr hoffech chi greu e-byst newydd ar wahân gyda chynnwys y nodiadau yn Outlook. Fel rheol, gallwch lusgo'r holl nodiadau i mewn i'r eicon Post mewn cwarel llywio, ond bydd yr holl nodiadau'n cael eu mewnosod mewn un e-bost sengl. Sut allech chi drosi nodiadau lluosog i e-byst newydd ar wahân yn Outlook?

Trosi nodiadau lluosog i e-byst ar wahân ar unwaith gyda chod VBA


Trosi nodiadau lluosog i e-byst ar wahân ar unwaith gyda chod VBA

I greu nifer o negeseuon e-bost ar wahân yn seiliedig ar gynnwys y nodiadau, defnyddiwch y cod VBA canlynol:

1. Ewch i'r cwarel Nodiadau, ac yna dewiswch y nodiadau rydych chi am eu trosi i e-byst.

2. Yna, dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored:

Cod VBA: Trosi nodiadau lluosog i e-byst ar wahân ar unwaith:

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch negeseuon yn ymddangos i'ch atgoffa os ydych chi am drosi nodiadau i e-byst, cliciwch OK, gweler y screenshot:

doc trosi nodiadau i e-byst 1

5. Ac yna, mae'r holl nodiadau a ddewiswyd wedi'u trosi'n e-byst fel y dangosir y llun isod:

doc trosi nodiadau i e-byst 2


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir