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

  • Thread starter Thread starter wonder why?
  • Start date Start date
W

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:
 
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
 
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
 
Back
Top