Microsoft Outlook 2007, sending email from Word 2003 - Unable to send doc as email


I have just installed Outlook 2007 to work with Exchange 2007 on my network.
I have Office 2003 installed, (upgraded Outlook to 2007 only).

I now have lost the ability to send a word document as an email. I have certain templates in work from which I use to send to people and need to send the word document as the body of the email.

Can this no longer be done between Outlook 2007 and Word 2003?
I could do this easily with Outlook 2003 installed.

(I have been through the customisation of Word and I have tried the icon (Mail Recipient (For Review) or Mail Recipient (As attachment)..but this doesn't show the body.

I've added an icon which simply says 'Mail Recipient' but im unable to highlight it.
Anyone got any clues?

LVL 15
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Manpreet SIngh KhatraSolutions Architect, Project LeadCommented:
What if you use Word 2007 instead of word 2003 ?
Joanne M. OrzechManager, Document Services CenterCommented:
No - it cannot be done.  You can however get back this functionality when you upgrade to Word 2007.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Joanne M. OrzechManager, Document Services CenterCommented:
Actually - I was wrong (mea maxima culpa!)  - We have been struggling with this problem at my firm but I found a macro that will do this!!!  Very slick!!

Sub SendDocumentInMail()
Dim bStarted As Boolean
'Dim oOutlookApp As Outlook.Application
'Dim oItem As Outlook.MailItem
On Error Resume Next
'Get Outlook if it's running
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
    'Outlook wasn't running, start it from code
    Set oOutlookApp = CreateObject("Outlook.Application")
    bStarted = True
End If
'Create a new mailitem
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
    'Set the recipient for the new email
   .To = ""
    Set the recipient for a copy
    .CC = ""
    'Set the subject
    .Subject = "New subject"
    'The content of the document is used as the body for the email
    .Body = ActiveDocument.Content
End With
If bStarted Then
    'If we started Outlook from code, then close it
End If
'Clean up
Set oItem = Nothing
Set oOutlookApp = Nothing
End Sub

Open in new window

Creating Active Directory Users from a Text File

If your organization has a need to mass-create AD user accounts, watch this video to see how its done without the need for scripting or other unnecessary complexities.

MarkMichaelAuthor Commented:
Thanks for that J0rzech, I will have a look at this tomorrow and let you know if it suits what we need to do!

Thanks again,
Jeffrey CoachmanMIS LiasonCommented:
Joanne M. OrzechManager, Document Services CenterCommented:
Who woulda thunk!  *laughing* Thanks for sharing Jeff :)
MarkMichaelAuthor Commented:
Hmmm. Both these macros don't allow me to bring up a To: or Subject: box to be able to select the addresses and subject, like with Outlook 2003 installed. Or am I missing something?
Jeffrey CoachmanMIS LiasonCommented:
Ooops, don't use my code, it was designed for MS Access, I just posted it here for JOrzech's reference.

Sorry that I did not make that clear in my post.

Joanne M. OrzechManager, Document Services CenterCommented:
You can edit the code to ask for the subject line and recipients....
Joanne M. OrzechManager, Document Services CenterCommented:
Thanks very much.  Glad I was able to help!

Joanne Orzech
EE Zone Advisor
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.