3 svar · 406 visningar · startad av Fredde Mannen
Hur posta genom lokal exchange server via ASP 3.0?
Dvs den ligger inom samma nät som Webservern. Jag vill inte mailet skall ta svängen ut på nätet, utan kan man skicka mailet den lokala vägen?
Specifik komponent? Vilken? Tvivlar på att det går med CDONTS-komponenten.
Nu är det kanske jag som tänker krokigt, men det är väl upp till mailservern, och det normala är väl att ett exchangeserver aldrig "tar svängen om nätet" för en adress som ligger under den själv.
Dvs om du skickar ett mail till en adress som ligger under samma server kommer det ju bara att levereras till den inboxen.
Men som sagt, det känns som det är något jag inte fattar i frågan.
/pebi
Nu är det kanske jag som tänker krokigt, men det är väl upp till mailservern, och det normala är väl att ett exchangeserver aldrig "tar svängen om nätet" för en adress som ligger under den själv.
Dvs om du skickar ett mail till en adress som ligger under samma server kommer det ju bara att levereras till den inboxen.
Men som sagt, det känns som det är något jag inte fattar i frågan.
/pebi
1. ) Den inbyggda komponenten CDONTS i IIS:en som ligger på en annan maskin än exchange-servern, använder ju sig av den lokala maskinens smtp-tjänst.
Går det att ange adressen till exchange-serverns smtp-tjänst till CDONTS, eller måste en tredjepartskomponent användas?
[IIS:DATOR-1] skicka till => [EXCHANGE:DATOR-2] genom att använda [EXCHANGE:DATOR-2] smtp-tjänst.
Så att säga.
Detta fungerar klockrent för mig. Men du måste tillåta din servern att skicka via exchangen.
<%
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Dim obj
Const cdoSendUsingPort = 2
StrSmartHost = "dinserver"
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = Basic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
.Update
End With
Dim strsubject
strSubject = ""
sBody = ""
With iMsg
Set .Configuration = iConf
.To = ""
.From = ""
.Subject = ""
.HtmlBody = sBody
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>