Kategorie: Mail versenden
Frage: Wie versende ich eine EMail mit JMail?
Nachfolgend ein Beispiel zum Versenden einer EMail mit JMail von Dimac.
Bezugsquelle: http://tech.dimac.net/ unter der Rubrik w3 JMail.

[jmail.asp]
<%
Set Mailer = Server.CreateObject( "JMail.Message" )

    Mailer.Logging = true
    Mailer.Silent = true

    ' --- Angeben des Absendernamens und dessen EMailadresse
    Mailer.From = "info@absender.de"
    Mailer.FromName = "Test Absender"

    ' --- Angeben des Empfängers
    Mailer.AddRecipient "info@empfaenger.de", "Test Empfaenger"

    ' --- Angeben des Betreffs
    Mailer.Subject = "Betreff dieser EMail"

    ' --- Angeben des Mailtextes
    Mailer.Body = "Hallo Welt," & vbCrLf & "Test, Test, Test"

    ' --- Absenden der EMail
    ' --- Hier wird erst der Mailserver angegeben
    If not Mailer.Send("mail.server.de" ) Then
        Response.Write "Fehler: " & vbCrLf & Mailer.Log
        Else
            Response.Write "Mail erfolgreich versendet"
    End if
Set Mailer = Nothing
%>



Um mehrere EMails zu versenden, genügt es, lediglich die zu ändernden Informationen
auszutauschen (bei einem Newsletter normalerweise nur der Name und die EMailadresse
des Empfängers) und wiederum die Methode Send aufzurufen. Das Objekt selbst muss
nicht wieder mit Set Mailer = Server.CreateObject("JMail.Message") neu erstellt werden.



[jmailloop.asp]
<%

' --- Hier wird z.B. eine Abfrage aus einer Datenbank gestartet,
' --- um die EMailempfänger zu ermitteln.
...

Set Mailer = Server.CreateObject( "JMail.Message" )

    Mailer.Logging = true
    Mailer.Silent = true

    ' --- Angeben des Absendernamens und dessen EMailadresse
    Mailer.From = "info@absender.de"
    Mailer.FromName = "Test Absender"

    ' --- Angeben des Betreffs
    Mailer.Subject = "Betreff dieser EMail"

    ' --- Angeben des Mailtextes
    Mailer.Body = "Hallo Welt," & vbCrLf & "Test, Test, Test"

    Do While Not objRS.EOF

        ' --- Angeben des Empfängers
        Mailer.AddRecipient "info@empfaenger.de", "Test Empfaenger"

        ' --- Absenden der EMail
        ' --- Hier wird erst der Mailserver angegeben
        If not Mailer.Send("mail.server.de" ) Then
            Response.Write "Fehler: " & vbCrLf & Mailer.Log
            Else
                Response.Write "Mail erfolgreich versendet"
        End if

        objRS.MoveNext
    Loop

    objRS.Close
Set objRS = Nothing

Set Mailer = Nothing
%>
Copyright 2000 - 2022 by Stefan Falz Webconsulting