Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i drosi nodiadau lluosog i anfon negeseuon e-bost ar wahân ar unwaith mewn Outlook?

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

Trosi nodiadau lluosog i anfon negeseuon e-bost ar wahân ar unwaith gyda chod VBA


Trosi nodiadau lluosog i anfon negeseuon e-bost ar wahân ar unwaith gyda chod VBA

I greu nifer o negeseuon e-bost ar wahân ar sail cynnwys y nodiadau, rhowch y cod VBA canlynol:

1. Ewch i'r panel Nodiadau, ac yna dewiswch y nodiadau yr ydych am eu trosi i negeseuon e-bost.

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

3. Ac yna, cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd:

Cod VBA: Trosi nodiadau lluosog i anfon negeseuon e-bost 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 negeseuon e-bost, cliciwch OK, gweler y sgrin:

doc newid nodiadau i negeseuon e-bost 1

5. Ac yna, mae'r holl nodiadau a ddewiswyd wedi cael eu trosi i negeseuon e-bost fel a ganlyn:

doc newid nodiadau i negeseuon e-bost 2



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.