The following is part of some coder I am using to send a word document as the
message body of an email.

Set Report = doc.MailEnvelope.Item
Report.To =
Report.Subject =
Report.Send

This nicely send the document and without "ClickYes" you have to approve the
send.
Can someone tell me how to trigger an edit so the email opens requiring the
user to manually send the email? Thank you.
--
Jeff C
Live Well .. Be Happy In All You Do

Tell us more about doc. Is this document already displayed? Or is it a document you are creating programmatically?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Jeff C" wrote in message ...
The following is part of some coder I am using to send a word document as the
message body of an email.

Set Report = doc.MailEnvelope.Item
Report.To =
Report.Subject =
Report.Send

This nicely send the document and without "ClickYes" you have to approve the
send.
Can someone tell me how to trigger an edit so the email opens requiring the
user to manually send the email? Thank you.
--
Jeff C
Live Well .. Be Happy In All You Do

I pieced together the following using some of your old posts and help from
Doug Robbins:

DoCmd.OutputTo acOutputReport, "Name Of Access Report", acFormatRTF,
"FullPath and name of output document.rtf"

Dim wdApp As Word.Application
Dim doc As Word.Document
Dim Report As MailItem

Set wdApp = New Word.Application
Set doc = wdApp.Documents.Open("FullPath and name of output document.rtf
")
Set Report = doc.MailEnvelope.Item

Report.To = "emailaddressof recipient"
Report.Subject = "email subject"
Report.Send

wdApp.Quit False
Set doc = Nothing
Set wdApp = Nothing

Kill ("FullPath and name of output document.rtf ")

The above is running from a command button in MS Access. I am using Office
2003. The purpose is to get a readable report for a Blackberry user. Thank
you for your help.


--
Jeff C
Live Well .. Be Happy In All You Do


"Sue Mosher [MVP-Outlook]" wrote:

Tell us more about doc. Is this document already displayed? Or is it a document you are creating programmatically?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Jeff C" wrote in message ...
The following is part of some coder I am using to send a word document as the
message body of an email.

Set Report = doc.MailEnvelope.Item
Report.To =
Report.Subject =
Report.Send

This nicely send the document and without "ClickYes" you have to approve the
send.
Can someone tell me how to trigger an edit so the email opens requiring the
user to manually send the email? Thank you.
--
Jeff C
Live Well .. Be Happy In All You Do

So, the document is not already visible. Do you want the user to edit it in Word or Outlook?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Jeff C" wrote in message ...
I pieced together the following using some of your old posts and help from
Doug Robbins:

DoCmd.OutputTo acOutputReport, "Name Of Access Report", acFormatRTF,
"FullPath and name of output document.rtf"

Dim wdApp As Word.Application
Dim doc As Word.Document
Dim Report As MailItem

Set wdApp = New Word.Application
Set doc = wdApp.Documents.Open("FullPath and name of output document.rtf
")
Set Report = doc.MailEnvelope.Item

Report.To = "emailaddressof recipient"
Report.Subject = "email subject"
Report.Send

wdApp.Quit False
Set doc = Nothing
Set wdApp = Nothing

Kill ("FullPath and name of output document.rtf ")

The above is running from a command button in MS Access. I am using Office
2003. The purpose is to get a readable report for a Blackberry user. Thank
you for your help.


--
Jeff C
Live Well .. Be Happy In All You Do


"Sue Mosher [MVP-Outlook]" wrote:

Tell us more about doc. Is this document already displayed? Or is it a document you are creating programmatically?

"Jeff C" wrote in message ...
The following is part of some coder I am using to send a word document as the
message body of an email.

Set Report = doc.MailEnvelope.Item
Report.To =
Report.Subject =
Report.Send

This nicely send the document and without "ClickYes" you have to approve the
send.
Can someone tell me how to trigger an edit so the email opens requiring the
user to manually send the email? Thank you.
--
Jeff C
Live Well .. Be Happy In All You Do

I would like the edit to occur in Outlook

I altered the previous code to:

Report.To = "recipientAddress"
Report.Subject = "Subject"
Report.Save
ID = Report.EntryID

Set OL = CreateObject("Outlook.Application")
Set NS = OL.GetNamespace("MAPI")
Set Msg = NS.GetItemFromID(ID)
Msg.Display (True)


'Report.Send



wdApp.Quit False
Set doc = Nothing
Set wdApp = Nothing

Kill ("Path and name of output")

This creates a Draft email in Outlook without opening for edit and the
Message body is an actual WORD Document with pages which I don't get with the
initial code. The initial code works great sending one long email message
body, I just thought it would be a nice touch being able to add a few lines
at the beginning if the user wanted.

It's an interesting process putting all these applications together in one
sequence. Thank you.


--
Jeff C
Live Well .. Be Happy In All You Do


"Sue Mosher [MVP-Outlook]" wrote:

So, the document is not already visible. Do you want the user to edit it in Word or Outlook?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Jeff C" wrote in message ...
I pieced together the following using some of your old posts and help from
Doug Robbins:

DoCmd.OutputTo acOutputReport, "Name Of Access Report", acFormatRTF,
"FullPath and name of output document.rtf"

Dim wdApp As Word.Application
Dim doc As Word.Document
Dim Report As MailItem

Set wdApp = New Word.Application
Set doc = wdApp.Documents.Open("FullPath and name of output document.rtf
")
Set Report = doc.MailEnvelope.Item

Report.To = "emailaddressof recipient"
Report.Subject = "email subject"
Report.Send

wdApp.Quit False
Set doc = Nothing
Set wdApp = Nothing

Kill ("FullPath and name of output document.rtf ")

The above is running from a command button in MS Access. I am using Office
2003. The purpose is to get a readable report for a Blackberry user. Thank
you for your help.


--
Jeff C
Live Well .. Be Happy In All You Do


"Sue Mosher [MVP-Outlook]" wrote:

Tell us more about doc. Is this document already displayed? Or is it a document you are creating programmatically?

"Jeff C" wrote in message ...
The following is part of some coder I am using to send a word document as the
message body of an email.

Set Report = doc.MailEnvelope.Item
Report.To =
Report.Subject =
Report.Send

This nicely send the document and without "ClickYes" you have to approve the
send.
Can someone tell me how to trigger an edit so the email opens requiring the
user to manually send the email? Thank you.
--
Jeff C
Live Well .. Be Happy In All You Do

Another approach would be to provide a user form where the user can type in the comments they want to add. Then you can set the Introduction property:

doc.MailEnvelope.Introduction = "some text"
Set Report = doc.MailEnvelope.Item

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx

"Jeff C" wrote in message news
I would like the edit to occur in Outlook

I altered the previous code to:

Report.To = "recipientAddress"
Report.Subject = "Subject"
Report.Save
ID = Report.EntryID

Set OL = CreateObject("Outlook.Application")
Set NS = OL.GetNamespace("MAPI")
Set Msg = NS.GetItemFromID(ID)
Msg.Display (True)


'Report.Send



wdApp.Quit False
Set doc = Nothing
Set wdApp = Nothing

Kill ("Path and name of output")

This creates a Draft email in Outlook without opening for edit and the
Message body is an actual WORD Document with pages which I don't get with the
initial code. The initial code works great sending one long email message
body, I just thought it would be a nice touch being able to add a few lines
at the beginning if the user wanted.

It's an interesting process putting all these applications together in one
sequence. Thank you.


--
Jeff C
Live Well .. Be Happy In All You Do


"Sue Mosher [MVP-Outlook]" wrote:

So, the document is not already visible. Do you want the user to edit it in Word or Outlook?

"Jeff C" wrote in message ...
I pieced together the following using some of your old posts and help from
Doug Robbins:

DoCmd.OutputTo acOutputReport, "Name Of Access Report", acFormatRTF,
"FullPath and name of output document.rtf"

Dim wdApp As Word.Application
Dim doc As Word.Document
Dim Report As MailItem

Set wdApp = New Word.Application
Set doc = wdApp.Documents.Open("FullPath and name of output document.rtf
")
Set Report = doc.MailEnvelope.Item

Report.To = "emailaddressof recipient"
Report.Subject = "email subject"
Report.Send

wdApp.Quit False
Set doc = Nothing
Set wdApp = Nothing

Kill ("FullPath and name of output document.rtf ")

The above is running from a command button in MS Access. I am using Office
2003. The purpose is to get a readable report for a Blackberry user. Thank
you for your help.


--
Jeff C
Live Well .. Be Happy In All You Do


"Sue Mosher [MVP-Outlook]" wrote:

Tell us more about doc. Is this document already displayed? Or is it a document you are creating programmatically?

"Jeff C" wrote in message ...
The following is part of some coder I am using to send a word document as the
message body of an email.

Set Report = doc.MailEnvelope.Item
Report.To =
Report.Subject =
Report.Send

This nicely send the document and without "ClickYes" you have to approve the
send.
Can someone tell me how to trigger an edit so the email opens requiring the
user to manually send the email? Thank you.
--
Jeff C
Live Well .. Be Happy In All You Do