envoi d'un mail de confirmation

Question

bonjour a tous,
je construit un site web pour un théatre (c'est un truc fictif pour mon stage), je voudrais pouvoir envoyer un mail de confirmation aprés que la commande des places ait été realisée, avec le résumé etc etc..
donc ma question est la suivante : comment on fait ? j'entend par la une piste, pas une solution ou un code tout fait sinon c'est pas drôle
je construit mon site avec de l'asp, sql, javascript (et de l'html, mais ca c'était plutôt evident lol)

merci a tous

tempus75 · Answer

Edit: désole je me suis trompé de theme, ca n'a rien a faire dans Accés... mais je ne trouve pas comment le rediriger

cs_ghuysmans99 · Answer

Que veux-tu dire par "rediriger" ?
_________________________________________________________________________
VB.NETis good ...VB6is better<

tempus75 · Answer

je veux dire juste changer de theme c'est de l'asp/sql pas de l'Accés

cs_ghuysmans99 · Answer

Pour ta question : Il est possible d'envoyer un mail via CDO.Message, voici une fonction pour le faire (tirée du projet Syslog Server, sur SourceForge) : Option Explicit Public Sub SendMail(MailFrom As String, MailTo As String, MailSubject As String, MailBody As String, Optional MailRelay As String = "") Dim CDO_obj 'As New CDO.Message <=> As Object Set CDO_obj = Server.CreateObject("CDO.Message") With CDO_obj If MailRelay <> "" Then .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = MailRelay .Configuration.Fields.Update End If .From = MailFrom .To = MailTo .Subject = MailSubject .HTMLBody = MailBody .Send End With 'CDO_obj Set CDO_obj = Nothing End Sub

, ---- Colorisation syntaxique par Renfield _________________________________________________________________________ VB.NETis good ...VB6is better<

cs_ghuysmans99 · Answer

Oups ... petite erreur : Option Explicit Public Sub SendMail(MailFrom, MailTo, MailSubject, MailBody, Optional MailRelay = "") Dim CDO_obj 'As New CDO.Message <=> As Object Set CDO_obj = Server.CreateObject("CDO.Message") With CDO_obj If MailRelay <> "" Then .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing").Value = 2 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver").Value = MailRelay .Configuration.Fields.Update End If .From = MailFrom .To = MailTo .Subject = MailSubject .HTMLBody = MailBody .Send End With 'CDO_obj Set CDO_obj = Nothing End Sub

, ---- Colorisation syntaxique par Renfield _________________________________________________________________________ VB.NETis good ...VB6is better<

Envoi d'un mail de confirmation

5 réponses

Votre réponse

Discussions similaires