Ինչպես խմբաքանակով պատճենել բոլոր կցորդները մի քանի նամակներից նոր էլփոստի Outlook-ում

Outlook լուծումներ Սեպտեմբեր 29, 2025

Եթե ցանկանում եք ստեղծել նոր նամակ և մի քանի այլ նամակների բոլոր հավելվածները կցել նոր փոստին, կարող եք օգտագործել այս հոդվածում ներկայացված մեթոդը: Այն կսովորեցնի ձեզ օգտագործել VBA-ն՝ այն քամի պես ստանալու համար:

Երբեմն ձեզ կարող է անհրաժեշտ լինել խմբաքանակով պատճենել բոլոր կցորդները մի քանի նամակներից նոր էլ. Իհարկե, դուք կարող եք ընտրել դա անել ձեռքով, պարզապես նախ դրանք պահելով տեղական սկավառակում, այնուհետև դրանք մեկ առ մեկ կցելով նորաստեղծ էլփոստին: Սակայն, ըստ երևույթին, այս միջոցով դա բավականին հոգնեցուցիչ գործ կլինի։ Հետևաբար, ինչու՞ չեք օգտագործում VBA-ն դա արագ գիտակցելու համար: Հետևյալ հատվածում մենք ձեզ կներկայացնենք մանրամասն գործողությունները և համապատասխան VBA կոդերը:

Խմբաքանակի պատճենեք բոլոր առդիրները մի քանի էլ.փոստից նոր էլ

Սկզբում, գործարկեք ձեր Outlook ծրագիրը սովորականի պես։
Հաջորդը հիմնական Outlook պատուհանում սեղմեք «Alt + F11» ստեղնային կոճակները:
Հաջորդ «Microsoft Visual Basic հավելվածների համար» պատուհանում տեղադրեք նոր մոդուլ կամ բացեք չօգտագործվող մոդուլը:
Դրանից հետո պատճենեք և տեղադրեք հետևյալ VBA կոդերը նման մոդուլի մեջ:

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

Դրանից հետո դուք պետք է շարունակեք ավելացնել նոր VBA նախագիծը Quick Access Toolbar-ում: Դուք կարող եք լրացնել այն «Outlook Options»-ում:
Ավելի ուշ դուք պետք է փոխեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
Վերջապես կարող եք փորձել:

Նախ, սեղմեք «Ctrl» ստեղնը և ընտրեք մի քանի նամակներ, որոնց հավելվածները ցանկանում եք պատճենել:
Այնուհետև սեղմեք նոր մակրո կոճակը Արագ մուտքի գործիքագոտում:
Անմիջապես նոր նամակ կհայտնվի՝ կցված բոլոր հավելվածներով:

Մարտահրավեր հաճախակի Outlook PST-ի խնդիրները

Քանի որ Outlook-ի PST-ի հետ կապված խնդիրներ կարող են առաջանալ երբեմն, դուք պետք է շատ ջանքեր գործադրեք ձեր PST-ի տվյալները պաշտպանելու համար: Օրինակ, դուք ավելի լավ է կրկնօրինակեք ձեր PST տվյալները կանոնավոր հիմունքներով, որպեսզի կարողանաք հետ ստանալ կոռումպացված Outlook- ը տվյալների կրկնօրինակներից՝ առանց քրտնաջանության: Ավելին, դուք պետք է մոտակայքում պահեք հեղինակավոր գործիք, ինչպես DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերանորոգել mdf և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com