Kategorie: Mail versenden
Frage: Wie versende ich eine EMail mit OCXMail?
Nachfolgend ein Beispiel zum Versenden einer EMail mit OCXMail von Flicks Software.
Bezugsquelle: http://www.flicks.com/ unter der Rubrik ASPMail.

[ocxmail.asp]
<%
Set Mailer = Server.CreateObject("ASPMail.ASPMailCtrl.1")

    ' --- Aufrufen der Methode SendMail. Als Rückgabewert kommt bei einem
    ' --- Fehler die entsprechende Fehlermeldung, ansonsten ein Leerstring.
    ' --- Alle Angaben werden direkt beim Aufruf dieser Methode mitgegeben.
    MailerResult = Mailer.SendMail("mail.server.de", "info@empfaenger.de", "info@absender.de", "Betreff", "Mailtext")

    If  MailerResult = "" Then
        Response.Write "<strong>Die eMail wurde erfolgreich versendet.</strong>"
        Else
            Response.Write MailerResult
    End If

Set Mailer = Nothing
%>



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



[ocxmailloop.asp]
<%

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

Set Mailer = Server.CreateObject("ASPMail.ASPMailCtrl.1")

    Do While Not objRS.EOF

        ' --- Aufrufen der Methode SendMail. Als Rückgabewert kommt bei einem
        ' --- Fehler die entsprechende Fehlermeldung, ansonsten ein Leerstring.
        ' --- Alle Angaben werden direkt beim Aufruf dieser Methode mitgegeben.
        MailerResult = Mailer.SendMail("mail.server.de", "info@empfaenger.de", "info@absender.de", "Betreff", "Mailtext")

        If  MailerResult = "" Then
            Response.Write "<strong>Die eMail wurde erfolgreich versendet.</strong>"
            Else
                Response.Write MailerResult
        End If

        objRS.MoveNext
    Loop

    objRS.Close
Set objRS = Nothing

Set Mailer = Nothing
%>

Copyright 2000 - 2021 by Stefan Falz Webconsulting