För att minska risken att mail som skickas via er hemsida skall klassifieras som skräppost hos mottagarens e-postsystem rekommenderar vi att ni skickar mail via SMTP istället för direkt från webbservern. Då vår SMTP kräver Autensiering minimerar ni på så vis att servern hamnar på svartlistor.
Observera att för att kunna använda vår SMTP server krävs att ni har ett e-postkonto på vår server och att avsändaradressen är kopplad som svarsadress till detta konto.
Här ser ni exempel på hur man kan använda detta hos oss:
<%
Const cdoSendUsingMethod = _
”http://schemas.microsoft.com/cdo/configuration/sendusing”
Const cdoSendUsingPort = 2
Const cdoSMTPServer = _
”http://schemas.microsoft.com/cdo/configuration/smtpserver”
Const cdoSMTPServerPort = _
”http://schemas.microsoft.com/cdo/configuration/smtpserverport”
Const cdoSMTPConnectionTimeout = _
”http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”
Const cdoSMTPAuthenticate = _
”http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”
Const cdoBasic = 1
Const cdoSendUserName = _
”http://schemas.microsoft.com/cdo/configuration/sendusername”
Const cdoSendPassword = _
”http://schemas.microsoft.com/cdo/configuration/sendpassword”
Dim objConfig ’ As CDO.Configuration
Dim objMessage ’ As CDO.Message
Dim Fields ’ As ADODB.Fields
’ Get a handle on the config object and it’s fields
Set objConfig = Server.CreateObject(”CDO.Configuration”)
Set Fields = objConfig.Fields
’ Set config fields we care about
With Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = ”smtp.fsdata.se”
.Item(cdoSMTPServerPort) = 26
.Item(cdoSMTPConnectionTimeout) = 10
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = ”info@u1234567”
.Item(cdoSendPassword) = ”PaSsw0rD”
.Update
End With
Set objMessage = Server.CreateObject(”CDO.Message”)
Set objMessage.Configuration = objConfig
With objMessage
.To = ”order@domännamn.se”
.From = ”info@erdomän.se”
.Subject = ”Text i ämnesrad #1”
.TextBody = ”SMTP Test Sent @ ” & Now()
.Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
%>