cdont fungerar bara localt i xp

4 svar · 209 visningar · startad av Biasse 23 apr. 2004

BiasseMedlem sedan aug. 2003480 inlägg

Frågan23 apr. 2004 18:54#1

Jag får mail localt men inte folk utifrån.. vad beror det på?

Set oSmtp = Server.CreateObject("ANSMTP.OBJ")
oSmtp.ServerAddr = "192.168.0.184" 'computer ip address.
oSmtp.FromAddr = "fyndet.webb.se"

oSmtp.AddRecipient "Annonsör", epostAdress , 0 

oSmtp.Subject = "Din Annons"
oSmtp.BodyText = "Hejsan.  Här kommer dina annons uppgifter.           Ditt Namn: "& namn &"   Ditt Lösenord: "&passWord &"    Din Adress: " &epostAdress
oSmtp.UserName = "Biasse" 'any valid user of current machine.
oSmtp.Password = "" 'password of this user

If oSmtp.SendMail() = 0 Then
 
Response.Write oSmtp.GetLastErrDescription()
End If

MelittaMedlem sedan sep. 2003448 inlägg

23 apr. 2004 23:16#2

Känner inte igen detta object,
Server.CreateObject("ANSMTP.OBJ")

ska det inte heta nått i stil med:
Server.CreateObject("CDONTS.NewMail")

Är detta lokala adress eller serverns?
"192.168.0.184"

BiasseMedlem sedan aug. 2003480 inlägg

24 apr. 2004 08:34#3

192.168.0.184 är min server ip.

Ändrade till "Server.CreateObject("CDONTS.NewMail")"
och fick då detta fel mess:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01B6)
Objektet stöder inte egenskapen eller metoden.: 'oSmtp.ServerAddr'

BiasseMedlem sedan aug. 2003480 inlägg

24 apr. 2004 09:38#4

Men det här är ju helmärkligt.. scriptet här ovanför funkar kanon localt.. testar nu i 2000 server och det är samma visa där också.

Du tyckte att scriptet var märkligt och det är nått spec med det för det går inte om man inte installerar "ansmtp.exe".

Har försökt på många olika vis men förstår inte hur jag ska skriva det på annat sätt för att det ska fungera att läsa ur databasen och sen skicka det auto med ett formulär save script.

Hur skulle du ha gjort scritet?

mvh Biasse

BiasseMedlem sedan aug. 2003480 inlägg

24 apr. 2004 13:39#5

set mailare = server.CreateObject("CDONTS.NewMail")
mailare.From = "info@fyndet.webb.se"
mailare.To = epostAdress
mailare.Subject = "Din Annons"

Meddelande= "Hejsan.  Här kommer dina annons uppgifter."& vbCrLf &"Ditt Namn: "& namn & vbCrLf &"Ditt Lösenord: "&passWord & vbCrLf &"Din Adress: " &epostAdress
Meddelande = Meddelande & vbCrLf & vbCrLf &"MVH Fyndet"
Meddelande = Meddelande & vbCrLf &"http://fyndet.webb.se "

mailare.Body = Meddelande

mailare.BodyFormat = 1
mailare.MailFormat = 1
mailare.Importance = 1
mailare.Send

Set mailare = nothing