implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP Uygulamaları
 ASPTurkiye.com Forum : ASP Uygulamaları
Konu Konu: CDOSYS Ayarları Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
ZeuS
Yeni Üye
Yeni Üye


Kayıt Tarihi: 03-Mayıs-2007
Gönderilenler: 1
Gönderen: 03-Mayıs-2007 Saat 23:32 | Kayıtlı IP Alıntı ZeuS

Merhaba Arkadaşlar

jmail ile kullandığım ileitşim formun sunucu değişikliği ile kullanılamaz oldu.

CDOSYS destekliyor. Fakat ben yapamadım. Aşğıdaki kodların nasıl değiştirmem gerkiyor. Yardımcı olabilirseniz sevinirim.

Şimdiden teşekkrüler.

 

<%
sub sendNow()
 'on error resume next
 If Not EmailField(request("email")) then
  response.write "<font color='red'>Email adresiniz hatal&#305;!</font><hr noshade size=1><input type='button' value='Geri Dön' Onclick='history.back()'><br>"
  Exit Sub
 End If
 If request("konu") = "" or request("mesaj") = "" then
  response.write "<font color='red'>Konu veya Mesaj bo&#351; olamaz!</font><hr noshade size=1><input type='button' value='Geri Dön' Onclick='history.back()'><br>"
  Exit Sub
 End If
 If Session("mailkontrol") <> "" then
  response.write "<font color='red'>Ard arda mesaj yollayamazs&#305;n&#305;z!</font><hr noshade size=1>"
  Exit Sub
 End If
 gonderen = Turkcelestir(request("email"))
 OzelMesaj = "Sayin " & request("ad") & "," & vbCrlf & request("konu") & " konulu mesajiniz bize ulasti." & vbCrlf
 OzelMesaj = OzelMesaj & "Sizinle en yakin zamanda iletisim kuracagim." & vbCrlf & vbCrlf
 OzelMesaj = OzelMesaj & "___________________________________________________" & vbCrlf
 OzelMesaj = OzelMesaj & "[NOT] Bu email otomatik olarak gonderilmistir. Bu emaili yanitlamayiniz!"

 KisiMesaj = request("mesaj") & vbCrlf & vbCrlf & "___________________________________________________" & vbCrlf
 KisiMesaj = KisiMesaj & "Başlık" & vbCrlf
 KisiMesaj = KisiMesaj & "
http://www.benimsitem.com/" & vbCrlf & vbCrlf
 Set jmail = Server.CreateObject("JMail.Message")
     jmail.AddRecipient "
info@benimsitem.com","info"
     jmail.From = "
info@benimsitem.com"
     jmail.Subject=request("ad")&" Konu:"&request("konu")
     JMail.Body = "Gönderenin Ad&#305;-Soyad&#305; :"&request("ad")&vbCrlf&"&#350;ehir : "&request("tel")&vbCrlf&"Gönderenin E-Maili : "&request("email")&vbCrlf&"Konu : "&request("konu")&vbCrlf&"Gönderenin Mesaj&#305; : "&kisimesaj
     Jmail.priority=3
     Jmail.Addheader "Orginating-IP", Request.ServerVariables("REMOTE_ADDR")
     jmail.Send("mail.benimsitem.com")
 Set jMail = Nothing
 Session("mailkontrol") = "1"
 Response.Write("<b>Mesaj&#305;n&#305;z Gönderildi. En k&#305;sa zamanda sizinle ba&#287;lant&#305;ya geçilecektir.</b>")
 on error goto 0
 end sub
%>

 

CDOSYS için örnek kod aşağıdadır:

 

Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objCDOSYSCon.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpserverpor t") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields(" http://schemas.microsoft.com/cdo/configuration/smtpconnectio ntimeout") = 60
objCDOSYSCon.Fields.Update


Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "gonderenmailadresi"
objCDOSYSMail.To = "alicimailadresi"
objCDOSYSMail.Subject = "This is my subject for my test message"
objCDOSYSMail.HTMLBody = "This is the body "
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

 

Yukarı Dön Göster ZeuS's Özellikler Diğer Mesajlarını Ara: ZeuS
 
alenn34
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 26-Nisan-2013
Gönderilenler: 90
Gönderen: 28-Temmuz-2013 Saat 02:59 | Kayıtlı IP Alıntı alenn34

teşekkürler bilgi için....


Düzenleyen alenn34 17-Ekim-2013 Saat 17:46


__________________
koltuk tamirkoltuklar,koltuk
Yukarı Dön Göster alenn34's Özellikler Diğer Mesajlarını Ara: alenn34
 

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Kapalı Forumda Anketlerde Oy Kullanma

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0938 Saniyede Yüklendi.