Kā ātri pārsūtīt e-pastu ar atlasītiem pielikumiem tikai, izmantojot Outlook VBA

Pārsūtot Outlook e-pastu, kurā ir pielikumi, dažkārt, iespējams, vēlēsities saglabāt tikai atlasītos pielikumus, nevis visus. Šajā rakstā mēs iemācīsim, kā ātri pārsūtīt pastu tikai ar atlasītiem pielikumiem.

Standarta veidā, pārsūtot Outlook e-pastu, tiks pārsūtīti visi sākotnējie pielikumi. Tomēr reizēm jūs vēlaties pārsūtīt tikai dažus pielikumus, nevis visus. Parasti e-pastu varat pārsūtīt kā parasti un pēc tam manuāli izdzēst nevēlamos pielikumus. Bet tas ir mazliet apgrūtinoši. Tādēļ šeit mēs iepazīstināsim jūs ar daudz ātrāku metodi, kā pārsūtīt e-pastu ar tikai atlasītiem pielikumiem.

Ātri pārsūtiet e-pastu tikai ar atlasītajiem pielikumiem

1. Sākumā palaidiet Outlook VBA redaktoru, izmantojot saīsni “Alt + F11”.
2. Pēc tam nokopējiet un ielīmējiet šo kodu projektā vai modulī.

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. Pēc tam izejiet no VBA redaktora.
4. Pēc tam izpildiet “Izvēles solis” iepriekšējā lppost "Kā palaist VBA kodu programmā Outlook”, Lai pievienotu šo makro ātrās piekļuves rīkjoslai vai lentei.
5. Galu galā jūs varat izmēģināt šo makro.

• Vispirms izslēdziet, lai lasīšanas rūts būtu ieslēgta.
• Pēc tam atlasiet e-pastu un pielikumus, kurus vēlaties pārsūtīt.
• Pēc tam ātrās piekļuves rīkjoslā vai lentē noklikšķiniet uz makro pogas.
• Uzreiz tiks parādīts jauns e-pasts. Kā redzat, tas ir pārsūtīšanas e-pasts ar tikai atlasītiem pielikumiem.

Fix Knotty Outlook datu korupcija

Vai esat kādreiz saskāries ar Outlook avāriju? Un vai šādas avārijas ir izraisījušas PST datu korupciju? Ja kādreiz esat saskāries ar šādiem jautājumiem, iespējams, esat sapratuši, cik tie ir mezgloti un apgrūtinoši. Parasti nelielas problēmas var atrisināt, izmantojot Inbox labošanas rīku. Bet, piemēram, nopietnām nepatikšanām Outlook korupcija, jums jāizmanto jaudīgāka lietderība, piemēram, DataNumen Outlook Repair.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp SQL Server noteikts un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar