Reminder på email

If Date() = "14-09-02" Then
JMail kode
End If

//>Rune

Du skal lave en scheduled task (kontrolpanel->scheduled task) og køre dit script der tjekker og sender de mails ud, der skal sendes ud nu.

Husk at markere i databasen om mails er blevet sendt ud, så du ikke sender til den samme person to gange.

hvis fx. det er en præcis dato

If Day(Date()) = Day(" & objRs("send") & ") And Month(" & objRs("send") & ")  Then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = "afsender@email.adr"
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
Jmail.AddRecipientCC "andenmodtager@email.adr"
Jmail.AddRecipientBCC "skjultmodtager@email.adr"
JMail.Subject = "Dette er emne linien.."
JMail.Body = objRs("kommentar")
JMail.Execute
Set JMail = Nothing
End If

//>Rune

andersasp> Det kræver jo at du har en service kørende på serveren der hele tiden tjekker din database for forekomster af aktuel dato og aktuel tidspunkt. Og hvis du har valgfrit tidspunkt, så skal den jo tjekke hvert minut !

den funktion der checkker databasen, kan det være en asp komponent?? der hele tiden laver et loop??

Ja det kan det godt, det kræver bare at du eksekvere et URL til asp siden hvert interval !
http://server.dk/tidstjek.asp

Så kan du vel lave det så siden lukker sig selv efter gennemløb !

Jeg er stadig desværre lidt rusten i mail, men hvis jeg har et script der sender mailen - kan der så indsættes yderligere kode således den hele tiden checkker og sender mails hvis tidspunktet passer!

Jeg bruger nedenstående kode:

-------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%

'        --> Her hentes felter fra form siden
'
        Body = vbCrLf & vbTab & "´reminder" &_
        vbCrLf & vbTab & "kommentar : " & Request.Form("kommentar") &_
        vbCrLf & vbTab & "att : " & Request.Form("tidsp")
       
        Set JMail = Server.CreateObject("JMail.SMTPMail")

       
        JMail.ServerAddress = "websmtp.server.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "mail@mail.dk"
        JMail.SenderName = "reminder"
        JMail.Subject = request("tidsp")
       
       
        JMail.AddRecipient "anders@smz.dk"

       
       
       
        JMail.Body = Body
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 1
       
       
       
        ' Send it...
       
        on error resume next
       
        JMail.execute
       
        if err <> 0 then %>
<p>Der er opstået en fejl, kontakt webmasteren....
  <%
        end if    
       
        set JMail = nothing

       
        conn.close

        ' ---------------------------------------------------------------
        ' send email SLUT
        ' ---------------------------------------------------------------
        %>
        Response.redirect "../index.asp"   
        %>
</p>
--------------------------------------------------------------

Jo men det har medions været inde på !

Er det sådan her du vil ha' det:

-------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%

'        --> Her hentes felter fra form siden
'
        Body = vbCrLf & vbTab & "´reminder" &_
        vbCrLf & vbTab & "kommentar : " & Request.Form("kommentar") &_
        vbCrLf & vbTab & "att : " & Request.Form("tidsp")
       
        If Day(Date()) = Day(" & objRs("send") & ") And Month(" & objRs("send") & ")  Then
       
        Set JMail = Server.CreateObject("JMail.SMTPMail")
            JMail.ServerAddress = "websmtp.server.dk"
            ' mail config settings
            JMail.Charset = "iso-8859-1"
            JMail.ContentTransferEncoding = "8bit"
                JMail.Sender = "mail@mail.dk"
                JMail.SenderName = "reminder"
                JMail.Subject = request("tidsp")
            JMail.AddRecipient "anders@smz.dk"
            JMail.Body = Body
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
        JMail.Priority = 1
        ' Send it...
        On Error Resume Next       
        JMail.execute       
        if err <> 0 then
            Response.Write("Der er opstået en fejl, kontakt webmasteren.... ")
        end if   
        set JMail = nothing
       
        conn.close
End If
        ' ---------------------------------------------------------------
        ' send email SLUT
        ' ---------------------------------------------------------------
        %>
        Response.redirect "../index.asp"   
        %>
</p>
--------------------------------------------------------------

//>Rune

ville det så se nogenlunde således ud??  men så laver den da ikke et loop går den??

<%@LANGUAGE="VBSCRIPT"%>
<%

