Hogyan lehet gyorsan továbbítani egy e-mailt a kiválasztott mellékletekkel csak az Outlook VBA-n keresztül

A mellékleteket tartalmazó Outlook e-mail továbbításakor előfordulhat, hogy csak a kiválasztott mellékleteket szeretné megtartani az összes helyett. Ebben a cikkben megtanítjuk, hogyan továbbíthat gyorsan egy e-mailt csak kiválasztott mellékletekkel.

A szokásos módon, amikor egy Outlook e-mailt továbbít, az összes eredeti mellékletet a rendszer továbbítja. Időnként azonban csak néhány mellékletet szeretne továbbítani az összes helyett. Általában a szokásos módon továbbíthatja az e-mailt, majd manuálisan törölheti a nem kívánt mellékleteket. De ez egy kicsit zavaró. Ezért itt bemutatunk egy sokkal gyorsabb módszert a csak kiválasztott mellékleteket tartalmazó e-mailek továbbítására.

Gyorsan továbbítson egy e-mailt csak a kiválasztott mellékletekkel

1. A legelején indítsa el az Outlook VBA-szerkesztőt az „Alt + F11” billentyűparancs segítségével.
2. Ezután másolja ki és illessze be a következő kódot egy projektbe vagy modulba.

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. Ezután lépjen ki a VBA-szerkesztőből.
4. Ezt követően kövesse az „Opcionális lépést” az előző oldalonost "A VBA kód futtatása az Outlookban” a makró hozzáadásához a Gyorselérési eszköztárhoz vagy szalaghoz.
5. Végül kipróbálhatja ezt a makrót.

• Először győződjön meg arról, hogy az olvasóablak be van kapcsolva.
• Ezután válassza ki az e-mailt és a továbbítani kívánt mellékleteket.
• Ezután kattintson a makró gombra a Gyorselérési eszköztáron vagy a szalagon.
• Egyszerre egy új e-mail jelenik meg. Amint láthatja, ez egy továbbítási e-mail, amely csak kiválasztott mellékleteket tartalmaz.

Javítsa ki a csomós Outlook adatsérülést

Találkoztál már az Outlook összeomlásával? És az ilyen összeomlások a PST adatok megsérüléséhez vezettek? Ha valaha is találkozott már ilyen problémákkal, talán rájött, hogy ezek milyen csomósak és zavaróak. A kisebb problémákat általában az Inbox javítóeszközzel lehet megoldani. De a komoly bajokra pl Az Outlook korrupciója, akkor erősebb segédprogramot kell használnia, mint pl DataNumen Outlook Repair.

Szerző Bevezetés:

Shirley Zhang adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve SQL Server erősít és outlook javítószoftver termékek. További információért látogasson el www.datanumen.com