Hello everybody,

I need some help with VBA in Outlook 2003.
I need a macro to do the following :
When a message is selected: the macro open a new message replying to
the original sender, add a recipient in copy ),
displaying a custom body text : "Hello, we've received you message."
and add the original message in attachment.

Thank you for your help...

Am 31 May 2006 14:00:43 -0700 schrieb :

You could try something like this. Please note that it is subject to
security issues.

Public Sub Sample()
Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem

Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
Reply.Recipients.Add "
Reply.Recipients.ResolveAll
Reply.Attachments.Add Original
Reply.Body = "Some text"
Reply.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Hello everybody,

I need some help with VBA in Outlook 2003.
I need a macro to do the following :
When a message is selected: the macro open a new message replying to
the original sender, add a recipient in copy ),
displaying a custom body text : "Hello, we've received you message."
and add the original message in attachment.

Thank you for your help...

great... it works !

Can you give me a last tip : is it possible to add the recipient
" in copy (not recipient) of the message ?

thanks for your help...




Michael Bauer a écrit :

Am 31 May 2006 14:00:43 -0700 schrieb :

You could try something like this. Please note that it is subject to
security issues.

Public Sub Sample()
Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem

Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
Reply.Recipients.Add "
Reply.Recipients.ResolveAll
Reply.Attachments.Add Original
Reply.Body = "Some text"
Reply.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Hello everybody,

I need some help with VBA in Outlook 2003.
I need a macro to do the following :
When a message is selected: the macro open a new message replying to
the original sender, add a recipient in copy ),
displaying a custom body text : "Hello, we've received you message."
and add the original message in attachment.

Thank you for your help...

Am 1 Jun 2006 07:31:31 -0700 schrieb :

Do you mean CC? The Recipients.Add returns a Recipient object. Please use
that and set its Type property =olCC.

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


great... it works !

Can you give me a last tip : is it possible to add the recipient
" in copy (not recipient) of the message ?

thanks for your help...




Michael Bauer a écrit :

Am 31 May 2006 14:00:43 -0700 schrieb :

You could try something like this. Please note that it is subject to
security issues.

Public Sub Sample()
Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem

Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
Reply.Recipients.Add "
Reply.Recipients.ResolveAll
Reply.Attachments.Add Original
Reply.Body = "Some text"
Reply.Display
End Sub

--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
-- www.vbOffice.net --


Hello everybody,

I need some help with VBA in Outlook 2003.
I need a macro to do the following :
When a message is selected: the macro open a new message replying to
the original sender, add a recipient in copy ),
displaying a custom body text : "Hello, we've received you message."
and add the original message in attachment.

Thank you for your help...

Thanks a lot...

i've just modified the code :

Public Sub Reply_Withcc()
Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem
Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
With Reply
Set MyCC = ")
MyCC.Type = olCC
Reply.Recipients.ResolveAll
Reply.Attachments.Add Original
Reply.Body = "Your demand is in progress..."
Reply.Display
End With
End Sub

It works great...

Thanks