Si të kopjoni në grup të gjitha bashkëngjitjet nga shumë emaile në një email të ri në Outlook

Zgjidhjet e Outlook Shtator 29, 2025

Nëse dëshironi të krijoni një email të ri dhe t'i bashkëngjitni të gjitha bashkëngjitjet në disa email të tjerë në postën e re, mund të përdorni metodën e prezantuar në këtë artikull. Do t'ju mësojë të përdorni VBA për ta marrë atë si një fllad.

Ndonjëherë, mund t'ju duhet të kopjoni të gjitha bashkëngjitjet nga shumë email në një email të ri. Natyrisht, mund të zgjidhni ta bëni atë manualisht, thjesht duke i ruajtur fillimisht në diskun lokal dhe më pas duke i bashkangjitur ato në një email të krijuar rishtazi një nga një. Megjithatë, me sa duket, në këtë mënyrë, do të jetë një detyrë mjaft e lodhshme. Prandaj, pse nuk e përdorni VBA për ta kuptuar shpejt atë? Në vijim, ne do t'ju ekspozojmë operacionet e hollësishme dhe kodet përkatëse VBA.

Kopjoni në grup të gjitha bashkëngjitjet nga shumë emaile në një email të ri

Kopjoni në grup të gjitha bashkëngjitjet nga shumë emaile në një email të ri

  1. Që në fillim, nisni programin Outlook si zakonisht.
  2. Më pas në dritaren kryesore të Outlook, shtypni butonat "Alt + F11".
  3. Në dritaren pasuese "Microsoft Visual Basic për aplikacione", futni një modul të ri ose hapni një modul që nuk është në përdorim.
  4. Pastaj kopjoni dhe ngjisni kodet e mëposhtme VBA në një modul të tillë.
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

Kodi VBA - Kopjo në grup të gjitha bashkëngjitjet nga shumë email në një email të ri

  1. Pas kësaj, duhet të vazhdoni të shtoni projektin e ri VBA në shiritin e veglave të aksesit të shpejtë. Mund ta plotësoni në "Opsionet e Outlook".
  2. Më vonë ju duhet të ndryshoni nivelin tuaj të sigurisë makro të Outlook në të ulët.
  3. Më në fund mund të provoni.
  • Së pari, shtypni butonin "Ctrl" dhe zgjidhni disa email bashkëngjitjet e të cilave dëshironi të kopjoni.
  • Pastaj shtypni butonin e ri makro në shiritin e veglave të aksesit të shpejtë.
  • Menjëherë, një email i ri do të shfaqet me të gjitha bashkëngjitjet e bashkangjitura.

Sfidoni çështjet e shpeshta të Outlook PST

Meqenëse problemet e Outlook PST mund të ndodhin herë pas here, duhet të shpenzoni shumë përpjekje për të mbrojtur të dhënat tuaja PST. Për shembull, është më mirë të bëni kopje rezervë të të dhënave tuaja PST në baza të rregullta, në mënyrë që të jeni në gjendje të riktheni Outlook i korruptuar të dhënat nga kopjet rezervë pa u lodhur. Për më tepër, ju duhet të mbani një mjet me reputacion në afërsi, si p.sh DataNumen Outlook Repair.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë riparim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.