Ինչպես արագ ուղարկել էլեկտրոնային փոստը միայն ընտրված հավելվածներով միայն Outlook VBA- ի միջոցով

Outlook էլփոստը, որը կցորդներ ունի, վերահասցեավորելիս, երբեմն, գուցե ցանկանաք բոլորի փոխարեն պահել միայն ընտրված կցորդները: Այժմ, այս հոդվածում մենք կսովորեցնենք ձեզ, թե ինչպես արագ ուղարկել փոստը միայն ընտրված հավելվածներով:

Ստանդարտ ձևով, երբ Outlook էլփոստը փոխանցում եք, բոլոր բնօրինակ կցորդները կփոխանցվեն: Այնուամենայնիվ, երբեմն ցանկանում եք միայն որոշ կցորդներ ուղարկել բոլորի փոխարեն: Ընդհանրապես, դուք կարող եք էլփոստը փոխանցել ինչպես միշտ, այնուհետև ձեռքով ջնջել անցանկալի հավելվածները: Բայց դա մի փոքր անհանգստացնող է: Հետեւաբար, այստեղ մենք ձեզ կներկայացնենք շատ ավելի արագ մեթոդ `էլփոստը փոխանցելու համար` միայն ընտրված հավելվածներով:

Արագորեն փոխանցեք էլ.փոստ միայն ընտրված հավելվածներով

1. Հենց սկզբից գործարկեք Outlook VBA խմբագիրը «Alt + F11» դյուրանցման միջոցով:
2. Հետո, պատճենեք և կպցրեք հետևյալ կոդը ծրագրի կամ մոդուլի մեջ:

Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

3. Հաջորդը, դուրս եկեք VBA խմբագրից:
4. Դրանից հետո հետևեք «Ընտրովի քայլին» նախորդ էջումost "Ինչպես գործարկել VBA կոդը ձեր Outlook- ում”Այս մակրոը արագ մուտքի գործիքագոտում կամ ժապավենին ավելացնելու համար:
5. Ի վերջո, կարող եք փորձել այս մակրոը:

• Նախ և առաջ, համոզվեք, որ ընթերցանության վահանակը միացված է:
• Դրանից հետո ընտրեք էլփոստը և կցորդները, որոնք ցանկանում եք փոխանցել:
• Հաջորդը կտտացրեք մակրո կոճակին Արագ մուտքի գործիքագոտում կամ ժապավենի մեջ:
• Միանգամից կցուցադրվի նոր էլ. Ինչպես տեսնում եք, դա փոխանցման էլփոստ է `միայն ընտրված հավելվածներով:

Fix Knotty Outlook տվյալների կոռուպցիան

Երբևէ բախվել եք Outlook- ի վթարի: Եվ արդյո՞ք այդպիսի վթարների արդյունքում PST տվյալների կոռումպացված է: Եթե ​​դուք երբևէ բախվել եք նման խնդիրների, ապա միգուցե հասկացաք, թե որքանով են դրանք կապված ու խճճված: Սովորաբար փոքր խնդիրները կարող են լուծվել Inbox- ի վերանորոգման գործիքի միջոցով: Բայց լուրջ խնդիրների համար, ինչպես Հեռանկարային կոռուպցիա, դուք պետք է օգտագործեք ավելի հզոր կոմունալ ծրագիր, օրինակ ՝ DataNumen Outlook Repair.

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

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