Kategorien:
Suchbegriffe:
Suchfelder:
Suche starten
Neue Beiträge / Top 7
Alle Artikel / Liste
Bücher zu ASP/ASP.Net
Startseite / Hilfe
Fragen zu ASP/ASP.NET
Datenschutzrichtlinen
Impressum / Kontakt
Das ASP.Net Codebook. Die unentbehrliche Referenz für alle ASP.Net-Entwickler [Autoren: Stefan Falz, Karsten Samaschke]
Active Server Pages-FAQ
Active Server Pages - FAQ (v. 1.50) © 2000 - 2020 by Stefan Falz Webconsulting

GetFile! Dynamischer Dateiupload im Browser

Mail versenden Zurück Druckversion Stefan Falz 01.06.2001
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
%>
Sehr gut
1 2 3 4 5 6
Ungenügend
Zurück | Bisherige Aufrufe: 20233 | Bisherige Bewertungen: 29 | Durchschnitt: 2,21
Stefan Falz Webconsulting