Kuinka erä tallentaa useita luonnosviestejä Outlook-malleina

Ehkä olet luonut useita luonnoksia sähköposteihin ja toivot käyttävän niitä uudelleen monta kertaa. Jos näin on, miksi et erä tallentaa niitä Outlook-malleina? Tämä artikkeli opettaa sinua toteuttamaan sen yhdellä kertaa VBA: n kautta.

Oletuksena Outlook sallii käyttäjien tallentaa vain yhden sähköpostin mallina kerralla. Toisin sanoen, et voi tallentaa useita luonnosviestejä malleina joukkona. Kuten näette, kun valitset useamman kuin yhden postin ja siirryt kohtaan Tiedosto> Tallenna nimellä, et löydä Outlook-mallin muotoa "Tallenna nimellä" -luettelosta, vain "Vain teksti" on käytettävissä. Mutta esitämme sinulle, miten se voidaan toteuttaa suuressa määrin seuraavissa.

Erä Tallenna useita luonnosviestejä Outlook-malleina

1. Käynnistä alusta alkaen Outlook VBA -editori.
2. Kopioi ja liitä alla oleva VBA-koodi uuteen Microsoft Visual Basic for Applications -ikkunaan.

Sub SaveMultipleDraftsAsTemplates()
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim strTemplateFolder As String
    Dim objMail As Outlook.MailItem
    Dim strSubject As String
 
    'Get all selected mails
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If Not (objSelection Is Nothing) Then
       'Get the default folder for saving Outlook Templates
       strTemplateFolder = CStr(Environ("USERPROFILE")) & "\Documents\UserTemplates\"
 
       'Save each mail as template
       For i = objSelection.Count To 1 Step -1
           If objSelection(i).Class = olMail Then
              Set objMail = objSelection(i)
              If objMail.Subject <> "" Then
 
                 'Remove unsupported characters
                 strSubject = objMail.Subject
                 strSubject = Replace(strSubject, "/", " ")
                 strSubject = Replace(strSubject, "\", " ")
                 strSubject = Replace(strSubject, ":", "")
                 strSubject = Replace(strSubject, "?", " ")
                 strSubject = Replace(strSubject, Chr(34), " ")
 
                 objMail.SaveAs strTemplateFolder & strSubject & ".oft", olTemplate
              Else
                 objMail.SaveAs strTemplateFolder & "Template" & i & ".oft", olTemplate
              End If
           End If
       Next
 
       'Open the folder of Templates
       Shell "Explorer.exe" & " " & strTemplateFolder, vbNormalFocus
    End If
End Sub

3. Tämän jälkeen on suositeltavaa liittää tämä makro pikakäyttötyökaluriviin (QAT) myöhempää käyttöä varten. Tietoja yksityiskohtaisista vaiheista voit lukeaKuinka suorittaa VBA-koodi Outlookissa"
4. Viime kädessä voit ottaa kuvan seuraamalla alla olevia toimintoja.

• Valitse ensin luonnokset, jotka tallennetaan malleiksi.
• Napsauta sitten QAT: n makropainiketta.
• Kun makro on valmis, näyttöön tulee Windowsin oletus Outlook-mallien tallennuskansio. Voit nähdä, että valittujen sähköpostiluonnosten mallit ovat tuolla.

Saapuneet-kansion korjaustyökalu voi silti epäonnistua

Kun kyseessä on sisäinen Outlookin korjaustyökalu - Scanpst, suuri määrä käyttäjiä arvostavat sitä. Epäilemättä tämä apuohjelma pystyy todella ratkaisemaan suurimman osan Outlookin pienistä ongelmista. Silti se ei ole täysin virheetön. Se voi silti epäonnistua ja tuoda esiin monia virheitä. Esimerkiksi vakavien Outlookin korruptio, se ei pysty korjaamaan vaarantunutta PST-tiedostoa. Tässä skenaariossa sinulla ei ole mitään muuta kuin käyttää voimakkaampaa ja kärjessä olevaa kolmannen osapuolen työkalua, kuten DataNumen Outlook Repair.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien sql-palautus ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com