- Katılım
- 17 Kasım 2009
- Mesajlar
- 295
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 24-12-2023
Merhaba arkadaşlar aşağıdaki kodla evdeki bilgisayardan gönderme yapıyor fakat okul meb hattından göndermiyor
galiba smtp kimlik doğrulama sorunu olduğundan gönderme yapmıyor kimlik doğrulama nasıl eklerim yada gözden kaçan başka bir kod eksiğimi vardır.
Set Message = New CDO.Message
Message.Subject = "Test Mail"
Message.From = "xxxxxxxxx@mynet.com"
Message.To = "xxxxxxxx@mynet.com"
Message.CC = ""
Message.TextBody = "my text body here"
Dim Configuration
Set Configuration = CreateObject("CDO.Configuration")
Configuration.Load -1 ' CDO Source Defaults
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = xxxxxxxxxxxx@gmail.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxx"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
Configuration.Fields.Update
Set Message.Configuration = Configuration
Message.Send
galiba smtp kimlik doğrulama sorunu olduğundan gönderme yapmıyor kimlik doğrulama nasıl eklerim yada gözden kaçan başka bir kod eksiğimi vardır.
Set Message = New CDO.Message
Message.Subject = "Test Mail"
Message.From = "xxxxxxxxx@mynet.com"
Message.To = "xxxxxxxx@mynet.com"
Message.CC = ""
Message.TextBody = "my text body here"
Dim Configuration
Set Configuration = CreateObject("CDO.Configuration")
Configuration.Load -1 ' CDO Source Defaults
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = xxxxxxxxxxxx@gmail.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxxx"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
Configuration.Fields.Update
Set Message.Configuration = Configuration
Message.Send