' her ville jeg kalde databasen'

If Day(Date()) = Day(" & objRs("send") & ") And Month(" & objRs("send") & ")  Then
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.domain.dk"
JMail.Priority = 1
JMail.Sender = "afsender@email.adr"
JMail.AddRecipientEx "modtager@email.adr", "Modtagers navn"
Jmail.AddRecipientCC "andenmodtager@email.adr"
Jmail.AddRecipientBCC "skjultmodtager@email.adr"
JMail.Subject = "Dette er emne linien.."
JMail.Body = objRs("kommentar")
JMail.Execute
Set JMail = Nothing
End If
%>

Jamen vil du have den til at sende en mail til alle dem i databasen eller hvad er det du vil?

//>Rune

Denne løber alle dine records igennem fra databasen på den bestemte dato!
Husk lige at rette denne til mht. Databasenavn og SQL query!

-------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%

'        --> Her hentes felter fra form siden
'
        Body = vbCrLf & vbTab & "´reminder" &_
        vbCrLf & vbTab & "kommentar : " & Request.Form("kommentar") &_
        vbCrLf & vbTab & "att : " & Request.Form("tidsp")
       
        If Day(Date()) = Day(" & objRs("send") & ") And Month(" & objRs("send") & ")  Then
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
        strSQL = "SELECT * FROM tabel"
        Set objRs = objConn.Execute(strSQL)
            While Not objRs.EOF
                Set JMail = Server.CreateObject("JMail.SMTPMail")
                    JMail.ServerAddress = "websmtp.server.dk"
                    ' mail config settings
                    JMail.Charset = "iso-8859-1"
                    JMail.ContentTransferEncoding = "8bit"
                        JMail.Sender = "mail@mail.dk"
                        JMail.SenderName = "reminder"
                        JMail.Subject = request("tidsp")
                    JMail.AddRecipient "anders@smz.dk"
                    JMail.Body = Body
                ' 1 - highest priority (Urgent)
                ' 3 - normal
                ' 5 - lowest
                JMail.Priority = 1
                ' Send it...
                On Error Resume Next       
                JMail.execute       
                if err <> 0 then
                    Response.Write("Der er opstået en fejl, kontakt webmasteren.... ")
                end if   
                set JMail = nothing
            objRs.MoveNext()
            Wend
        End If
       
        conn.close
        ' ---------------------------------------------------------------
        ' send email SLUT
        ' ---------------------------------------------------------------
        %>
        Response.redirect "../index.asp"   
        %>
</p>
--------------------------------------------------------------

//>Rune

I må lige undskylde hvis jeg ikke har formuleret mig særlig forståeligt!

Men det den skal gøre er at, sende en mail til mig på bestemte tidspunkter:

30-05-2002  -  skal sendes idag
31-05-2002  -  skal sendes imorgen
osv.

det skal dog være således at hvis jeg vælger at skrive en email idag og udfylder "send" til at være 01-01-2004 skal mailen automatisk sendes d. 01-01-2002

skal selvfølgelig sendes 01-01-2004 - sorry

-------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%

'        --> Her hentes felter fra form siden
'
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
        strSQL = "SELECT * FROM tabel"
        Set objRsSend = objConn.Execute(strSQL)
       
        Body = vbCrLf & vbTab & "´reminder" &_
        vbCrLf & vbTab & "kommentar : " & Request.Form("kommentar") &_
        vbCrLf & vbTab & "att : " & Request.Form("tidsp")
       
        If Day(Date()) = Day(" & objRsSend("send") & ") And Month(" & objRs("send") & ")  Then
        strSQL = "SELECT * FROM tabel WHERE send=#" & objRsSend("send") & "#"
        Set objRsSend = objConn.Execute(strSQL)
                Set JMail = Server.CreateObject("JMail.SMTPMail")
                    JMail.ServerAddress = "websmtp.server.dk"
                    ' mail config settings
                    JMail.Charset = "iso-8859-1"
                    JMail.ContentTransferEncoding = "8bit"
                        JMail.Sender = "mail@mail.dk"
                        JMail.SenderName = "reminder"
                        JMail.Subject = request("tidsp")
                    JMail.AddRecipient "anders@smz.dk"
                    JMail.Body = Body
                ' 1 - highest priority (Urgent)
                ' 3 - normal
                ' 5 - lowest
                JMail.Priority = 1
                ' Send it...
                On Error Resume Next       
                JMail.execute       
                if err <> 0 then
                    Response.Write("Der er opstået en fejl, kontakt webmasteren.... ")
                end if   
                set JMail = nothing
        End If
       
        conn.close
        ' ---------------------------------------------------------------
        ' send email SLUT
        ' ---------------------------------------------------------------
        %>
        Response.redirect "../index.asp"   
        %>
