E-Mails mit ASP versenden

Das nachfolgende Script-Beispiel stellt Ihnen einen funktionierenden ASP E-Mail-Script zur Verfügung, welcher unter Verwendung von Collaboration Data Object (CDO) Nachrichten versendet:

1. <%
2. Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
3. Const cdoSendUsingPort = 2 'Send the message using the network(SMTP over the network).
5. Const cdoAnonymous = 0 'Do not authenticate
6. Const cdoBasic = 1 'basic(clear - text) authentication
7. Const cdoNTLM = 2 'NTLM
9. Set objMessage = CreateObject("CDO.Message")
10. objMessage.Subject = "hostfactory.ch ASP - CDO Ihre Testnachricht"
11. objMessage.From = "ihre@gueltigeAdresse.ch"
12. objMessage.To = "recipient@empfaenger.ch"
13. objMessage.Cc = "secondrecipient@empfaenger.ch"
14. objMessage.TextBody = "Dies ist eine Testnachricht über ASP / CDO" & vbCRLF & "Diese Nachricht wurde mit SMTP-Auth. versandt (zwingend!)."
16. ' == This section provides the configuration information for the remote SMTP server.
18. objMessage.Configuration.Fields.Item _
19. ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
21. 'Name or IP of Remote SMTP Server
22. objMessage.Configuration.Fields.Item _
23. ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
25. 'Type of authentication, NONE, Basic(Base64 encoded), NTLM
26. objMessage.Configuration.Fields.Item _
27. ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
29. 'Your UserID on the SMTP server
30. objMessage.Configuration.Fields.Item _
31. ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "absender@ihreDomain.ch"
33. 'Your password on the SMTP server
34. objMessage.Configuration.Fields.Item _
35. ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pASSwoRd"
37. 'Server port (typically 25)
38. objMessage.Configuration.Fields.Item _
39. ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
41. 'Use SSL for the connection(False or True)
42. objMessage.Configuration.Fields.Item _
43. ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
45. 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
46. objMessage.Configuration.Fields.Item _
47. ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
49. objMessage.Configuration.Fields.Update
51. ' == End remote SMTP server configuration section ==
53. objMessage.Send
54. %>

Bitte beachten Sie, dass alle oben gesetzten Werte in Rot wie 'Benutzername', 'Empfängeradresse' usw. durch gültige persönliche Werte zu ersetzen sind.

Damit Sie einen gültigen Benutzernamen (vollständige Mailadresse) sowie ein gültiges Passwort angeben können, müssen Sie dieses Postfach vorgängig in Ihrem Kunden-Center erstellen und Zugangsdaten vergeben: my.hostfactory.ch » 'Webhostings' » (allf. Webhosting wählen) » (Domain wählen) » 'E-Mail'

Dieser Artikel ist nur für Windows-Hosting Accounts gültig, auf Linux steht kein ASP-Support zur Verfügung.