Skip to main content

Conas nótaí iolracha a thiontú go ríomhphoist ar leithligh in Outlook ag an am céanna? 

Uaireanta, b’fhéidir gur mhaith leat ríomhphoist nua ar leithligh a chruthú le hinneachar na nótaí in Outlook. De ghnáth, is féidir leat na nótaí go léir a tharraingt isteach san íocón Mail i bpána nascleanúna, ach cuirfear na nótaí go léir isteach in aon ríomhphost amháin. Conas a d’fhéadfá nótaí iolracha a thiontú go ríomhphoist nua ar leithligh in Outlook?

Tiontaigh nótaí iolracha chuig ríomhphoist ar leithligh ag an am céanna le cód VBA


Tiontaigh nótaí iolracha chuig ríomhphoist ar leithligh ag an am céanna le cód VBA

Chun iliomad ríomhphoist ar leithligh a chruthú bunaithe ar ábhar na nótaí, cuir an cód VBA seo a leanas i bhfeidhm:

1. Téigh go dtí an phána Nótaí, agus ansin roghnaigh na nótaí a theastaíonn uait a thiontú go ríomhphoist.

2. Ansin, coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte:

Cód VBA: Tiontaigh nótaí iolracha go ríomhphoist ar leithligh ag an am céanna:

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tagann bosca teachtaireachta amach le cur i gcuimhne duit más mian leat nótaí a thiontú go ríomhphoist, cliceáil le do thoil OK, féach ar an scáileán:

doc nótaí a thiontú go ríomhphoist 1

5. Ansin, athraíodh na nótaí roghnaithe go ríomhphoist mar a thaispeántar an scáileán a leanas:

doc nótaí a thiontú go ríomhphoist 2


Uirlisí Táirgiúlachta Oifige is Fearr

Kutools le haghaidh Outlook - Níos mó ná 100 Gnéithe cumhachtacha chun do Outlook a shárú

🤖 Cúntóir Ríomhphoist AI: Ríomhphoist pro toirt le draíocht AI - aon-cliceáil chun freagraí genius, ton foirfe, máistreacht ilteangach. Trasfhoirmigh ríomhphost gan stró! ...

📧 Uathoibriú Ríomhphoist: As Oifig (Ar fáil do POP agus IMAP)  /  Sceideal Seol Ríomhphoist  /  Auto CC/BCC de réir Rialacha Agus Ríomhphost á Sheoladh  /  Auto Ar Aghaidh (Ardrialacha)   /  Beannacht Auto Cuir leis   /  Scoilt Ríomhphoist Ilfhaighteoirí go huathoibríoch i dTeachtaireachtaí Aonair ...

📨 Bainistíocht Ríomhphost: Ríomhphoist a Athghairm go héasca  /  Bloc Ríomhphoist Scam ag Ábhair agus Daoine Eile  /  Scrios Ríomhphoist Dúblacha  /  Cuardach Casta  /  Comhdhlúthaigh Fillteáin ...

📁 Ceangaltáin ProSábháil Baisc  /  Baisc Dícheangail  /  Comhbhrú Baisc  /  Auto Sábháil   /  Auto Dícheangail  /  Comhbhrúite Auto ...

🌟 Draíocht Chomhéadain: 😊Níos mó Emojis Pretty and Cool   /  Treisiú Do Tháirgiúlacht Outlook le Radhairc Tabbed  /  Íoslaghdaigh Outlook In ionad Deiridh ...

???? Wonders aon-cliceáil: Freagair Gach Duine le Ceangaltáin Isteach  /   Ríomhphoist Frith-Iascaireachta  /  🕘 Taispeáin Crios Ama an tSeoltóra ...

👩🏼‍🤝‍👩🏻 Teagmhálaithe & Féilire: Baisc Cuir Teagmhálacha Ó Ríomhphoist Roghnaithe  /  Roinn Grúpa Teagmhála ar Ghrúpaí Aonair  /  Bain Meabhrúcháin Breithlá ...

Thar Gnéithe 100 Fan le do Thaiscéalaíocht! Cliceáil Anseo le Tuilleadh Amach.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations