E-Mail mit Authentifizierung mit ASP CDO versenden

Beispielscript für das versenden von E-Mails mittels ASP.

<%

Const cdoSendUsingPickup = 1 'E-Mail mithilfe des SMTP Pickup Verzeichnis versenden .
Const cdoSendUsingPort = 2 'E-Mail mithilfe des Netwerkes versenden. (SMTP over the network).

Const cdoAnonymous = 0 'keine Authentifizierung
Const cdoBasic = 1 'Klartext Authentifizierung
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = """DeinNmae"" <ww@yy.com>" 
objMessage.To = "dietmar@harb.at" 
objMessage.TextBody = "Beispieltext" & vbCRLF & "SMTP Authentifizierung."

'== Nachfolgende Sektion dient zum Konfigurieren des Remote SMTP Servers.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "domainname"

'Authentifizierungsmethode, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'UserID des SMTP Servers, meist die E-Mailadresse
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ww@yy"

'Passwort des SMTP Servers
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "+++++"

'Server Port (normalerweise 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

'SSL verwenden? (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'Connection Timeout in Sekunden 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage.Configuration.Fields.Update

'==End Konfiguration SMTP Server==

objMessage.Send

%>