Asp Mail Gönderim

14-10-2012, 12:47:19

Merhabalar Arkadaşlar

Kullandığım Kod

function mailgonder(konu, mail, mesaj)

		
		

		


On Error Resume Next 
Set smtp = Server.CreateObject("JMail.Message" ) 

For Each veri In Request.Form ' Formdan verileri alıyoruz... 
gmesaj = gmesaj & veri & ": " & Request.Form(veri) & "<br>" 
Next 

smtp.ContentType = "text/html" 
smtp.CharSet = "ISO-8859-9" 

smtp.AddRecipient "info@siteismi.com" ' alıcı e-mail
smtp.from = "info@siteisi.com" ' gönderen e-mail smtp.MailServerUserName'deki mail hesabı ile aynı olmalı.
smtp.fromname = "İsim" ' görünen isim

smtp.MailServerUserName = "info@siteismi.com" ' user.. 
smtp.MailServerPassWord = "2501502" ' userin şifresi 
smtp.Subject = "Mail Başlığı" 
smtp.body = gmesaj 
smtp.Send("webmail.siteismi.com" ) ' Mail server ip'sini değiştirmeyiniz. 

If err Then ' hata mesajını alalım. Mail gönderilmemişse.. 
Response.Write err.Description & "<br>Mesajınız Gönderilmedi.." 
Else ' Mail gönderilmiş ise 
Response.Write("<script>alert('İlginize Teşşekkür Ederiz..');location.href='mesaj.htm';</script>" ) 
End If 

Set smtp = Nothing ' bitirelim.. 		
		

		
		
	end function

Gönderildi Diyor Mail Ama Bakıyorum Ulaşmıyor..

Yardımlarınız İçin Teşekkür Ederim

15-10-2012, 03:02:12

#2

~~webacemi~~

Üyeliği durduruldu

On Error Resume Next

satırını kaldır tekrar dene ne hata verdiğini görelim ona göre yorum yapalım

16-10-2012, 13:34:54

#3

edward

187. Satırı gösterdi 187. satırdaki hata

Set smtp = Server.CreateObject("JMail.Message" )

Bu Hatayı Gösterdi

16-10-2012, 13:48:52

#4

CoderMaN

edward adlı üyeden alıntı: mesajı görüntüle

187. Satırı gösterdi 187. satırdaki hata

Set smtp = Server.CreateObject("JMail.Message" )

Bu Hatayı Gösterdi

Çalıştırdığınız sunucu da JMail bileşeni kurulu değildir.

16-10-2012, 17:37:45

#5

~~ShekerChi~~

Üyeliği durduruldu

jmail ücretsiz bir bileşendir, buraya tıklayarak indirme sayfasına gidip w3Jmail Free satırındaki Download linkine tıklayın, açılan sayfada mail adresinizi yazın ve sonraki sayfada çıkacak olan formu rasgele doldurun. mail adresinize indirme linki gönderecek.

17-10-2012, 18:53:56

#6

edward

Bende söyledim ama hosting yetkilim bana sorun yok diyor çok kişi varmış mail gönderen .
Fatih Bey. Sunucu Bana Ait Değil Ki

18-10-2012, 09:15:02

#7

~~ShekerChi~~

Üyeliği durduruldu

o zaman sunucudaki kurulu mail bileşenlerini öğren, mesela persits varsa onu kullanalım belki jmailde problem vardır, ona göre kod vereyim sana

20-10-2012, 07:48:24

#8

edward

Fatih Bey Sunucuda Yüklü Olan Bileşenler Ben Kendim Öğrendim Kodla

ASP Mail Server'da bileşen yüklü değil ( Email )
CDO NTS Server'da bileşen yüklü ( Email )
CDOSYS Server'da bileşen yüklü ( Email )
Dimac JMail Server'da bileşen yüklü değil ( Email )
Persits ASPEmail Server'da bileşen yüklü değil ( Email )
ASP Simple Upload Server'da bileşen yüklü ( Upload )
ASP Smart Upload Server'da bileşen yüklü değil ( Upload )
Dundas Upload Server'da bileşen yüklü değil ( Upload )
Persits File Upload Server'da bileşen yüklü ( Upload )
Soft Artisans File Upload Server'da bileşen yüklü değil ( Upload )

20-10-2012, 08:57:09

#9

~~ShekerChi~~

Üyeliği durduruldu

kardeş sadece windows bileşeni CDO var. ona göre kod vereyim sana.

Alıntı

Sub MailGonder(Alici,Konu,Mesaj)

Smtp="mail.sitem.com"
SiteMail="aaa@sitem.com"
SiteMailSifre="123456"

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = Smtp
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 587
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ) = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername" ) = SiteMail
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword" ) = SiteMailSifre
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl" ) = False
.Update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.BodyPart.CharSet="windows-1254"
.From = ""&Site_title&" <"&SiteMail&">"
.To = Alici
.Subject = Konu
.HTMLBody = Mesaj
.Send
End With
Set cdoMessage = Nothing : Set cdoConfig = Nothing

End Sub

kullanımı:

Alıntı

Call MailGonder("alici_kisi@siteee.com","konu buraya","mail içeriği")