Asp mail gönderme

Sunucunuzda Persits.MailSender çalışıyormu kontrol ettiniz mi?

    Set Mail = Server.CreateObject("Persits.MailSender")
    Mail.Username = EPostaKullAdi
    Mail.Password = EPostaSifre
    Mail.Host = EPostaSunucu
    Mail.From = EPostaAdres
    Mail.Port = 587
    Mail.FromName = strFromName
    Mail.Subject = strSubject
    Mail.Body = strBody
    Mail.IsHTML = True
    Mail.AddAddress EPostaGonderen,EPostaGonderenAdi 'Formda seçilen kişi buraya.
    If Not (EPostaGonderen2 = "" or IsNull(EPostaGonderen2)) Then
    Mail.AddBcc EPostaGonderen2
    End If
    If Not (strReplyTo = "" or IsNull(strReplyTo)) Then
    Mail.AddReplyTo strReplyTo
    End If
    Mail.Charset = "UTF-8"
    On Error Resume Next
    Mail.Send
    If Err <> 0 Then
    MailGonder = GetLocalString("fnmailgonder.mailgonderilemedi","")
    Response.Write Err.Description
    Else
    MailGonder = GetLocalString("fnmailgonder.mailgonderildi","")
    End If
    Set Mail = Nothing

Ben bu şekilde kullanıyorum. Sorunsuz çalışıyor hata kodunuzda yazarsan iyi olur. Eğer gmail üzerinden göndereceksen dikkat et eski persits versionlarda çalışmaz. (Gmail için TLS true olmalı.)

Diğer bir örnek: Gmail için kullanabilirsiz.Oturumu sorunsuz açıp maikl gönderir.

 Set Mail = CreateObject("CDO.Message")
   
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") =EPostaSunucu
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") =EPostaKullAdi
    Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") =EPostaSifre
    Mail.Configuration.Fields.Update

    Mail.Subject=strSubject
    Mail.From=EPostaAdres
    Mail.To=EPostaGonderen
    If Not (EPostaGonderen2 = "" or IsNull(EPostaGonderen2)) Then
    Mail.Bcc = EPostaGonderen2
    End If
    If Not (strReplyTo = "" or IsNull(strReplyTo)) Then
    Mail.ReplyTo = strReplyTo
    End If 
    Mail.HtmlBody=strBody
    On Error Resume Next
    Mail.Send
    If Err <> 0 Then
    MailGonder = GetLocalString("fnmailgonder.mailgonderilemedi","")
    Response.Write Err.Description
    Else
    MailGonder = GetLocalString("fnmailgonder.mailgonderildi","")
    End If     
    Set Mail = Nothing 

çok teşekkürler yardımlarınız için Localhost yazdım düzeldi 🙂