Rejje
06-01-2011, 05:25 AM
Hi!
How can I make this work?
First see:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=281
Then see below:
If OneMarksRange("EMAIL_ADDRESS") Then
Call email ' Sub email syntax altered to do below:
If Situacao = "Valid e-mail syntax!" Then
ReturnTheValidProvenEmailAddressToRange("EMAIL_ADDRESS")
Else
txtEmail = InputBox("Type the address", "e-mail address") ' Let's go for yet another try until the user cancels!
End If
End If
How can I make this work?
First see:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=281
Then see below:
If OneMarksRange("EMAIL_ADDRESS") Then
Call email ' Sub email syntax altered to do below:
If Situacao = "Valid e-mail syntax!" Then
ReturnTheValidProvenEmailAddressToRange("EMAIL_ADDRESS")
Else
txtEmail = InputBox("Type the address", "e-mail address") ' Let's go for yet another try until the user cancels!
End If
End If