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 27.05.2002
Frage: Wie versende ich eine Email mit CDOSYS?
Nachfolgend ein Beispiel zum Versenden einer EMail mit CDOSYS von Microsoft.
Bezugsquelle: In der Windows 2000 Installation integriert (optional).
CDOSYS ist der Nachfolger von CDONTs, allerdings um einiges leistungsfähiger.
So ist es beispielweise möglich, Attachments von anderen Server durch Angabe
der URL zu laden (http://www.einedomain.de/verzeichnis/datei.ext).

[cdosys.asp]
<%
Set Mailer = CreateObject("CDO.Message")

    ' --- Absender und Empfänger einstellen
    Mailer.From = """Der Absender"" <absender@irgendeinedomain.de>"
    Mailer.To = """Der Empfaenger"" <empfaenger@irgendeinedomain.com>"

    ' --- Betreff und Mailtext einstellen
    Mailer.Subject = "Betreff"
    Mailer.TextBody = "Mailtext"

    ' --- Attachment anhängen (wenn benötigt)
    Mailer.AddAttachment Server.MapPath("./attachments/anhang.txt")
    ' --- oder
    Mailer.AddAttachment "http://www.ihredomain.de/attachments/anhang.txt"


    ' --- EMail versenden
    Mailer.Send

Set Mailer= Nothing
%>



Um mehrere EMails zu versenden, muss das Message-Objekt für jede EMail neu intantiiert
und die Parameter neu besetzt werden.



[cdosysloop.asp]
<%

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

    Do While Not objRS.EOF

        Set Mailer = CreateObject("CDO.Message")

            ' --- Absender und Empfänger einstellen
            Mailer.From = """Der Absender"" <absender@irgendeinedomain.de>"
            Mailer.To = """Der Empfaenger"" <empfaenger@irgendeinedomain.com>"

            ' --- Betreff und Mailtext einstellen
            Mailer.Subject = "Betreff"
            Mailer.TextBody = "Mailtext"

            ' --- EMail versenden
            Mailer.Send

        Set Mailer= Nothing

        objRS.MoveNext
    Loop

    objRS.Close
Set objRS = Nothing
%>

Sehr gut
1 2 3 4 5 6
Ungenügend
Zurück | Bisherige Aufrufe: 20967 | Bisherige Bewertungen: 39 | Durchschnitt: 2,21
Stefan Falz Webconsulting