S
Srta Evita
Below is the macro, copied from MS Word, where it works perfectly! In
Outlook I get all sorts of error messages and debugging, which I don't
understand. Thanks for any help.
Sub SafariCare()
'
' SafariCare Macro
' Macro recorded 6/4/2007 by Eva Wilson
'
Selection.TypeText Text:= _
"Thank you for your participation in the SafariCare program! "
Selection.TypeText Text:= _
" Attached are the program guidelines for your convenience. "
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:= _
"When you return from your mission, please return your Safari"
Selection.TypeText Text:= _
"Care bag to me promptly for washing and recycling. In addit"
Selection.TypeText Text:= _
"ion, if you'll submit a short (250-300 word) report plus a f"
Selection.TypeText Text:= _
"ew high-resolution photographs of your mission, I will publi"
Selection.TypeText Text:= _
"sh it for you in Safari Times and use it in my quarterly new"
Selection.TypeText Text:="sletters and/or museum/chapter slide shows."
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="Please let me know if you have any questions. "
End Sub
Outlook I get all sorts of error messages and debugging, which I don't
understand. Thanks for any help.
Sub SafariCare()
'
' SafariCare Macro
' Macro recorded 6/4/2007 by Eva Wilson
'
Selection.TypeText Text:= _
"Thank you for your participation in the SafariCare program! "
Selection.TypeText Text:= _
" Attached are the program guidelines for your convenience. "
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:= _
"When you return from your mission, please return your Safari"
Selection.TypeText Text:= _
"Care bag to me promptly for washing and recycling. In addit"
Selection.TypeText Text:= _
"ion, if you'll submit a short (250-300 word) report plus a f"
Selection.TypeText Text:= _
"ew high-resolution photographs of your mission, I will publi"
Selection.TypeText Text:= _
"sh it for you in Safari Times and use it in my quarterly new"
Selection.TypeText Text:="sletters and/or museum/chapter slide shows."
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="Please let me know if you have any questions. "
End Sub