Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 11-30-2019, 10:40 AM
Origdogfish Origdogfish is offline Forward Multiple Emails..? Windows 10 Forward Multiple Emails..? Office 2019
Novice
Forward Multiple Emails..?
 
Join Date: Nov 2019
Posts: 2
Origdogfish is on a distinguished road
Default Forward Multiple Emails..?

How can I select and forward multiple emails at one time? Forwarding each one individually is time consuming. "Shift" allows me to select multiples but then the option to forward them isn't available.
Reply With Quote
  #2  
Old 11-30-2019, 09:47 PM
gmayor's Avatar
gmayor gmayor is offline Forward Multiple Emails..? Windows 10 Forward Multiple Emails..? Office 2016
Expert
 
Join Date: Aug 2014
Posts: 4,101
gmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud ofgmayor has much to be proud of
Default

Easy enough with a macro provided they are all being forwarded to the same recipient(s).
Code:
Sub ForwardSelectedMessages()
'Graham Mayor - https://www.gmayor.com - Last updated - 01 Dec 2019
'Forwards the currently selected messages
Const strTo As String = "someone@somewhere.com"    'recipient
Const strBody As String = "Please see message below."    'Covering message
Const strCC As String = ""    'CC recipients(s) if required
Dim sPath As String
Dim olItem As MailItem
Dim olFwd As MailItem
Dim olInsp As Inspector
Dim wdDoc As Object
Dim oRng As Object

    For Each olItem In Application.ActiveExplorer.Selection
        If olItem.Class = OlObjectClass.olMail Then
            Set olFwd = olItem.Forward
            With olFwd
                .To = strTo
                .CC = strCC
                .Display
                .BodyFormat = olFormatHTML
                Set olInsp = .GetInspector
                Set wdDoc = olInsp.WordEditor
                Set oRng = wdDoc.Range(0, 0)
                oRng.Text = strBody
                '.Send 'remove apostrophe after testing
            End With
        End If
    Next olItem
lbl_Exit:
    Set olItem = Nothing
    Set olFwd = Nothing
    Set olInsp = Nothing
    Set wdDoc = Nothing
    Set oRng = Nothing
    Exit Sub
End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
  #3  
Old 12-01-2019, 10:17 AM
Origdogfish Origdogfish is offline Forward Multiple Emails..? Windows 10 Forward Multiple Emails..? Office 2019
Novice
Forward Multiple Emails..?
 
Join Date: Nov 2019
Posts: 2
Origdogfish is on a distinguished road
Default

Thank you Graham..!


My apologies for putting you through this.


Unfortunately, the individual I am trying to help has the free version of Outlook. I was under the impression they had "the latest version". They are not all that computer comfortable and I am trying to help remotely. Even copying all (more than 5 years) of small business related Emails with attached invoices, receipts etc to a file and sending it to me might be above their ability... if that is even possible under Outlook (free).


I was hoping for a simple ctrl code or an option in a menu somewhere. I'm not that familiar with Outlook, unfortunately. I use T-Bird, myself.



My thanks to all for your time and attention... and again my apologies.
-Jim
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
outlook 2010 issue with some emails during forward for an email converts mail body blank yogan4483@gmail.com Outlook 0 05-16-2018 03:57 AM
Forward Multiple Emails..? Auto-forward HTML emails with added suffix to subject line paulkaye Outlook 18 01-24-2016 11:42 PM
Forward copy all emails to a second account? markg2 Outlook 0 09-17-2015 08:55 AM
Forward emails not opening, why? alexb123 Outlook 0 10-19-2012 02:22 PM
Auto Forward Emails - Specific Time Periods Only Dav Outlook 0 06-22-2011 12:03 PM

Other Forums: Access Forums

All times are GMT -7. The time now is 12:19 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft