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

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

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


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije