Hej alla glada är det någon som har lite kod för att bifoga en fil med CDONTS. Läste kursen men fick det inte att fungera Som du ser i artikeln så finns inga [] hakar i koden. Ta en titt på hur det kommandot skall användas så kommer du i mål..Bifoga fil med CDONTS
Tack på förhand
MVH
MartinSv: Bifoga fil med CDONTS
här är koden !!!
Filens sökväg läggs i en Session genom ett formulär
<% Server.ScriptTimeout = 740 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
<TITLE>Untitled</TITLE>
<META NAME="AUTHOR" Content="Tom Svensson (tom@firstdev.com)">
</HEAD>
<BODY bgcolor="#BD8CBD">
<%
' lagra fil
strFil = Session("fil")
' lagra subject
strSubject = Request.Form("subject")
' lagra message
strMessage = Request.Form("message")
' kolla så att subject och message innehåller nånting
If strSubject = "" Or strMessage = "" Then
Response.Write "Du måste skriva ett ämne och ett meddelande!"
Else
' skapar anslutningsobjektet
Set objDb = Server.CreateObject("ADODB.Connection")
strDSN = "DSN=d5651-News;Password=@01#$dcklaebcdldljdgjmcdc"
' öppnar databasen
objDb.Open strDSN
' loopa igenom alla prenumeranter
strSQL = "SELECT * FROM nyhetsbrev "
Set objRS = objDb.Execute(strSQL)
If objRS.EOF Then
Response.Write "Det finns inga prenumeranter att skricka nyhetsbrevet till"
Else
Do Until objRS.EOF
Response.Write "Skickar till " & objRS("Email") & "<BR>"
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.Host = "mail2.space2u.com"
objMail.From = "support@sixten.nu"
objMail.To = objRS("Email")
objMail.Subject = strSubject
objMail.Body = strMessage
objMail.Attachment [strfil],[Plastikk],[1]
objMail.Send
Set objMail = Nothing
Response.Flush
objRS.MoveNext
Loop
Response.Write "Klart!"
End If
objRS.Close
Set objRS = Nothing
' stänger databasen och sätter den till nothing
objDb.Close
Set objDb = Nothing
End If
%>
</BODY>
</HTML>
Tack på förhand
MartinSv: Bifoga fil med CDONTS
objMail.Attachment [strfil],[Plastikk],[1]
/Pelle