Ga naar inhoud

Tabel mailen met ASP


Aanbevolen berichten

'senMail(sFrom,sTo,sSubject,sBody), boolean 'sFrom Afzender emailadres, string 'sTo Emailadres geadresseerde, string 'sSubject Onderwerp, string 'sBody De tekst (body) van de email, string '-------------------------------------------------- Function sendMail(byval sFrom, byval sTo, byval sSubject,byval sBody) Dim objMail If sFrom = "" Or sTo = "" Or sBody = "" Then sendMail = False Exit Function End If Set objMail = Server.CreateObject("CDONTS.NewMail") If inStr(sBody, "<html>") > 0 Then objMail.BodyFormat = 0 ' HTML objMail.MailFormat = 0 Else objMail.BodyFormat = 1 ' Plain Text objMail.MailFormat = 1 End If on error resume next objMail.Send sFrom, sTo,sSubject, sBody on error goto 0 If err.Number <> 0 Then sendMail = False Else sendMail = True End If End Function '--------------------------------------------------- Deze functie zal de body doorzoeken op "<html>" als dit erin voorkomt wordt de bodyformat = 0 en de mailfomat = 0, dit betekent HTML. Als alles goed is verlopen dan retourneerd de functie TRUE. Anders kan je de input controleren of het "Err" object ff nalopen.
Link naar reactie

Om een reactie te plaatsen, moet je eerst inloggen

Gast
Reageer op dit topic

×   Geplakt als verrijkte tekst.   Herstel opmaak

  Er zijn maximaal 75 emoji toegestaan.

×   Je link werd automatisch ingevoegd.   Tonen als normale link

×   Je vorige inhoud werd hersteld.   Leeg de tekstverwerker

×   Je kunt afbeeldingen niet direct plakken. Upload of voeg afbeeldingen vanaf een URL in

  • Populaire leden

    Er is nog niemand die deze week reputatie heeft ontvangen.

  • Leden

    Geen leden om te tonen

×
×
  • Nieuwe aanmaken...