7 svar · 356 visningar · startad av StefanP
Hur många mail klarar CDONTS av att skicka?
Jag har mailadresserna i en databas. Hur många borde man kunna skicka sammtidigt ?
Testade att göra det för skojs skull en gång och jag kom upp i 300 innan jag fick en timeout. Men det pendlar nog beroende på burk och lina.
Ska du göra ett massutskick så är det bättre att göra det med ett vbscript som du kör från din egen dator...
Det går att skicka hur många som helst...
säg att du skickar 10 st oså gör du en sida som anropar samma sida igen via javascript som innehåller en Querystring på hur många mail som skickats så vet databasen var den skall börja med nästa mail....
Jo det har jag =).-_!!!
Låter som en ganska seg lösning...
Skicka iväg det med vbs istället....
'**************************************************************************
'
' PURPOSE:
' --------------------------------------
'
' Created: 2002-04-09
' Updated:
'
' Author: Jonas Karlsson
'
'**************************************************************************************
' declare all variables
Option Explicit
Dim objSendMail
Dim strTo, strFrom
Dim strSubject, strBody
Dim sql, conn, c, r, s
Dim sql2
' mail constants (some are for reference)
Const CdoBodyFormatHTML = 0 ' Body property is HTML
Const CdoBodyFormatText = 1 ' Body property is plain text (default)
Const CdoMailFormatMime = 0 ' NewMail object is in MIME format
Const CdoMailFormatText = 1 ' NewMail object is plain text (default)
Const CdoLow = 0 ' Low importance
Const CdoNormal = 1 ' Normal importance (default)
Const CdoHigh = 2 ' High importance
strFrom = "mail@mail.com" ' change to your email address
strTo = "mail@mail.com" ' change to the recipient's address
strSubject = "Sune mangs rockar..." ' change to your subject
' this line calls the ReadFile() function to read the page contents
strBody = ReadFile("C:\fil.TXT")
' this line calls the MakePage() function to format the page as HTML
strBody = MakePage(strSubject,strBody)
' the following section creates the mail object and sends the mail
Set objSendMail = CreateObject("CDONTS.NewMail")
objSendMail.From = strFrom
objSendMail.To = strTo
objSendMail.Subject = strSubject & " (" & Date() & ")"
objSendMail.Body = strBody
objSendMail.BodyFormat = CdoBodyFormatHTML
objSendMail.MailFormat = CdoMailFormatMime
objSendMail.Importance = CdoNormal
objSendMail.Send
Set objSendMail = Nothing
' this function returns a properly formatted HTML page
Function MakePage(txtSubject, txtBody)
'Loop through the jobs in the temp table in the database.
sql = "select * from JE_User"
Conn = ("DRIVER=SQL Server;SERVER=sdfsdf;UID=asdfdsaf;DATABASE=sdfsdfsdfsdfsadf")
Set c = CreateObject("ADODB.Connection")
c.open conn
Set r = CreateObject("ADODB.Recordset")
r.Open sql2, c
if r.BOF OR r.EOF Then
s = ""
else
s = ""
do while not r.EOF
's= s & "Här är jobbidet: "&r("JE_Job_id")&" <br>" & vbCrLf
s= s & "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" bgcolor=""#CCCCCC"">" & vbCrLf
s= s & "<tr>" & vbCrLf
s= s & "<td height=""117""> <br>" & vbCrLf
s= s & "<table width=""97%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbCrLf
s= s & "<tr> " & vbCrLf
s= s & "<td>" & vbCrLf
s= s & "<p><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1""><b>test</b></font><br>" & vbCrLf
s= s & "<font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">test</font></p>" & vbCrLf
s= s & "<p><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""1"">" & vbCrLf
s= s & "<a href=""http://www.jobbdirekt.se"">test</a></font>" & vbCrLf
s= s & "</p>" & vbCrLf
s= s & "</td>" & vbCrLf
s= s & "</tr>" & vbCrLf
s= s & "</table>" & vbCrLf
s= s & "<br>" & vbCrLf
s= s & "</td>" & vbCrLf
s= s & "</tr>" & vbCrLf
s= s & "</table>" & vbCrLf
s= s & "<br>" & vbCrLf
r.movenext
loop
end if
Dim txtTemp
txtTemp = "<HTML>" & vbCrLf
txtTemp = txtTemp & "<HEAD><TITLE>test"
txtTemp = txtTemp & "</TITLE></HEAD>" & vbCrLf
txtTemp = txtTemp & "<BODY bgcolor=silver>" & vbCrLf
txtTemp = txtTemp & ""&s&"" & vbCrLf
txtTemp = txtTemp & "</BODY>" & vbCrLf
txtTemp = txtTemp & "</HTML>"
MakePage = txtTemp
End Function
' this function opens a file and returns the file's contents
Function ReadFile(txtFile)
Dim txtTemp, objFS, objFL
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFL = objFS.OpenTextFile(txtFile)
Do While Not objFL.AtEndOfStream
txtTemp = txtTemp & objFL.ReadLine
txtTemp = txtTemp & vbCrLf
Loop
objFL.Close
Set objFS = Nothing
ReadFile = txtTemp
End Function
Spara som sune.vbs i tex roten c:
för att köra igång scritpet kör du sedan bara
c:\sune.vbs från cmd så körs scriptet...
Detta görs mycket snabbare och smidigare än om du måste skicka iväg mailen från en webbserver...
Access
Hur blir
Conn = ("DRIVER=SQL Server;SERVER=sdfsdf;UID=asdfdsaf;DATABASE=sdfsdfsdfsdfsadf")
om jag istället ska connecta till en remote ACCESS databas som ligger på webhotellet ?
Lägg ner databasen på din server istället...
Du connectar som vanligt mot en access databas ...
Typ så här..
Set conn = Server.CreateObject("ADODB.Connection")
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "data source="&server.mappath(".")&"\owe.mdb"
.Open
End with