[Çözüldü] Exchange 2016 Relay Ayarları

Nasıl bir kodmuş o öyle. Örnek var mı elinizde?

Option Compare Database
Public Function izinVer()
DoCmd.SetWarnings False
End Function
Public Function mailTEST(GTo As String, GTextBody As String)
On Error GoTo ErrorHandler

Dim mail As CDO.Message
Dim config As CDO.Configuration
Set mail = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")

config.Fields(cdoSendUsingMethod).Value = cdoSendUsingPort
config.Fields(cdoSMTPServer).Value = "10.10.10.2"
config.Fields(cdoSMTPServerPort).Value = "25"
config.Fields(cdoSendUserName).Value = "[email protected]"
config.Fields.Update
Set mail.Configuration = config

With mail
.BodyPart.Charset = "utf-8"
.To = "" & GTo
.From = "[email protected]"
.Subject = "HATIRLATMA"
.TextBody = "" & GTextBody
.Send
End With

Set config = Nothing
Set mail = Nothing
GoTo sonaGit
ErrorHandler:
Reset

sonaGit:

End Function

şirket dahilindeki ip adreslerine (ihtiyaç olanlarına) relay izni verilmiş olabilir. relay için ayarıda posta akışında alma bağlayıcılarından kontrol edip istediğin ipleri çıkarabilirsin. fakat tamamen relaya açıksa acilen kapatmalısın. bu tip şeyler belli kurallarda belli güvenilen bilgisayarlara izin vermekle çözülmeli bence.

Merhaba, 

Exchange in default ayarları bu şekilde herhangi bir düzenleme yapılmadı. Connectorin hangisinden bu işlemi kontrol etmeliyim?

2007 ve 2010 da nu işlemler daha basitti 2016 da bir sürü connector geliyor.

Teşekkürler

posta akışı kısmında alma bağlayıcıları mevcut oradaki kısımdan kapsama diye bir kısım olmalı orda hangi ip adreslerinin yollama izni olacağı belirtilmiş olabilir. bu ayarları kontrol etmenizde fayda var.