[ASP] autorespond in form handler

[Verwijderd]

Ik heb een (veel te lang ) formulier gemaakt waar de ontvanger een opgemaakt HTML-email ontvangt.
Ik zou echter de verzender van het formulier (die verplicht zijn emailadres moet invullen) een auto-reply sturen, met zoiets als 'bedankt voor het invullen enz.'.

Ik heb gezocht maar kon niks vinden..
M.i. moet ik een propertie meegeven en daar een nieuwe tekst inhangen, maar ik zou niet weten welke propertie.

Het einde van de form handler (begin lijkt me niet zo spannend) is:

code:

Dim objCDO
    Set objCDO = Server.CreateObject("CDONTS.NewMail")

    objCDO.To = straan
    objCDO.From = strnaam
    objCDO.Subject = stronderwerp
    objCDO.BodyFormat = 0 
    objCDO.MailFormat = 0 
    objCDO.Body = strHTML 
    objCDO.Send 

    set objCDO = nothing
    
    'redirect naar de "bedankt" pagina
    Response.Redirect strHTTP & "bedankt.asp"

Iemand een idee hoe ik hier een auto-reply aan toevoeg?

[raptorix]

Gewoon dezelfde functie nog een keer gebruiken, alleen ff andere body text lijkt me toch easy?

[Verwijderd]

Ik kijk even of dat werkt

[Ramon]

waarom je gebruikers twee mailtjes sturen?

Ik stuur trouwens m'n mailtjes met het mailcomponent van dimac (www.dimac.net)

[Verwijderd]

Nee, ik stuur mijn gebruikers geen twee mailtjes .

De een is naar de klant en de andere naar de invuller van het formulier, zodat hij weet dat zijn mail goed is aangekomen.

Het is trouwens gelukt met het aanmaken van een zelfde soort object die een apart emailtje verstuurt. Dank.

[raptorix]

Hou er rekening mee dat je een object niet specifiek 2 keer hoeft aan te maken, hoewel het hier niet zoveel uitmaakt kan je beter objecten hergebruiken ivm het innemen van resources.

[Verwijderd]

Maar ik kan als ik aan een object bepaalde waarden heb toegekend, toch niet hetzelfde object daarna andere dingen laten doen met dezelfde functies?

Dus: het lijkt met niet dat dit werkt:

code:

Dim objCDO
    Set objCDO = Server.CreateObject("CDONTS.NewMail")

    objCDO.To = strSendTo
    objCDO.From = strFrom
    objCDO.Subject = strSubject 
    objCDO.BodyFormat = 0 
    objCDO.MailFormat = 0 
    objCDO.Body = strHTML 
    objCDO.Send 

    set objCDO = nothing
    
    Set objCDO= Server.CreateObject("CDONTS.NewMail")
    
    objCDO.To = stremail
    objCDO.From = strSendTo
    objCDO.Subject = "Dank voor uw interesse in ..."
    objCDO.BodyFormat = 0
    objCDO.Mailformat = 0
    objCDO.Body = "Hartelijk dank voor uw interesse in .... We zullen zo spoedig mogelijk contact met u opnemen."
    objCDO.Send

      set objCDO= nothing

Ik zal toch een tweede Object moeten aanmaken die het onderste gedeelte afhandelt?