| Gönderen: 28-Haziran-2012 Saat 14:22 | Kayıtlı IP
|
|
|
Selam, Asp ile 3 farklı isimdeki text dısyayı okutup mail atmak istiyorum ama basarlı olamadım. Yapmak istedigim, bu txt dosyalarından mailin,
subject tini
body sini
email adresini bulmak
Asagida ornek olarak kodu gonderiyorum, sadece subject i yazdırmaya calistim ama basarılı olamadım. Yardımcı olacak kisilere simdiden tesekkur ediyorum.
*_S.txt ( subject )
*_B.txt ( body )
*_E.txt ( email adres )
<html>
<body>
Attachment ile Mail Gonderiyorum<br>
<%
ConnStr="Provider=sqloledb;Data Source=*
Server.ScriptTimeout = 900
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
on error resume next
set fs1 = CreateObject("Scripting.FileSystemObject")
set Mailer = Server.CreateObject("Persits.MailSender")
set conn=server.createobject("adodb.connection")
Mailer.Host = *
Mailer.Username = *
Mailer.Password = *
Mailer.CharSet = "windows-1254"
Mailer.CharSet = "iso-8859-9"
Mailer.From = *
Mailer.FromName = *
strPath = Server.MapPath("./sevk_onay_automail/")
set folder = fs1.GetFolder(strPath)
for each item in folder.Files
DosyaTxt = item.Name
DosyaExt = Right(DosyaTxt, 6)
if DosyaExt = "_S.txt" then
Response.Write "XXX-" & DosyaTxt & "-XXX dosyasi islem goruyor<br>"
fulltxt = strPath & "\" & DosyaTxt
Else
if DosyaExt = "_B.txt" then
Response.Write "XXX-" & DosyaTxt & "-XXX dosyasi islem goruyor<br>"
fullbody = strPath & "\" & DosyaTxt
Else
if DosyaExt = "_E.txt" then
Response.Write "XXX-" & DosyaTxt & "-XXX dosyasi islem goruyor<br>"
fullmail = strPath & "\" & DosyaTxt
end if
end if
end if
Set Fsubj = fs1.GetFile(fulltxt)
Set TextStreamSubj = Fsubj.OpenAsTextStream(ForReading, TristateFalse)
gidensubj = TextStreamSubj.ReadAll
TextStreamSubj.Close
Set TextStreamSubj = nothing
Mailer.AddCC *
Mailer.Subject = gidensubj
Mailer.Body = "BODY"
'Mailer.AddAddress TxtCont3
Mailer.Send
Mailer.Reset
set fs1 = nothing
set Mailer=nothing
next
%>
<br>Islem Tamamlandi
</body>
</html>
|
ASPTurkiye.com Forum : ASP / ASP.NET
Konu: Birden Fazla Text Dosya Okuma Problemi
Aktif Konular
Üye Listesi
Arama
Yardım
Kayıt Ol
Giriş
