how to add ...person wrote...email address..reply

[wonder why?]

My question about Outlook: How do I have this entered automatically when
sending a reply?

"In a message dated 9/21/09 11:10:12 P.M. Eastern Daylight Time,
(e-mail address removed) writes:"

Is there a website to learn this? Or is there software that will do this
and some other such entries.
The automatic...out of office...we can find.. I have not been able to find
this online.
Thanks.



In a message dated 9/21/09 11:10:12 P.M. Eastern Daylight Time,
(e-mail address removed) writes:

 

[Ken Slovak - [MVP - Outlook]]

If you want to learn about Outlook programming the best site is
www.outlookcode.com.

 

[pete the greek]

hi heres a starter for you

a macro you could have on a button

Sub replytest()
Set ThisItem = Application.ActiveExplorer.Selection
Set thisreply = ThisItem.Item(1).Reply
Message = InputBox("please type your message")
thisreply.Body = "In a message dated " & Date & Message & " Eastern Daylight
Time,[email protected] writes:" & thisreply.Body

thisreply.Send
End Sub


my only problem is i cant work out how to make the reply visible so you can
add your message to the mail
you could add an inputbox to the macro to gather your message ( as shown)

but im sure someone out there will put me out of my misery and explain how
to get the reply visible so you could type directly in it


regards

pete

 

[pete the greek]

try this

you need to add this code in the vba window(alt+f11) will get you there

once you have it there you could customise a toolbar to give you a button to
run it

Sub replytest()
Set ThisItem = Application.ActiveExplorer.Selection
Set thisreply = ThisItem.Item(1).Reply
thisreply.Body = "In a message dated" & Chr(32) & Date & Chr(32) & Time &
Chr(32) & "Eastern Daylight Time" & Chr(10) & Chr(10) &
"(e-mail address removed) writes:" & thisreply.Body

thisreply.Display
End Sub