Sorry, I am new to VBA in outlook. I have only been doing these for the past
two days now. I am experienced in VBA in excel and can do nearly anything in
that. So the reason why I am doing things this way is that they are the only
way I know how.

To also answer the Saveas question, we need open the saveas dialog box that
prompts the user for the location that they want to save the file and I want
to have the type defualt to and outlook .msg file type for archive purposes.
Many users use the defualt .rtf format and we are trying to be consistant.

I am searching the web for help and this is where I am at as of now. Thanks
for your advice, though not sure how to apply it.

"Ken Slovak - [MVP - Outlook]" wrote:

If this VBA code is running in Outlook VBA do not use CreateObject() to get
your Outlook.Application object, that won't be trusted. Use the intrinsic
Application object in Outlook VBA code, that is trusted. Then derive all of
your Outlook objects from the safe Application object.

If this code isn't running in the Outlook VBA project then you already have
the answers on how to avoid the security dialogs from the article you linked
to.

You can open the SaveAs dialog by using the Execute method on the File,
SaveAs CommandBarButton. However once in that dialog there is no exposure to
the object model. As bad as using SendKeys is there is no alternative for
sending a keypress to the dialog unless you go way low level and use a post
action to post a message to the SaveAs dialog window using Win32 API calls.

May I ask why you are going through those hoops instead of using the SaveAs
method of a MailItem and using the olMSG argument for the type of save?

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"DStrong" wrote in message
...
Hi all-
I am running Outlook 2003 on a WINXP machine, I am trying to add a
groupreply address to the "Have replies sent to" option. JP was able to
assist me with getting that part to work for a new message, but when the
user
has an existing email open and wants to add this, I would like for them to
be
able to click a button and the email address is added. I have used the
sendkeys function and know that is not the best option. Here is my code I
have now:

Sub ExGroup_Reply_PW()
'## adds group reply info only
Dim objMail As Outlook.MailItem
Dim myOlApp As Outlook.Application

Set myOlApp = CreateObject("outlook.application")
Set objMail = myOlApp.ActiveInspector.CurrentItem
With objMail
.ReplyRecipients.Add "
End With
End Sub

It works, but I get the message that Sue speaks of at:
http://outlookcode.com/article.aspx?id=52

I could really use some help with supressing or not getting this warning.


Also, we have used this code to open the saveas option and choose the
outlook .msg as the save type:

sendkeys "%fa%too{tab}"

I would love to use better VBA coding to get this done.