Använder ASPSmartUpload och ASPSmartMail. Ingen som kan bidra med lite hjälp ;-? Jag ser detta: .... Tycker jag skrev ganska så klart..... Testa med att lägga in en variabel som räknas upp i loopen som skickar med filerna. Sen skriver du ut den på lämpligt ställe.AspSmart - Upload tillsammans med Mail
Jag skall göra en E-post lista för vår klubb.....
Laddar upp bilder (funkar, lägger sig i rätt mapp på servern).
Hela E-postet skickas iväg, när jag har "remmat" bort kod för att bifoga fil/filer.
När jag försöker skicka iväg med fil/filer, funkar det inte alls. Inga felkoder heller.
Får se om jag lyckas kopiera in koden här under::::
<% SESSION.LCID = 1053
Response.Buffer = True
Response.expires = 0
Response.expiresabsolute = Now()-1
Response.addHeader "pragma","no-cache"
Response.addHeader "cache-control","private"
Response.CacheControl = "no-cache"
Set Cn = Server.CreateObject("ADODB.Connection")
Cn.Provider="Microsoft.Jet.OLEDB.4.0"
Cn.Open Server.mapPath("eposttest.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
Set mySU = Server.CreateObject("aspSmartUpload.SmartUpload")
mySU.AllowedFilesList = "htm,html,txt,pdf,psd,eps,gif,jpg,jpeg,tif,xls,ppt,pps,doc,mdb"
mySU.Upload
anyfile = mySU.Save("/epupload")
varAvsandareNamn = mySU.form("frmAvsandareNamn")
varAvsandareEpost = mySU.form("frmAvsandareEpost")
varRubrik = mySU.form("frmRubrik")
varInledning = mySU.form("frmInledning")
varMeddelande = mySU.form("frmMeddelande")
varInledning = replace(varInledning,chr(13),"<br>")
varInledning = REPLACE(varInledning, "'", "'")
varMeddelande = replace(varMeddelande,chr(13),"<br>")
varMeddelande = REPLACE(varMeddelande, "'", "'")
medd12 = varInledning & "<br><br>" & varMeddelande
medd1 = "<HTML><HEAD><TITLE></TITLE></HEAD><BODY><FONT face='Verdana' size='2'>"
medd1 = medd1 & medd12
medd1 = medd1 & "<br><br>"
medd1 = medd1 & "</BODY></HTML>"
strSQL="Select * From usersTBL Where user_epostutskick = true and user_epostOK = true and user_epostH <> '';"
rs.Open strSQL, cn
Set mySM = Server.CreateObject("aspSmartMail.SmartMail")
mySM.Charset = "ISO-8859-1 "
mySM.ContentType = "text/html"
mySM.Organization = "Vår klubb"
mySM.Priority = 2
mySM.Server = "mail.domän.com"
mySM.SenderName = varAvsandareNamn
mySM.SenderAddress = varAvsandareEpost
mySM.Subject = varRubrik
mySM.Body = medd1
'if anyfile then
' for each file in mySU.files
' mySM.Attachments.Add mySU.files.FilePathName
' next
'end if
Do while not rs.eof
mySM.Recipients.Add rs("user_epostH"), rs("user_anvNamn")
mySM.SendMail
mySM.Recipients.Clear
rs.movenext
loop
'If anyfile Then
' for each file in mySU.files
' file.Delete
' next
'End If
set mySU = nothing
set mySM = Nothing
Response.Write "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" & vbCrLF
Response.Write "<HTML><HEAD><meta http-equiv='content-type' content='text/html;charset=iso-8859-1'><TITLE></TITLE>" & vbCrLf
Response.Write "<link rel='stylesheet' href='style/style.css'>" & vbCrLf
Response.Write "</HEAD><BODY onContextMenu='return false;' leftmargin='5' topmargin='3' marginwidth='5' marginheight='3'>" & vbCrLf
Response.Write "Brevet skickat !!!" & vbCrLf
Response.Write "</body></html>" &vbCrLf
rs.close
Cn.Close
Set cn = Nothing
%>
Alltså, vill kunna ladda upp Ingen, en eller flera bilder som skall bifogas E-post-utskicket.
När utskicket är klart, skall ev. uppladdade bilder tas bort ifrån epupload-mappen.
ÄR inte så "hemma" på metods å sånt....
Har försökt läsa dokumentationen för ASPsmart, men kan inte hitta nåt som passar, men jag kan ju ha missat det ,-(
Men antar att nån här kan ge en smidig lösning.
// Mikke Sv: AspSmart - Upload tillsammans med Mail
Vore mycket tacksam....
// MSv: AspSmart - Upload tillsammans med Mail
mySM.Server = "mail.domän.com"
hoppas att du har rätt domän här!Sv: AspSmart - Upload tillsammans med Mail
Eposten GÅR iväg, när man INTE försöker ha med bifogade filer....
:::
Så att det står mail.domän.com..... ÄR inte problemet....
Visst jag kunde väl visseligen ha skrivit ut "rätt" server.... men valde detta....
Så det jag önskar hjälp med är en lösning med att bifoga en eller flera filer, samt att ta bort filerna ifrån epupload efter utskicket är klart.
MVH !
// MikkeSv: AspSmart - Upload tillsammans med Mail
Får du ett värde så har den gått in i koden, då är felet något annat än att filerna inte bifogas om inte så får du kolla på varför det inte körs för.
Radera filerna kan du ju göra med FSO, gör en sökning bland tips&trix så hittar du lösningar där.
//Anna-Karin