Word 2003 Email Macros not working...

K

Kurt

I am creating a Macro to Automate functions with email. It keeps
missing some keys ECT...does anyone have ideas to clean my code up a
bit and make it more functional...I am using Office 2003 and the Focus
starts in the From field of an email...

"#" is replacement text for Privacy...

Public Sub AutoEmail()
SendKeys "####@####.###", True
SendKeys "{Tab}", True
SendKeys "{Tab}", True
SendKeys "{Tab}", True
SendKeys "Support_log@#####.###", True
SendKeys "{Tab}", True
SendKeys "{PGDN}", True
SendKeys " ", True
SendKeys "21002", True
SendKeys "{Tab}", True
SendKeys "{PGUP}", True
SendKeys " ", True
Selection.TypeText Text:="Hello,"
Selection.TypeParagraph
Selection.TypeText Text:="Thank you for contacting ##### ######
######. "
Selection.TypeParagraph
Selection.TypeText Text:="If you have any further questions or
issues, please reply to this email."
SendKeys "{UP}"
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Converting macros from Excel 2003 to Excel 2010 - Client Access dialog 3
Word macro that can call cells out of Excel for a find and replace 0
How to modify a Word macro written for Windows so that will work on MAC 0
Inserting dummy text from a macro revisited 5
Email to single person macro in Outlook 8
Emailing range in message body using VBA - problem 6
Replace Existing File? Y/N in a Macro or VBA 5
Application.SendKeys & Printing 3

Top