Bouton qui execute une fonction ASP envoi de mail [Résolu]

Signaler
Messages postés
963
Date d'inscription
mercredi 28 mai 2008
Statut
Contributeur
Dernière intervention
13 juin 2012
-
Messages postés
963
Date d'inscription
mercredi 28 mai 2008
Statut
Contributeur
Dernière intervention
13 juin 2012
-
Bonjour à tous !

J'ai une question qui peut paraitre plutôt simple mais je n'ai pas trouvé la méthode pour le faire donc je me tourne vers vous

Je voudrais créer un bouton qui execute ma fonction d'envoi de mail.

Voici ce que j'ai pour le moment :

Ma fonction :

Function Envoi_mail()
 numero_semaine =DatePart("ww",Date)& "/"& DatePart("yyyy",Date)
 call Text_mail()
 set mailer     = CreateObject("CDO.message")
 mailer.Subject = "Permanence exploit de la semaine " & numero_semaine
 mailer.HTMLBody = Text_Mail
 mailer.From = "[mailto:moi@fournisseur.fr moi@fournisseur.fr]"
 mailer.To = "[mailto:moi@fournisseur.fr moi@fournisseur.fr]"
 mailer.send()
 Set mailer = nothing
End function

Et mon formulaire d'envoi (je veux juste mettre un bouton)

<form ID="form_envoi_mail" runat="server">
 " Text="ENVOYER MAIL" />
</form>

<form name="form_envoi_mail" method="post" action="Insert_permanence(2).asp" id="form_envoi_mail">
 

<form>

J'ai trouvé ça sur internet mais je ne suis pas sûr que ça soit la bonne méthode :s

2 réponses

Messages postés
963
Date d'inscription
mercredi 28 mai 2008
Statut
Contributeur
Dernière intervention
13 juin 2012

Bonjour,

Merci pour ta réponse !

Je ne l'ai pas testé car j'ai trouvé une méthode qui correspond plus à ce que je voulais faire au début ...

Pour info j'ai finalement utilisé le JavaScript et l'ouverture de Outlook sur le poste client gràce à un ActiveX.

A bientôt
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
14
<%
Function Envoi_mail()
 numero_semaine =DatePart("ww",Date)& "/"& DatePart("yyyy",Date)
 call Text_mail()
 set mailer     = CreateObject("CDO.message")
 mailer.Subject = "Permanence exploit de la semaine " & numero_semaine
 mailer.HTMLBody = Text_Mail
 mailer.From = "moi@fournisseur.fr"
 mailer.To = "moi@fournisseur.fr"
 mailer.send()
 Set mailer = nothing
End function

Dim Action : Action = Request.Form("Action")
Select Case Action
 Case "envoi"
  Envoi_mail
 Case Else
  %>
<form name="myform" method="post">
   
   
</form>
  <%
End Select
%>
_________________________________________________________________________
VB.NETis good ...VB6is better<