Problems Emailing From Word

abraxis · #1 02-21-2018, 04:16 PM

I updated my Ribbon to email documents from Word 2013 as an in-line document. When I activated the icon in the Ribbon to email the document I was working on, the Outlook Email menu appeared, and I indicated two recipients (the same ones) to email to. However, only one recipient received the actual email. Even if I indicated that the second email addressee was a bcc, or a cc, only one email (to the first recipient) was sent out. I need to be able to send a Word document to multiple recipients in the address book. Any help in making this happen would be greatly appreciated.

gmayor · #2 03-02-2018, 10:57 PM

If you use the following Word macro the document will be added to the body of an Outlook e-mail message for you to add the recipients and subject just as if you had created the message in Outlook directly.

Do note that the macro requires code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm to start Outlook correctly or the macro will not work. The code you need to copy to a new VBA module is that below 'Test the code'

http://www.gmayor.com/installing_macro.htm

Code:

Sub Send_As_HTML_EMail()
'Graham Mayor - http://www.gmayor.com - Last updated - 14 Jul 2017
'Requires the code from http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'to either retrieve an open instance of Outlook or open Outlook if it is closed.
Dim bStarted As Boolean
Dim olApp As Object
Dim oItem As Object
Dim objdoc As Object
Dim objSel As Selection
    On Error Resume Next
    ActiveDocument.Range.Copy
    Set olApp = OutlookApp()
    Set oItem = olApp.CreateItem(0)
    With oItem
        .BodyFormat = 2
        .Display
        Set objdoc = .GetInspector.WordEditor
        Set objSel = objdoc.Windows(1).Selection
        objSel.PasteAndFormat Type:=wdFormatOriginalFormatting
        .To = ""
        .Subject = ""
    End With
lbl_Exit:
    Set oItem = Nothing
    Set olApp = Nothing
    Set objdoc = Nothing
    Set objSel = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Emailing From Word Problems	abraxis	Word	0	02-21-2018 04:12 PM
Word doc not emailing	ingridnow	Word	3	01-28-2016 08:39 AM
Emailing word 2007 doc with photos	castman	Word	2	10-05-2015 07:29 AM
Emailing Word letter with header & footer	PaulY	Word	3	12-02-2010 12:13 PM
Emailing a word doc NOT as an attachment	tigger66	Word	0	01-15-2009 05:30 PM