Générateur de e-mail à partir d'un nom

Commenter

Contenu du snippet

Petite fonction servant à générer un e-mail à partir d'un Nom. Génération du e-mail comme les e-mails (et par le fait même les noms d'usagers) de Windows NT. Gestion des noms composés. C'est de bas niveau, mais j'en suis à mes premiers jours en ASP! Alors...

Source / Exemple : 


<html><body>
<%language=VBscript%>
<%
Dim outputmail
Dim finfor

Public Sub Traitmail(varmail)
	finfor = 0
	outputmail = lcase(Mid((varmail),1,1))
	For i = 2 To Len(varmail)
		If finfor = 0 Then
			If (Mid(varmail,i,1)) = "-" Then
				outputmail = outputmail & Mid(varmail, (i+1), 1)
			Elseif Mid((varmail),i,1) = " " Then
				finfor = 1
			End If
		Else
			outputmail = lcase(outputmail & Mid((varmail), i, 1))
		End If
    Next
	outputmail = outputmail & "@domaine.com"
	Response.Write "<a href=mailto:" & outputmail & ">" & varmail & </a>"
End Sub

Traitmail("Jean-Pierre Tremblay")
%>
</body></html>

Conclusion :


Il y a la gestion des Accent qui n'est pas encore implémenté!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.