Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Webprogrammeren & scripting

[asp] Automatisch gegenereerde e-mail in HTML opmaak

None
3 antwoorden
  • Beste mensen,
    Ik ben nog niet lang bezig met ASP dus hoop dat iemand mij kan helpen met deze vraag.

    Graag wil ik een e-mail versturen via een webformulier. De opmaak van de e-mail wil ik graag in HTML. Hierdoor ben ik zelf een script gaan schrijven door gebruik te maken van CDONTS.

    Hij verzendt het mailtje prima en de opmaak gaat ook goed. Alleen ik krijg het bericht zelf niet weergegeven in de uiteindelijke e-mail. Heeft er iemand een idee wat ik fout doe? Het zit hem ongetwijfeld in de response.write… Maar wat?

    Tom.

    Ik heb een index.asp waar ik een formuliertje heb staan. Goed iedereen snapt wel hoe die er uit zal zien. Dan het bestand versturen.asp:

    <%
    ' Declareren van de variabelen
    Dim oMailMessage
    Dim van
    Dim naar
    Dim onderwerp
    Dim bericht


    ' Lees de variabelen van de url in en zet ze in de lokale variabele.
    ' De veldnamen komen dus na form te staan en de waarde komen in de variabelen vooraan te staan.
    Van = request.form("van")
    Naar = request.form("naar")
    Onderwerp = request.form("onderwerp")
    Bericht = request.form("bericht")


    ' Maak een nieuwe e-mail
    Set oMailMessage = Server.CreateObject("CDONTS.NewMail")

    ' Verstuur een e-mail met standaard briefpapier
    oMailMessage.from = Van
    oMailMessage.to = Naar
    oMailMessage.subject = Onderwerp
    oMailMessage.BodyFormat = 0 ' HTML
    oMailMessage.AttachURL "d:\www\website.nl\www\aspscripts\mail\achtergrond.gif", "achtergr.gif"
    oMailMessage.AttachURL "d:\www\website.nl\www\aspscripts\mail\logo.gif", "logo.gif"
    oMailMessage.body = "<style><!– body { font-family: Arial, Verdana; font-size: 10pt; color: #000000; margin-top: 1px; margin-left: 160 px; } img { margin-top: 5px; margin-left: -150px; } –></style></head><body id='ridBody' background='Achtergr.gif'><img id='ridImg' src='logo.gif' align=bottom width='111' height='155'><p></P><SPAN id='_AthCaret'></SPAN><response.write Bericht>"
    oMailMessage.Send()

    ' Geef het NewMail object weer vrij
    Set oMailMessage = Nothing
    %>
  • Response.Write gebruik je om te schrijven naar de HTTP output (lees: naar de bezoeker). Om het bericht aan je string toe te voegen gebruik je in vbscript het concatenatie teken ampersand: &.

    Voorbeeld:
    [code:1:9cc44bcd0b]
    dim mailbody

    mailbody = "<body>" & Bericht & "</body>"

    oMailMessage.body = mailbody
    [/code:1:9cc44bcd0b]

    tip: Om je code een beetje leesbaar te houden kan je in vbscript regels afbreken en op de volgende regel "door laten gaan" door een underscore te gebruiken.

    Voorbeeld:
    [code:1:9cc44bcd0b]
    dim mailbody

    mailbody = "een lange string" & _
    "nog een lange string" & _
    "einde van de mailbody"
    [/code:1:9cc44bcd0b]
  • Ontzettend bedankt. Het werkt nu niet alleen naar behoren, de body van het bericht ziet er nu ook een stuk overzichtelijker uit. Bedankt.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.