[maviseytan]

Hazırladığım flash mailformunu CDOSYS ile göndermem gerekiyor. Formda sadece kullanıcı emaili ve mesaj olacak. Yardımlarınız için çok teşekkürler

[stNonStop]

Kolay gelsin....

[maviseytan]

saolasın

elimde cdonts componenti icin hazır form var... sadece component adnı degistirerek calıstırmam mumkun mu. bu flash beni kodcu yapacak yakında :P

[flasher]

Değişkenleri flashla ilişkilendirme konusunda problem yaşamazsan cdosys ile mail formuna bir örnek dosyayı aşağıdaki linkte bulabilirsin.

CDOSYS Flash Mail Form

[maviseytan]

Üzgünüm kodlardan hiçbir şey anlamıyorum, ayrıca linkteki form CDONTS ile hazırlanmış görünüyor, ki elimde zaten var. mail bileşen satırını CDONTS yerine CDOSYS ile değiştirince de form işe yaramıyor. Yine de ilgilendiğin için teşekkür ederim

[maviseytan]

Arkadaslar aynı sorun yeniden karşımda..
flash form ile sendform.ASP yi birbirine uyduramadım, dosyaları incelerseniz çok sevinirim..

Yardımlar için şimdiden teşekkürler

[CreaNext]

konuyu yeni gördüm cdo ile sana anlaşılır bir şekilde örnek vereyim.
flash formu göremedim un expected file format hatası verdi sanırım flash 8 kullanıyosun..
ama bu kodla istediğin şeyi yapabilirsin.

flashta tanımladığın alanlar.
mesela bu forma göre "mail", "tlf" ,"isim","ileti"
olsun flashtaki alanların
bu sayfada post edeceğin sayfa olsun;

 <!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Type Library" -->
<% isim=Trim(Request("isim"))%><% email=Trim(Request("mail"))%><% telefon=Trim(Request("tlf"))%><% ileti=Trim(Request("body"))%> 

<%MailTO="info@deneme.com"%> <% 'Gönderilecek mail %>
<%MailFROM=email %>
<%MailSUBJECT="sitenizden forma yazıldı."%>
<%MailDESCRIPTION="E- posta: " & email & "<br>İsim: " & isim & "<br>telefon : " & tlf & "<br>mesaj: " & ileti %>

<%rem ********************************************************************************************************%>		

<%
if MailFROM<>"" and MailSUBJECT<>"" and MailDESCRIPTION<>"" then%>


	<%
	


		Dim iConf
		Dim Flds
  	   Set iConf = CreateObject("CDO.Configuration")
	   iConf.Load 2
		Set Flds = iConf.Fields
		 With Flds
			.Item(cdoSendUsingMethod)  = 2
			.Item(cdoSMTPServer) = "mail.deneme.com"          'mail.Gonderilecek domain
			.Item(cdoSMTPAccountName)	  = "info@deneme.com"          'Gonderilecek mail
			.Item(cdoSendPassword)	  = "123456"                        'şifre			.Item(cdoSendUserName)	  = "info@deneme.com"              'Gönderilecek mail
			.Item(cdoSMTPServerPort)	  = "25"
			.Update
		 End With
		
		DIM NewMailObj

%>


					
<%			

			set NewMailObj=CreateObject("CDO.Message")

			MailBODY = MailDESCRIPTION

			NewMailObj.Configuration=iConf
							NewMailObj.From=MailFROM
							NewMailObj.To=MailTO
							NewMailObj.Subject=MailSUBJECT
							NewMailObj.HTMLBody=MailBODY
							NewMailObj.Send

			set NewMailObj=Nothing	
%>


<%	
			set Flds=Nothing
			set iConf=Nothing
%>



<%response.write "Sayin "& isim &"\n\nmesajınız başarıyla gönderildi.'" %>


<% else %>
<%response.write "Mesajınız Elimize Ulaşmamıştır.\n\nLütfen mail adresinizi kontrol ediniz...." %>
<%
end if
%>

Kolay gelsin.