</p>
--------------------------------------------------------------

//>Rune

medions > jeps du er inde på det rigtige. MEn er det ikke indholdet fra database recorden der skal sendes. Og ikke form indholdet. Jeg kan i det hele taget ikke se hvad formen har med det at gøre. Den skal vel bare gemme indholdet i DB'en med en dato, tidspunkt og tekstindhold !

Scriptet skal finde de mails der skal sendes !
Så din sql string er korrekt, mailindholdet er ikke !

Eller hvad andersasp ??

;-)

Well, jeg ved ik' rigtig hvad det er  han vil... Han må lige prøve at forklare lidt nærmere...!

benson> Tak for oprydningen *G*
//>Rune

Sorry - det er mig er tåger! alle request.form objecter skal fjernes - således den kun kigger i databasen frem for formen! det den egentlig bare skal gøre er at kigge i databasen, ognår datoen skal den sende mailen afsten!

så skulle dette gerne virke:

-------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<%

'        --> Her hentes felter fra form siden
'
        Set objConn = Server.CreateObject("ADODB.Connection")
        objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db.mdb")
        strSQL = "SELECT * FROM tabel"
        Set objRsSend = objConn.Execute(strSQL)
       
        If Day(Date()) = Day(" & objRsSend("send") & ") And Month(" & objRs("send") & ") = Month(Date()) And Hour(objRsSend("tidsp") = Hour(Now()) Then
        strSQL = "SELECT * FROM tabel WHERE send=#" & objRsSend("send") & "#"
        Set objRs = objConn.Execute(strSQL)
                Set JMail = Server.CreateObject("JMail.SMTPMail")
                    JMail.ServerAddress = "websmtp.server.dk"
                    ' mail config settings
                    JMail.Charset = "iso-8859-1"
                    JMail.ContentTransferEncoding = "8bit"
                        JMail.Sender = "mail@mail.dk"
                        JMail.SenderName = "reminder"
                        JMail.Subject = objRs("tidsp")
                    JMail.AddRecipient "anders@smz.dk"
                    JMail.Body = objRs("kommentar")
                ' 1 - highest priority (Urgent)
                ' 3 - normal
                ' 5 - lowest
                JMail.Priority = 1
                ' Send it...
                On Error Resume Next       
                JMail.execute       
                if err <> 0 then
                    Response.Write("Der er opstået en fejl, kontakt webmasteren.... ")
                end if   
                set JMail = nothing
        End If
       
        conn.close
        ' ---------------------------------------------------------------
        ' send email SLUT
        ' ---------------------------------------------------------------
        %>
        Response.redirect "../index.asp"   
        %>
</p>
--------------------------------------------------------------

//>Rune

det ser rigtig fornuftigt ud! mit sidste spørgsmål er dog, hvis scriptet ender med response.redirect "../index.asp" - vil det så blive ved med at checkke om der skal sendes flere mails??  eller der det mig der har misforstået noget?

Ja det vil!
//>Rune

kanon du er den sejeste!!

Anytime! :-)

Thx 4 Poinz
//>Rune

Men men !! Du bør ikke sende til den samme side hele tiden ! Den stopper jo aldrig ! Serveren bliver formentlig overbelastet !

benson > er der noget man kan gøre for at det ikke overbelaster serveren, kan man evt få scriptet til at checkke kun en gang i timen?

Jo det kan du !

Indsæt denne kode efter afslutningen af din ASP, dvs. efter den sidste %>

<HTML>
<HEAD>
<TITLE> Mailsender </TITLE>
<META HTTP-EQUIV="Refresh" CONTENT="10">
</HEAD>
<BODY>
Udført sidste gang <%=now()%>
</BODY>
</HTML>

Værdien "10" er lig 10 sekunder. Ændre den til 3600 så det svarer til en time.

tak