Cdonts

Kan du kanske visa exakt (du kan ändra mailadresserna om du vill) den kod du har nu? Så vi får se uppdateringarna du gjort.

Teskörde nyss denna kod, den fungerar:

[RED]Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")

	objMail.From = "[b]mail@adress.se[/b]"
	objMail.Subject = "Rubriken"
	objMail.To = "[b]mail@adress.se[/b]"
	objMail.Body = "Innehåll i mailet.."
	objMail.Send

Set objMail = Nothing[/RED]

Dock med andra mailadresser.. (fet här ovan)

Översta raden var nog mer rätt från början tror jag:

Set Mail = server.CreateObject("CDONTS.NewMail")

r/ jupp

Självklart kan jag göra det

<% 
Set Mail = server.CreateObject("CDONTS.NewMail") 
Mail.From = "x@hotmail.com" 
Mail.To = "xx@hotmail.com" 
Mail.Subject = "Order" 
Mail.Body = "Test" 
Mail.Send 
Set Mail = Nothing 
%>

Så ser det ut nu, mailadresserna är 2st olika..

Stor bokstav på Server? Tror nog inte det spelar nån roll, men det är det enda möjliga felet jag kan se.

solbulle skrev:

Översta raden var nog mer rätt från början tror jag:

Set Mail = server.CreateObject("CDONTS.NewMail")

r/ jupp

Jo, funkar inte alls utan "New" Men det var mitt fel eftersom jag inte han ändra det innan Sebbe gjorde ett citat på det...

Kan det vara som så att servern bara tillåter mail med avsändaradress från denegna domänen?
*spånar vilt*

solbulle skrev:

Kan det vara som så att servern bara tillåter mail med avsändaradress från denegna domänen?
*spånar vilt*

Finns en del hotell som har den spärren - ja.

Palle skrev:

solbulle skrev:

Kan det vara som så att servern bara tillåter mail med avsändaradress från denegna domänen?
*spånar vilt*

Finns en del hotell som har den spärren - ja.

Det här är dock på min egen server WinXp Pro med SP1

Testa detta och se vad du får för resultat:

[RED]<%

strInfo = "CDONTS fungerar som det ska.."

On Error Resume Next

	Set Cdonts = Server.CreateObject("CDONTS.NewMail")
		If err.number <> 0 Then strInfo = "CDONTS är inte installerat på denna burk."
		err.clear
	Set Cdonts = Nothing

Response.Write strInfo

%>[/RED]

Palle skrev:

Testa detta och se vad du får för resultat:

[RED]<%

strInfo = "CDONTS fungerar som det ska.."

On Error Resume Next

	Set Cdonts = Server.CreateObject("CDONTS.NewMail")
		If err.number <> 0 Then strInfo = "CDONTS är inte installerat på denna burk."
		err.clear
	Set Cdonts = Nothing

Response.Write strInfo


%>[/RED]

Får "CDONTS fungerar som det ska.."
*snyft*

Har du verkligen installerat CDONTS då?

Josef skrev:

Har du verkligen installerat CDONTS då?

Ja..

Visa all kod på sidan som du har den nu...

Kolla under c:\Inetpub\mailroot

Kolla igenom mapparna om du har några filer där, det kan hända att SMTP-servern inte lyckas få iväg dem från din dator ens..
Brandväggar?

Har du startat SMTP-servern?

Är datorn igång?

:e

Kunde inte låta bli. :r

Palle skrev:

Kolla under c:\Inetpub\mailroot

Kolla igenom mapparna om du har några filer där, det kan hända att SMTP-servern inte lyckas få iväg dem från din dator ens..
Brandväggar?

Ingen brandvägg och servern står själv som router...
Men alla mailen ligger i mappen "Queue" under mailroot.
mysko..

..ok, där har du problemet. ;)

Gå in i smtp-servern och kolla hur ofta den ska kolla efter/skicka köade meddelande.

Den här koden ska funka för dig

<%
Set newMailObj = CreateObject("CDONTS.Newmail")
  newMailObj.From = "epost@fran.se"
  newMailObj.To = "Epost@mottagare.se"
  newMailObj.Subject = "Ämne"

 
    newMailObj.BodyFormat = CdoBodyFormatText
    newMailObj.MailFormat = CdoMailFormatMime    
    sMailBody = "Testrad 1"& vbNewLine & vbNewLine
    sMailBody = sMailBody & "Testrad 2 " & vbNewLine
    newMailObj.Body = sMailBody

  newMailObj.Send
  Set newMailObj = Nothing
  %>