Email Komonenten in ASP

[reto]

Hi!

Ich würde gerne einige ASP-Emailkomponenten auf meinem Webserver (Win2k) installieren: ASPMail, ASPEMail, CDONTS (ist schon drauf, funktioniert aber irgendwie nicht), JMail & OCXMail.

Meine Frage: Wo krieg ich das her? Auf ASP.net und aspin.com habe ich so auf Anhieb nix gefunden... leider. Also, wer kann mir da helfen?

Thx in advance

 

[Thimo Grauerholz]

hi,

siehe http://www.serverobjects.com z.b.

 

[Alexander Schuc]

hi,..

bei http://www.aspemail.com/ gibts auche eine e-mail komponente..

mfg,
crazy

 

[reto]

thx

Danke für eure Antworten! Werd das gleich mal ausprobieren...

 

[Boli]

Das müsste eigentlich ohne Probleme laufen !

strbody kommt deine Nachricht rein !
objConfig.Fields(cdoSMTPServer) = "IP_oder_Adresse"

<!--METADATA TYPE="typelib" 
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" 
NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib" 
UUID="00000205-0000-0010-8000-00AA006D2EA4" 
NAME="ADODB Type Library" -->

'Neuer Versand
 Dim strFrom, strTo, strSubject, strBody
 Dim objMessage, objConfig
 

' Absender
 strFrom = "@."
' Empfaenger
 strTo   = stremail
' Betreff
 strSubject = "Subject"
'Body
 strBody = strBody & "Dein Body" 

' Message und Configuration Objekte instanzieren
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

' Konfigurieren:
' Nachricht an externen Mailserver verschicken
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
' Emailserver: mail.domain.com
objConfig.Fields(cdoSMTPServer) = "IP_oder_Adresse"
' Emailport: 25 (Standard bei SMTP Server)
objConfig.Fields(cdoSMTPServerPort) = 25
' Authentifizierung am Emailserver: Keine
objConfig.Fields(cdoSMTPAuthenticate) = cdoAnonymous

' Configuration updaten
objConfig.Fields.Update

' CDO-Nachricht erstellen:
' Konfiguration an Nachricht binden
Set objMessage.Configuration = objConfig 

objMessage.To       = strTo      ' Empfaenger
objMessage.To       = strTo & ",@."     ' Empfaenger
objMessage.From     = strFrom    ' Absender
objMessage.Subject  = strSubject ' Betreff
objMessage.TextBody = strBody    ' Nachricht

' Error Handling waehrend dem Versenden:
On Error Resume Next

' CDO-Nachricht senden
objMessage.Send

On Error Goto 0