Ron's Code is greaqt --new at programming excel.
The code you give in MSN for send mail is great I need to automate
one more option from outlook, the voting options

Want to add automatic message options option to Ron's code

Example:
If IsNull(Vote) = False Then
.VotingOptions = Vote
End If

Select Case Urgency
Case 2
.Importance = olImportanceHigh
Case 0
.Importance = olImportanceLow
Case Else
.Importance = olImportanceNormal
End Select

but this is not working in excel.