როგორ სწრაფად გადააგზავნოთ ელფოსტა მხოლოდ შერჩეული დანართებით 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. საბოლოოდ, შეგიძლიათ სცადოთ ეს მაკრო.

• უპირველეს ყოვლისა, დარწმუნდით, რომ ჩართულია წაკითხვის პანელი.
• შემდეგ აირჩიეთ ელფოსტა და დანართები, რომელთა გადაგზავნაც გსურთ.
• შემდეგი, დააწკაპუნეთ მაკრო ღილაკზე სწრაფი წვდომის ხელსაწყოთა ზოლში ან ლენტში.
• ერთდროულად გამოჩნდება ახალი ელ.წერილი. როგორც ხედავთ, ეს არის გადამგზავნი ელფოსტა მხოლოდ შერჩეული დანართებით.

შეასწორეთ Knotty Outlook მონაცემთა კორუფცია

ოდესმე შეგხვედრიათ Outlook-ის ავარია? და ასეთი ავარია გამოიწვია PST მონაცემების კორუფციაში? თუ ოდესმე შეგხვედრიათ მსგავსი საკითხები, შესაძლოა მიხვდეთ, რამდენად კვანძოვანი და პრობლემურია ისინი. ჩვეულებრივ, მცირე პრობლემების მოგვარება შესაძლებელია Inbox-ის სარემონტო ხელსაწყოთი. მაგრამ, სერიოზული პრობლემებისთვის, როგორიცაა პერსპექტიული კორუფცია, თქვენ უნდა გამოიყენოთ უფრო ძლიერი პროგრამა, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server დაფიქსირება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად