Jag får inget mail....

3 svar · 218 visningar · startad av Biasse 22 apr. 2004

BiasseMedlem sedan aug. 2003480 inlägg

Frågan22 apr. 2004 18:28#1

Sitter och provar att få iväg ett mail automatiskt. Koden ser ut som nedan hittills och kör igenom men inget mail kommer hit. Provar den hemma här just nu och har då bara mitt ipnummer och hur skriver jag då det rätt i "newMail.Host ". Annars hittar jag inget fel. Jag har smtp installerat i iis och lagt cdonts.dll i system32 och godkänt den med iusr.

<% dim Epost
Epost = Request.Querystring("epost")
%>

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webb\fyndet\db\annons.mdb"

strSQL = "SELECT * FROM annons WHERE epost = '"&epost&"' "
Set objCon = openCon()
Set objRs = objCon.Execute(strSQL)
%>

<%
Set newMail = Server.CreateObject("CDONTS.NewMail")

HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>[url]http://fyndet.webb.se[/url]</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=#6CDAF9>"
HTML = HTML & "Tack för att du har annonserat hos oss!<br>"
HTML = HTML & "------------------------------------------------------------------------------------------<br>"
HTML = HTML & "Vi hoppas att du hittar det du söker eller får det sålt på vår sida.<br>"
HTML = HTML & "Dina Annonsuppgifter:<br>"
HTML = HTML & "Namn: " & objrs("namn") & "<br>" 
HTML = HTML & "Lösenord: " & objrs("pwd") & "<br>" 
HTML = HTML & "Epost (denna använder du för att redigera/radera annonsen): " & objrs("epost") & "<br>" 
HTML = HTML & "Annons nr: " & objrs("id") & "<br>" 
HTML = HTML & "Datum du registrerade din annons: " & objrs("date") & "<br>" 
HTML = HTML & "------------------------------------------------------------------------------------------<br></body>"
HTML = HTML & "</html>"
newMail.From = "fyndet.webb.se"
newMail.To = objrs("epost")
newMail.Subject = "Dina annons uppgifter hos fyndet.webb.se!"
newMail.BodyFormat = 0
newMail.Body = HTML
newMail.Host = "?????????"
newMail.Send
Set newMail = Nothing
%>
<%
Set objRs = Nothing
closeCon(objCon) 
%>

BiasseMedlem sedan aug. 2003480 inlägg

22 apr. 2004 20:41#2

hm.. dribblar på här och dök på detta:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01AD)
ActiveX-komponenten kan inte skapa objekt.: 'CDONTS.NewMail'

Är det cdont som ej är i funktion riktigt?
smtp tjänsten är igång iallafall..

PDahlenMedlem sedan apr. 2004778 inlägg

22 apr. 2004 23:06#3

Om den inte kan skapa cdonts objektet så är det där felet ligger. Du har inte cdonts korrekt konfigurerat på din webbserver.

BiasseMedlem sedan aug. 2003480 inlägg

23 apr. 2004 12:18#4

Har 2 script här.. ett som fungerar och ett som jag vill ha men inte funkar... men jag ser banne mig inte vad som kan vara fel i det sista.. Det var ansmtp som behövdes installeras innan det gick.

Detta funkar:

<%
Set oSmtp = Server.CreateObject("ANSMTP.OBJ")
oSmtp.ServerAddr = "192.168.0.184" 'computer ip address.
oSmtp.FromAddr = "biasse@home.se"
oSmtp.AddRecipient "Support Team", "biasse@home.se", 0 

oSmtp.Subject = "Test"
oSmtp.BodyText = "Hello, this is a test...."

oSmtp.UserName = "Biasse" 'any valid user of current machine.
oSmtp.Password = "" 'password of this user

If oSmtp.SendMail() = 0 Then
  Response.Write "Message delivered!"
Else
  Response.Write oSmtp.GetLastErrDescription()
End If
%>

Detta vill jag ha fungera:

<%
Set oSmtp = Server.CreateObject("ANSMTP.OBJ")
oSmtp.ServerAddr = "192.168.0.184" 'computer ip address.
oSmtp.FromAddr = "biasse@home.se"
oSmtp.AddRecipient "Support Team", "biasse@home.se", 0 

oSmtp.Subject = "Fyndet Annons inlagd"

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webb\fyndet\db\annons.mdb"

strSQL = "SELECT * FROM annons WHERE epost = '"&epost&"' "
Set objCon = openCon()
Set objRs = objCon.Execute(strSQL)

oSmtp.BodyText =  "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
oSmtp.BodyText = oSmtp.BodyText & "<html>"
oSmtp.BodyText = oSmtp.BodyText & "<head>"
oSmtp.BodyText = oSmtp.BodyText & "<title>[url]http://fyndet.webb.se[/url]</title>"
oSmtp.BodyText = oSmtp.BodyText & "</head>"
oSmtp.BodyText = oSmtp.BodyText & "<body bgcolor=#6CDAF9>"
oSmtp.BodyText = oSmtp.BodyText & "Tack för att du har annonserat hos oss!"
oSmtp.BodyText = oSmtp.BodyText & "------------------------------------------------------------------------------------------<br>"
oSmtp.BodyText = oSmtp.BodyText & "Vi hoppas att du hittar det du söker eller får det sålt på vår sida.<br>"
oSmtp.BodyText = oSmtp.BodyText & "Dina Annonsuppgifter:<br>"
oSmtp.BodyText = oSmtp.BodyText & "Namn: " & objrs("namn") & "<br>" 
oSmtp.BodyText = oSmtp.BodyText & "Lösenord: " & objrs("pwd") & "<br>" 
oSmtp.BodyText = oSmtp.BodyText & "Epost (denna använder du för att redigera/radera annonsen): " & objrs("epost") & "<br>" 
oSmtp.BodyText = oSmtp.BodyText & "Annons nr: " & objrs("id") & "<br>" 
oSmtp.BodyText = oSmtp.BodyText & "Datum du registrerade din annons: " & objrs("date") & "<br>" 
oSmtp.BodyText = oSmtp.BodyText & "------------------------------------------------------------------------------------------<br></body>"
oSmtp.BodyText = oSmtp.BodyText & "</html>"

oSmtp.UserName = "Biasse" 'any valid user of current machine.
oSmtp.Password = "" 'password of this user

If oSmtp.SendMail() = 0 Then
  Response.Write "Message delivered!"
Else
  Response.Write oSmtp.GetLastErrDescription()
End If

Set objRs = Nothing
closeCon(objCon) 
%>