Sue Mosher suggested, in a thread on copying rtf text into a message:

Great, because that means you can use the "Office envelope" feature to
create the message directly from the Word document -- no copy and paste
required:

Set env = ActiveDocument.MailEnvelope
Set itm = env.Item ' this is the Outlook message
itm.To = "
itm.Subject = "the subject"
itm.Send ' this will trigger a security prompt

So far, sort of so good. I was able to send a message to myself. It did
try to run spell check but I didn't get a security warning. We've used
office administrative policy to disable some of the warnings for some
attachments, though.

If you want the user to be able to edit and set Outlook properties on the
outgoing item, you can save the message and display it like this:

Yeah -- they have to be able to insert a list of e-mail addresses from other
sources, for example.

itm.Save

I get stuck here. After some experimenting, including having to add myself
to the sharing list for the draft items folder in Outlook, I did get an
corresponding header in the draft items folder. But not a messsage that I
could open??

Had to fiddle with the EntryID a while before finding out it's a string
(variable wouldn't work) and so I was able to muddle through


id = itm.EntryID
Set ol = CreateObject("Outlook.Application")
Set ns = ol.GetNamespace("MAPI")
Set msg = ns.GetItemFromID(id)
msg.Display

But no luck at the end.

I was kind of astonished by the paucity of information/documentation about
the MailEnvelope property from MS or anywhere else. But maybe I'm looking
in the wrong places.

Sincerely,

R (in New Joisey)

Ooops. Hold on.

I think I got it to work. I was using a template as my "test doc" instead
of an ordinary document. Getting closer.

R.

"Ridge Kennedy" wrote in message
...
Sue Mosher suggested, in a thread on copying rtf text into a message:

Great, because that means you can use the "Office envelope" feature to
create the message directly from the Word document -- no copy and paste
required:

Set env = ActiveDocument.MailEnvelope
Set itm = env.Item ' this is the Outlook message
itm.To = "
itm.Subject = "the subject"
itm.Send ' this will trigger a security prompt

So far, sort of so good. I was able to send a message to myself. It did
try to run spell check but I didn't get a security warning. We've used
office administrative policy to disable some of the warnings for some
attachments, though.

If you want the user to be able to edit and set Outlook properties on the
outgoing item, you can save the message and display it like this:

Yeah -- they have to be able to insert a list of e-mail addresses from
other sources, for example.

itm.Save

I get stuck here. After some experimenting, including having to add
myself to the sharing list for the draft items folder in Outlook, I did
get an corresponding header in the draft items folder. But not a messsage
that I could open??

Had to fiddle with the EntryID a while before finding out it's a string
(variable wouldn't work) and so I was able to muddle through


id = itm.EntryID
Set ol = CreateObject("Outlook.Application")
Set ns = ol.GetNamespace("MAPI")
Set msg = ns.GetItemFromID(id)
msg.Display

But no luck at the end.

I was kind of astonished by the paucity of information/documentation about
the MailEnvelope property from MS or anywhere else. But maybe I'm looking
in the wrong places.

Sincerely,

R (in New Joisey)

Update: What's happening seems to be this: I can't open the message in
Outlook until all the current Word documents are closed.

R.
"Ridge Kennedy" wrote in message
...
Sue Mosher suggested, in a thread on copying rtf text into a message:

Great, because that means you can use the "Office envelope" feature to
create the message directly from the Word document -- no copy and paste
required:

Set env = ActiveDocument.MailEnvelope
Set itm = env.Item ' this is the Outlook message
itm.To = "
itm.Subject = "the subject"
itm.Send ' this will trigger a security prompt

So far, sort of so good. I was able to send a message to myself. It did
try to run spell check but I didn't get a security warning. We've used
office administrative policy to disable some of the warnings for some
attachments, though.

If you want the user to be able to edit and set Outlook properties on the
outgoing item, you can save the message and display it like this:

Yeah -- they have to be able to insert a list of e-mail addresses from
other sources, for example.

itm.Save

I get stuck here. After some experimenting, including having to add
myself to the sharing list for the draft items folder in Outlook, I did
get an corresponding header in the draft items folder. But not a messsage
that I could open??

Had to fiddle with the EntryID a while before finding out it's a string
(variable wouldn't work) and so I was able to muddle through


id = itm.EntryID
Set ol = CreateObject("Outlook.Application")
Set ns = ol.GetNamespace("MAPI")
Set msg = ns.GetItemFromID(id)
msg.Display

But no luck at the end.

I was kind of astonished by the paucity of information/documentation about
the MailEnvelope property from MS or anywhere else. But maybe I'm looking
in the wrong places.

Sincerely,

R (in New Joisey)

What happens when you try?

--
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

"Ridge Kennedy" wrote in message ...
Update: What's happening seems to be this: I can't open the message in
Outlook until all the current Word documents are closed.

R.
"Ridge Kennedy" wrote in message
...
Sue Mosher suggested, in a thread on copying rtf text into a message:

Great, because that means you can use the "Office envelope" feature to
create the message directly from the Word document -- no copy and paste
required:

Set env = ActiveDocument.MailEnvelope
Set itm = env.Item ' this is the Outlook message
itm.To = "
itm.Subject = "the subject"
itm.Send ' this will trigger a security prompt

So far, sort of so good. I was able to send a message to myself. It did
try to run spell check but I didn't get a security warning. We've used
office administrative policy to disable some of the warnings for some
attachments, though.

If you want the user to be able to edit and set Outlook properties on the
outgoing item, you can save the message and display it like this:

Yeah -- they have to be able to insert a list of e-mail addresses from
other sources, for example.

itm.Save

I get stuck here. After some experimenting, including having to add
myself to the sharing list for the draft items folder in Outlook, I did
get an corresponding header in the draft items folder. But not a messsage
that I could open??

Had to fiddle with the EntryID a while before finding out it's a string
(variable wouldn't work) and so I was able to muddle through


id = itm.EntryID
Set ol = CreateObject("Outlook.Application")
Set ns = ol.GetNamespace("MAPI")
Set msg = ns.GetItemFromID(id)
msg.Display

But no luck at the end.

I was kind of astonished by the paucity of information/documentation about
the MailEnvelope property from MS or anywhere else. But maybe I'm looking
in the wrong places.

Sincerely,

R (in New Joisey)

Sue said:

What happens when you try?

I was able to see the new item in the drafts folder of outlook, but not open
it.

I found that if, after

itm.Save

I add a line

activedocument.close wdsavechanges = false

.. . . it works as you said it would, opening the message for further
processing and a final "send".

It ends up as an HTML message and I would have liked RTF, but I guess the
newspapers can live with that.

Thank you for your help and helpful nudge.

Sincerely,

Ridge