M
Memento
Hi Guys,
I'm trying to use the following expression to prepare my email addresses.
This expression should take the firstname and lastname, convert it all to
lowercase characters, append @somewhere.xx, and with the Left instruction
hide the mailto: of the string.
"Mailto:" has to be used, because otherwise Access assumes the HTTP protocol
instead of the Mailto: protocol. Programmatically creating emails if
cumbersome: if done wrong, nothing happens when you click on a
programmatically created email address.
But i'm guessing here this cannot be done as I want it to.
The txtEmail field is nowhere written yet at this point in code, in the
actual procedure there is first a check to see if the email exists, if it is
not, it's allowed to write the new email address in the underlying format to
the table.
What's happening with this code? I'm getting a "Illegal procedure call or
Illegal argument" error message... anyone sees a correct line in here??
txtEmail = (LCase("#mailto:" & (Left(txtSurName, InStr(1, txtSurName, "#") -
1) & "#") & "." & ReplaceWithDots(LCase(txtLastName) & "@somewhere.xx")))
Thanks in advance guys,
With regards,
Sven
I'm trying to use the following expression to prepare my email addresses.
This expression should take the firstname and lastname, convert it all to
lowercase characters, append @somewhere.xx, and with the Left instruction
hide the mailto: of the string.
"Mailto:" has to be used, because otherwise Access assumes the HTTP protocol
instead of the Mailto: protocol. Programmatically creating emails if
cumbersome: if done wrong, nothing happens when you click on a
programmatically created email address.
But i'm guessing here this cannot be done as I want it to.
The txtEmail field is nowhere written yet at this point in code, in the
actual procedure there is first a check to see if the email exists, if it is
not, it's allowed to write the new email address in the underlying format to
the table.
What's happening with this code? I'm getting a "Illegal procedure call or
Illegal argument" error message... anyone sees a correct line in here??
txtEmail = (LCase("#mailto:" & (Left(txtSurName, InStr(1, txtSurName, "#") -
1) & "#") & "." & ReplaceWithDots(LCase(txtLastName) & "@somewhere.xx")))
Thanks in advance guys,
With regards,
Sven