Automatisk afsendelse af email

Har du adgang til jMail?

det kan jeg få hvis det kræves

OK. jMail kan downloades gratis til localhost brug og er let at bruge, når man først kender det. Så jeg har strikket noget sammen. Det skal jo nok integreres lidt. Men med i en åben databaseforbindelse burde det virke:

If DateDiff("d", Now, rs("BegivenhedsDato")) < 2 Then
    Server.ScriptTimeout = 6000
    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.Silent = true
    JMail.Logging = true
    jMail.sendername = WebstedTitel
    JMail.ServerAddress = "xx.xxx.xxx.xxx"    'webserver ip  for afsendelse af mail
    JMail.Sender = WebstedEmail  ' afsenderens E-mail der vises som afsender - webstedet
    JMail.Subject = WebstedTitel & " - I morgen har du en aftale i kalenderen"
    body = "Dette er en reminder om at du har en aftale i kalenderen på " & WebstedTitel & "<b<><br><br>"
    body = body & "Med venlig hilsen<br><br>"
    Plink = "http://" & request.servervariables("SERVER_NAME")
    body = body & "<br><br><br><font  face='arial' size='2'><b>" & portalTitel & " " & portalNavn & " netadresse:<br>"
    body = body & "<a href='http://" & request.servervariables("SERVER_NAME") & "' style='font-family:Verdana, Arial; color:green; letter-spacing:2px'>"
    body = body & webstedTitel & "</a></b></font><br><br><br>"
    jMail.ContentType  = "text/html"
    JMail.Priority = 3
    JMail.Body = body
    JMail.Execute
    Set JMail = Nothing
End If

Der er lige et par slåfejl, så her kommer det igen:

If DateDiff("d", Now, rs("BegivenhedsDato")) < 2 Then
    Server.ScriptTimeout = 6000
    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.Silent = true
    JMail.Logging = true
    jMail.sendername = WebstedTitel
    JMail.ServerAddress = "xx.xxx.xxx.xxx"    'webserver ip for afsendelse af mail
    JMail.Sender = WebstedEmail  ' afsenderens E-mail der vises som afsender - webstedet
    JMail.Subject = WebstedTitel & " - I morgen har du en aftale i kalenderen"
    body = "Dette er en reminder om at du har en aftale i kalenderen på " & WebstedTitel & "<br><br><br>"
    body = body & "Med venlig hilsen<br><br>"
    Plink = "http://" & request.servervariables("SERVER_NAME")
    body = body & "<br><br><br><font  face='arial' size='2'><b>" & webstedTitel & " " & portalNavn & " netadresse:<br>"
    body = body & "<a href='http://" & request.servervariables("SERVER_NAME") & "' style='font-family:Verdana, Arial; color:green; letter-spacing:2px'>"
    body = body & webstedTitel & "</a></b></font><br><br><br>"
    jMail.ContentType  = "text/html"
    JMail.Priority = 3
    JMail.Body = body
    JMail.Execute
    Set JMail = Nothing
End If

jMail i den gratis version kan downloades på http://www.dimac.net/
Vælg Free Downloads - A2001 w3Jmail Free Download

det ser jo ud til at være noget af det rigtige:)....

Jeg kender ikke rigtig noget til denne mailkomponent...hvor meget skal jeg fjerne bare for at lave en test??

min mailserver står mit i et domæne og fungerer som almindelig klient.
Dog er der installeret iis til at køre websereveren.

Jeg glemte faktisk at sætte en JMail.AddRecipient ind, så her er hele koden igen:

If DateDiff("d", Now, rs("BegivenhedsDato")) < 2 Then
    Server.ScriptTimeout = 6000
    Set JMail = Server.CreateObject("JMail.SMTPMail")
    JMail.Silent = true
    JMail.Logging = true
    jMail.sendername = WebstedTitel
    JMail.ServerAddress = "xx.xxx.xxx.xxx"    'webserver ip for afsendelse af mail
    JMail.Sender = WebstedEmail  ' afsenderens E-mail der vises som afsender - webstedet
    JMail.Subject = WebstedTitel & " - I morgen har du en aftale i kalenderen"
    JMail.AddRecipient rs("BrugersEmail") 
    body = "Dette er en reminder om at du har en aftale i kalenderen på " & WebstedTitel & "<br><br><br>"
    body = body & "Med venlig hilsen<br><br>"
    Plink = "http://" & request.servervariables("SERVER_NAME")
    body = body & "<br><br><br><font  face='arial' size='2'><b>" & webstedTitel & " " & portalNavn & " netadresse:<br>"
    body = body & "<a href='http://" & request.servervariables("SERVER_NAME") & "' style='font-family:Verdana, Arial; color:green; letter-spacing:2px'>"
    body = body & webstedTitel & "</a></b></font><br><br><br>"
    jMail.ContentType  = "text/html"
    JMail.Priority = 3
    JMail.Body = body
    JMail.Execute
    Set JMail = Nothing
