Preskoči na glavno vsebino

Kako pretvoriti več zapiskov v ločena e-poštna sporočila hkrati v Outlooku? 

Avtor: Xiaoyang Zadnja sprememba: 2018-10-22

Včasih boste morda želeli ustvariti ločena nova e-poštna sporočila z vsebino zapiskov v Outlooku. Običajno lahko vse opombe povlečete v ikono Pošta v podoknu za krmarjenje, vendar bodo vse opombe vstavljene v eno samo e-poštno sporočilo. Kako lahko v Outlooku ločeno pretvorite več zapiskov v nova e-poštna sporočila?

Pretvorite več opomb v ločena e-poštna sporočila hkrati s kodo VBA


Pretvorite več opomb v ločena e-poštna sporočila hkrati s kodo VBA

Če želite na podlagi vsebine zapiskov ustvariti več ločenih e-poštnih sporočil, uporabite naslednjo kodo VBA:

1. Odprite podokno Opombe in nato izberite zapiske, ki jih želite pretvoriti v e-poštna sporočila.

2. Nato držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

3. In nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul:

Koda VBA: Pretvorite več zapiskov v ločena e-poštna sporočila hkrati:

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. Nato pritisnite F5 tipko za zagon te kode in odpre se okno s sporočilom, ki vas opozori, če želite zapiske pretvoriti v e-pošto, kliknite OK, glej posnetek zaslona:

doc pretvori opombe v e-pošto 1

5. Nato so bile vse izbrane opombe pretvorjene v e-poštna sporočila, kot je prikazano na sliki spodaj:

doc pretvori opombe v e-pošto 2


Najboljša pisarniška orodja za produktivnost

Izjemne novice: Zažene se Kutools for Outlook Brezplačna različica!

Izkusite popolnoma nove Kutools za Outlook BREZPLAČNA različica s 70+ neverjetnimi funkcijami, vaša za uporabo ZA VEDNO! Kliknite za prenos zdaj!

🤖 Kutools AI : Takojšnja profesionalna e-poštna sporočila z umetno inteligenco – z enim klikom do genialnih odgovorov, popoln ton, večjezično znanje. Preoblikujte pošiljanje e-pošte brez napora! ...

📧 Avtomatizacija e-pošte: Samodejni odgovor (na voljo za POP in IMAP)  /  Načrtujte pošiljanje e-pošte  /  Samodejna CC/BCC po pravilih pri pošiljanju e-pošte  /  Samodejno naprej (napredna pravila)   /  Samodejno dodaj pozdrav   /  E-poštna sporočila več prejemnikov samodejno razdeli na posamezna sporočila ...

📨 Email upravljanje: Odpoklic e-pošte  /  Blokiraj prevarantska e-poštna sporočila glede na teme in druge  /  Izbriši podvojena e-poštna sporočila  /  napredno iskanje  /  Združite mape ...

📁 Priloge ProShrani paket  /  Batch Detach  /  Paketno stiskanje  /  Samodejno shranite   /  Samodejno loči  /  Samodejno stiskanje ...

🌟 Vmesnik Magic: 😊Več lepih in kul emojijev   /  Opomni vas, ko pridejo pomembna e-poštna sporočila  /  Minimizirajte Outlook, namesto da bi ga zaprli ...

???? Čudeži z enim klikom: Odgovori vsem z dohodnimi prilogami  /   E-poštna sporočila proti lažnemu predstavljanju  /  🕘Pokaži pošiljateljev časovni pas ...

👩🏼‍🤝‍👩🏻 Stiki in koledar: Paketno dodajanje stikov iz izbranih e-poštnih sporočil  /  Razdelite skupino stikov na posamezne skupine  /  Odstranite opomnike za rojstni dan ...

Takoj odklenite Kutools za Outlook z enim klikom—trajno brezplačno. ne čakaj, prenesite zdaj in povečajte svojo učinkovitost!

kutools za funkcije Outlooka1 kutools za funkcije Outlooka2
 

 

 

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