asp ile mail gönderme

04-01-2008, 18:09:33

Kimlik doğrulama veya yönetimden onay bekliyor.

selamlar
Cdosys ile flash sitemin içinden mail göndermek istiyorum . hostta win2003 kurulu ve görüştüm onlardan yana ayarların yapılı ve çalışır olduğunu öğrendim.

kullandığım kod şu şekilde ama mail gitmiyor acaba nerde yanlışlık yapıyorum?

<%
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
smtpServer = "mail.kendimailim.com"
smtpPort = 25

name = Request("destek@kendimailim.com")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("destek@kendimailim.com")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = kendimailim.com
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Update
myMail.Send

09-01-2008, 21:17:08

#2

MCorleone

arkadaşlar mümkünse yardımlarınızı rica ediyorum

10-01-2008, 13:02:03

#3

okanYILMAZ

Kimlik doğrulama veya yönetimden onay bekliyor.

ASP Rehberi - Cdosys (ing)
ASP Rehberi - Contact Us Form Using CDOSYS (ing)

adreslerinde yer alan uygulamalara bakabilirsin.

10-01-2008, 13:10:28

#4

doronty37

Kimlik doğrulama veya yönetimden onay bekliyor.

myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "e-posta adresi"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "e-posta şifresi"

Bu satırları ekleyip bir dene.

Kodlarla ilgili bi sorum olacak
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
kısmının amacı nedir.
O kodların sonucunda oluşacak değer
message=Request("message")
ile aynı değer.

10-01-2008, 16:42:10

#5

MCorleone

yardımlarınız için teşekkür ederim en son şu şekilde yaptım ama yinede olmadı

Alıntı

<%
message=Request("message")
smtpServer = "mail.mailim.com"
smtpPort = 25
name = Request("mail@mailim.com")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("mail@mailim.com")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = "2"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.mailim.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "0"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@mailim.com"
myMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"
myMail.Configuration.Fields.Update
myMail.Send

örneğin "mail@mailim.com" kısmını "" lar olmadanda denedim ama aynı

10-01-2008, 17:27:49

#6

doronty37

Ben kodu farklı şekilde kullanıyordum. Şöyle bir deneyin. Bir de çıkan hata mesajını yazarsanız, hatanın ne olduğu daha kolay bulunabilir.

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = "2"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.mailim.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "0"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@mailim.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"

10-01-2008, 18:13:30

#7

MCorleone

sayfa flash tasarımlı bir template . istek kısmı da flash . doldurunca içinde kodları verdiğim asp sayfa yarımıyla göndermesi gerekli butona tıklayınca. ama butona tıklayınca herhangi bir değişiklik olmuyor hata olarak
son olarak kodları verdiğiniz şekilde denedim yine olmadı