End If

Og her er en simplificeret udgave til test:

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Silent = true
JMail.Logging = true
jMail.sendername = WebstedTitel
JMail.ServerAddress = "xx.xxx.xxx.xxx"
JMail.Sender = "min@email.dk"
JMail.Subject = " TESTMAIL"
JMail.AddRecipient "min2@email.dk" 
body = "Dette er en test"
jMail.ContentType  = "text/html"
JMail.Priority = 3
JMail.Body = body
JMail.Execute
Set JMail = Nothing

Det er altså ikke sikkert at du får lov til at sende fra localhost med din JMail.ServerAddress, som du nok har fra din internetudbyder. Så det skal nok uploades for at testes.

jeg har pastet dit eksempel ind...men der kommer ikke nogen mail frem.

Jeg har indtastet ip'en på den server(som jo bare er en klient i domænet) i denne linje:

JMail.ServerAddress = "xx.xxx.xxx.xxx"

kan det være der fejlen er ??

Jeg har lige testet denne. Jeg har skjult mine sidste tre cifre af ip'en af sikkerhedsmæssige hensyn. Men det virker hos mig. Ændrer jeg på ip'en kommer der selvfølgelig ingen mail, men heller ingen fejlmeddelelse. Det kommer an på hvordan jMail er installeret på serveren.

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Silent = true
JMail.Logging = true
jMail.sendername = WebstedTitel
JMail.ServerAddress = "66.102.135.xxx"  'webserver ip for afsendelse af mail, her min konto på webhost4life.com
JMail.Sender = "j@7d.dk"
JMail.Subject = " TESTMAIL"
JMail.AddRecipient "j@7d.dk" 
body = "Dette er en test"
jMail.ContentType  = "text/html"
JMail.Priority = 3
JMail.Body = body
JMail.Execute
Set JMail = Nothing

response.write "Koden er kørt"

Prøv evt. med syntaksen
JMail.ServerAddress = "mail.myDomain.dk"

Se også spørgsmålet: http://www.eksperten.dk/spm/505719

Og nu koger jeg lige testmail.asp ned til et absolut minimum. Og jeg har insdsat mit domænenavn med mail. foran som ServerAddress. Det virker også hos mig:

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.noniportalen.dk"
JMail.Sender = "7d@c.dk"
JMail.Subject = "Simpel jMail testmail"
JMail.AddRecipient "j@7d.dk" 
jMail.ContentType  = "text/html"
JMail.Execute
Set JMail = Nothing

response.write "Koden er kørt. "

PS: linjen
jMail.ContentType  = "text/html"
kan også fjernes, da der ingen body er i testen.

Fik du kontakt med serveren ?

nej det virker ikk....hmmm

Har du af supporten få oplyst noget om hvad mailserver adresse du skal bruge ?

Vi har koget det ned til 7 linjer:

Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ServerAddress = "mail.domaenenavn.dk"
JMail.Sender = "mig@domaenenavn.dk"
JMail.Subject = "Simpel jMail testmail"
JMail.AddRecipient "mig2@domaenenavn.dk" 
JMail.Execute
Set JMail = Nothing

Jeg skulle mene vi er en hårsbredde fra at få det til at virke. Hvor har du hotel? Hvis det ellers ikke er B-one SKAL jMail virke. Så er det webhotel supporten der må fortælle hvorfor det ikke virker.

CDONTS er også en mulighed. Her er et simpelt eksempel. Hvis CDONTS kører får du lige et link til at lære. Det ser bare ud til at CDONTS volder folk en del kvaler at få til at køre.

Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "mig@domaenenavn.dk"
objCDO.To = "mig2@domaenenavn.dk"
objCDO.Subject "Simpel CDONTS testmail"
objCDO.Send
Set objCDO = Nothing

(Der er heller ikke nogen error handling ved CDONTS)

hmmm....det virker ikke...men jeg tror ikke det er dine forslag der er noget i vejen med..

Jeg kender ikke til andre metoder - end at der vist er noget der hedder ASPmail, men hvis de andre almindelige metoder ikke virker og hotelværten, hvem de end er ? ikke er til at komme i kontakt med så..... ?-]

Mange tak da :) Håber det er pointene værd, da jeg godt kunne nøjes med det halve eller mindre, når opgaven ikke er løst.