Bouton qui execute une fonction ASP envoi de mail
Résolu
Passarinho44
Messages postés
963
Date d'inscription
mercredi 28 mai 2008
Statut
Contributeur
Dernière intervention
13 juin 2012
-
11 août 2008 à 11:43
Passarinho44 Messages postés 963 Date d'inscription mercredi 28 mai 2008 Statut Contributeur Dernière intervention 13 juin 2012 - 12 août 2008 à 11:21
Passarinho44 Messages postés 963 Date d'inscription mercredi 28 mai 2008 Statut Contributeur Dernière intervention 13 juin 2012 - 12 août 2008 à 11:21
A voir également:
- Bouton qui execute une fonction ASP envoi de mail
- Envoi de sms en masse sfr - Forum PHP
- Remise en fonction - Forum C / C++ / C++.NET
- Verificateur de mail ✓ - Forum Java
- Envoi sms via les commandes at - Forum Java
- Sub ou fonction non définie - Forum VB.NET
2 réponses
Passarinho44
Messages postés
963
Date d'inscription
mercredi 28 mai 2008
Statut
Contributeur
Dernière intervention
13 juin 2012
12 août 2008 à 11:21
12 août 2008 à 11:21
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
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
cs_ghuysmans99
Messages postés
3982
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
16
12 août 2008 à 08:38
12 août 2008 à 08:38
<%
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<
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<
