Cosmic bunu yazdı:
-----------------------------
spama düşüyor olmasın. yada spam filtresi olmasın maillerinde onların?
-----------------------------
Spam a filan da düşmüyor milyonlarca kontrol eetim :) ama sorun farklı google amcaya sordum asp bir yapı cıkıyor iş yerinin diger asp serverında deniyorum oda çalışmıyor en azından o çalışsa formları diger asp serverden cekerim.
Google de buldugum kod
AdSoyad = Request.Form("adi")
Firma = Request.Form("firma")
Telefon = Request.Form("telefon")
Mesaj = Request.Form("mesaj")
eposta = Request.Form("eposta")
msgBody = "<br>Ad_Soyad : " & AdSoyad & vbcrlf & _
"<br>Firma : " & Firma & vbcrlf & _
"<br>Telefon : " & Telefon & vbcrlf & _
"<br>eposta : " & eposta & vbcrlf & _
"<br>Mesaj : " & Mesaj & vbcrlf
Set myMail = CreateObject("CDO.Message")
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true 'Use SSL for the connection
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text)
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="info@domaininiz.com" ' change
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="*********" ' change
myMail.Configuration.Fields.Update
Subject = request.Form("Subject")
body = request.Form("msgBody")
email = request.Form("info@domaininiz.com")
myMail.To = "mail-gidecek@domaininiz.com"
myMail.Subject = "Merhaba | Yeni bir mesajın var."
myMail.From = ""&eposta&""
myMail.HTMLBody = ""&msgbody&""
myMail.Send
Set myMail = Nothing
If err Then ' hata mesajyny alalym Mail Gönderilmemi?se..
Response.Write err.Description & "<br>Mesajınız Gönderilmedi.."
End If
Response.Write "<script>alert('mesaj gönderildi');</script>"
end if
Kaynak
http://www.seoloper.com/makale-54-google-apps-ile-web-form-kullanarak-mail-gonderme.html
anlamdım bu işten bişey.