Solved

Outlook 2007 sending Word 2003 document in email body

Posted on 2009-07-12
4
490 Views
Last Modified: 2012-05-07
hi all,

I am trying to create the macro in Word 2003 which allows you to create an email in Outlook 2007 and put the Word document in the body of the email.

I have seen the script here and got it working:

http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/Q_24428085.html

However the script just generates an email with the default to, subject etc in it and sends it immediately.  I need the script to pop up the Outlook email so i can enter the to adress, subject etc and preview the body text.

I have absolutely no VB experience or knowledge and don't have a clue how I can make this happen.  Could anyone help?

nathan
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 = "recipient@mail.com"

    'Set the recipient for a copy

    .CC = "recipient2@mail.com"

    'Set the subject

    .Subject = "New subject"

    'The content of the document is used as the body for the email

    .Body = ActiveDocument.Content

    .Send

End With

 

If bStarted Then

    'If we started Outlook from code, then close it

    oOutlookApp.Quit

End If

 

'Clean up

Set oItem = Nothing

Set oOutlookApp = Nothing

 

End Sub

Open in new window

0
Comment
Question by:natrat22
  • 2
  • 2
4 Comments
 
LVL 37

Accepted Solution

by:
Joanne M. Orzech earned 500 total points
Comment Utility
Instead of the .Send line change it to .Display and I also added an input box for the recipient.

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)

 

Recipient = InputBox("Please enter recipient(s) email address(es).")

 

With oItem

    'Set the recipient for the new email

   .To = Recipient

    'Set the recipient for a copy

    '.CC = "recipient2@mail.com"

    'Set the subject

    .Subject = "New subject"

    'The content of the document is used as the body for the email

    .Body = ActiveDocument.Content

    '.Send

    .Display

End With

 
 
 

If bStarted Then

    'If we started Outlook from code, then close it

    oOutlookApp.Quit

End If

 

'Clean up

Set oItem = Nothing

Set oOutlookApp = Nothing

 

End Sub

Open in new window

0
 
LVL 1

Author Comment

by:natrat22
Comment Utility
Jorzech, you rock.  thanks, that worked perfectly.
0
 
LVL 1

Author Closing Comment

by:natrat22
Comment Utility
much appreciated.
0
 
LVL 37

Expert Comment

by:Joanne M. Orzech
Comment Utility
Terrific!  I am so pleased I was able to help you.  Thanks much natrat22 :)

Joanne Orzech
MS Word MVP
EE Zone Advisor
0

Featured Post

Zoho SalesIQ

Hassle-free live chat software re-imagined for business growth. 2 users, always free.

Join & Write a Comment

Granting full access permission allows users to access mailboxes present in their database. By giving full access permission one can open and read the content of any mailbox but cannot send emails from that mailbox.
Use email signature images to promote corporate certifications and industry awards.
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now