Changes to Blog Template

I made some changes to the Blogs Template.
I also added HTML links at the bottom of the www.Ringrose.org website to increase readability for Search Engine Bots.
Also added in Janice and Theron as Blog contributors...

Sitemap.XML

I created a Sitemap.xml file and submitted it to Google...
http://ringrose.org/sitemap.xml

Favicon.ico

I created a FavIcon.ico file so that if you decide to add www.Ringrose.org to your favorites you can have a special Icon I created for the website as the Favorite Icon...
(In IE 5.0 or later just add Ringrose.org as a favorite and it should add the icon automatically...)

Added some more Theron pics

I have updated Ringrose.org with some more Theron Pics
http://www.ringrose.org/6-8_months.htm

Jan and Theron Kayaking

Jan and Theron Kayaking

Gravity!!!

Our son Theron learning about gravity...

Automate Fields in Email (Macros)

I have been working on a Macro to automate emails I do (I work in technical support and a lot of the fields use the same information)..
SendKeys command works well, except I cannot move the cursor to the end of the Subject field to add information to the subject line. I have used PGDN, END and right arrow commands but none seem to work. Currently I use the code below which moves the cursor from the body (default) into the header to fill out information and then back to the body for more and then places the cursor where I would start typing a response. Works great, but would be better if I kept the contents of the subject line and just added information at the End...
If anyone who reads this has a lot of Experience with Macros and knows a better way...please add a comment...
Running this on XP Pro with Office 2003 attached to an Exchange server...
(Note...* is a character replacement to remove company identifiers)...

Public Sub AutoEmail()
SendKeys "+{Tab 5}", True
SendKeys "Tech@*******.com", True
SendKeys "{Tab}", True
SendKeys "{Tab}", True
SendKeys "{Tab}", True
SendKeys "Support_log@******.com", True
SendKeys "{Tab}", True
SendKeys "{Del 50}"
SendKeys "RE: ******* Support 21002"
SendKeys "{Tab}", True
SendKeys "{PGUP}", True
SendKeys " ", True
Selection.TypeText Text:="Hello,"
Selection.TypeParagraph
Selection.TypeText Text:="Thank you for contacting ******* Technical Support. "
Selection.TypeParagraph
Selection.TypeText Text:="If you have any further questions or issues, please reply to this email."
SendKeys "{UP}"
End Sub

First Post

This is my first posting on my Blog.
I have been working on the WWW.Ringrose.org website...let me know what you think, I love positive feedback.