D
DStrong
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 "(e-mail address removed)"
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.
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 "(e-mail address removed)"
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.