DevTrain

Autor: Hannes Preishuber

Mails lesen über CDOSYS (CDONTS)

Da ich bereits drauf angesprochen wurde, kurz der Hinweis, wie Sie mit Attachments arbeiten. In diesem Artikel zeige ich in den Beispielen mit CDOSYS (IIS5) den Code. Um Anhänge zu versenden, verwenden Sie AddAttachment.Für mehrere Anhänge wiederholen Sie den Vorgang.

CdoMail.AddAttachment ( Server.mappath("mailcdosys.asp"))
 
Auch HTML Text in den Mails kann versandt werden.

Eingehende Mails lesen

Da der SMTP Server über kein POP3 Protokoll verfügt, fehlt eine Methode um die Mails vom Server abzurufen. Auch das geht mit ASP und CDONTS. Dazu hat CDOSYS eine eigene Klasse. Durch die Auflistung der Mailobjekte können Sie dan durchiterieren.

<%
' Drop Verzeichnis auslesen
Set objDropDir = Server.CreateObject("CDO.DropDirectory")
Set colMsg = objDropDir.GetMessages()
For Each cdoMail in colMsg
   strBody = cdoMail.TextBody
   Response.Write "From: " & cdoMail.From & "<BR>"
   Response.Write "To  : " & cdoMail.To & "<BR>"
   Response.Write "Subject: " & cdoMail.Subject & "<BR>"
   Response.Write strBody & "<p>"
Next
Set objDropDir = Nothing 
%>

 
Sie können für jede eMail Domain ein eigenes Drop Directory anlegen. Um dieses dann auszulesen können Sie den Pfad als Parameter setzen.
Set objDropDir = CreateObject("CDO.DropDirectory")
strDropDir = "c:Inetpubmailroot onerDrop"
Set colMsg = objDropDir.GetMessages(strDropDir)

Da für die komplette Domain ein Drop Verzeichnis verwendet wird, landen alle Mails dort. Um den einzelnen Empfänger zu seperieren, können Sie über TO den oder die Empfänger auslesen. Wenn mehrere Empfänger enthalten sind, müssen Sie über eine Stringoperation diese zerlegen.

Es steht ihrem eigenem GMX nichts mehr im Wege. Alles mit kostenloser Software.


Erfasst am: 08.02.2001 - Artikel-URL: http://www.devtrain.de/news.aspx?artnr=299
© Copyright 2003 ppedv AG - http://www.ppedv.de