Kaip paketiniu būdu nukopijuoti visus priedus iš kelių el. laiškų į naują el. laišką programoje „Outlook“.

Jei norite sukurti naują el. laišką ir prie naujo laiško pridėti visus kelių kitų el. laiškų priedus, galite naudoti šiame straipsnyje aprašytą metodą. Jis išmokys jus naudoti VBA, kad jį gautumėte kaip vėjas.

Kartais gali tekti nukopijuoti visus priedus iš kelių el. laiškų į naują el. laišką. Žinoma, galite pasirinkti tai padaryti rankiniu būdu, tiesiog pirmiausia išsaugodami juos vietiniame diske ir po vieną pridėdami prie naujai sukurto el. Tačiau, matyt, tokiu būdu tai bus gana varginanti užduotis. Todėl kodėl gi nepasinaudojus VBA, kad tai greitai suprastumėte? Toliau pateiksime sudėtingas operacijas ir atitinkamus VBA kodus.

Paketinis visų priedų kopijavimas iš kelių el. laiškų į naują el. laišką

1. Pačioje pradžioje paleiskite „Outlook“ programą kaip įprasta.
2. Toliau pagrindiniame „Outlook“ lange paspauskite klavišų kombinaciją „Alt + F11“.
3. Kitame lange „Microsoft Visual Basic for Applications“ įdėkite naują modulį arba atidarykite nenaudojamą modulį.
4. Tada nukopijuokite ir įklijuokite šiuos VBA kodus į tokį modulį.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Po to turėtumėte pridėti naują VBA projektą prie greitosios prieigos įrankių juostos. Jį galite užpildyti „Outlook“ parinktyse.
6. Vėliau turėtumėte pakeisti „Outlook“ makrokomandos saugos lygį į žemą.
7. Pagaliau galite pabandyti.

• Pirmiausia paspauskite klavišą „Ctrl“ ir pasirinkite kelis el. laiškus, kurių priedus norite kopijuoti.
• Tada greitosios prieigos įrankių juostoje paspauskite naujos makrokomandos mygtuką.
• Iš karto pasirodys naujas el. laiškas su visais priedais.

Iššūkis dažnoms Outlook PST problemoms

Retkarčiais gali kilti „Outlook PST“ problemų, todėl turėtumėte įdėti daug pastangų, kad apsaugotumėte savo PST duomenis. Pavyzdžiui, turėtumėte reguliariai kurti atsargines PST duomenų kopijas, kad galėtumėte juos susigrąžinti sugadintas Outlook duomenis iš atsarginių kopijų nesulaužydami. Be to, šalia turite turėti patikimą įrankį, pvz DataNumen Outlook Repair.

Autoriaus įvadas:

Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant remontuoti mdf ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com