CDOSYS e Server SMTP

[carloscara]

Ciao a tutti,
con CDOSYS, se imposto il server SMTP del mio dominio, mi fa inviare le mail solo agli indirizzi del mio dominio altrimenti dà RELAYING NOT PERMITTED (o qualcosa di simile )... come si può sistemare in modo da far inviare a tutti indistintamente? Eventualmente ci sono dei server SMTP liberi da usare?

ciao e grazie

[Luis33]

... e perchè limitarsi?

sName = request.form("Autore")
sEmail = request.form("Email")
title = request.form("titolo")
message = pulisci(request.form("messaggio"))

data = date()
tempo = time()

messaggio = messaggio & VBcrlf & "<font face = verdana><font size = 1>"
messaggio = messaggio & VBcrlf & "[b]Comunicazione

"
messaggio = messaggio & VBcrlf & "Autore: <font color=red>" & sName & "</font>

"
messaggio = messaggio & VBcrlf & "Data invio:<font color=blue> " & data & "</font>
" 
messaggio = messaggio & VBcrlf & "Ora invio:<font color=blue> " & tempo & "</font>
" 
messaggio = messaggio & VBcrlf & "E-mail:  " & sEmail & "
"
messaggio = messaggio & VBcrlf & "Titolo: <font color=blue> " & title & "</font>
"
messaggio = messaggio & VBcrlf & "Messaggio: <font color=blue> " & message & "</font>
"


'INVIO CON CDOSYS
Set miaMail = CreateObject("CDO.Message")
miaMail.From = "tuaemail@email.it"
miaMail.To = sEmail
miaMail.Subject = "email cdosys"
miaMail.HtmlBody = messaggio
miaMail.Send
Set miaMail = Nothing

[carloscara]

ho provato il codice che mi hai dato... dà:

Errore: Il valore di configurazione "SendUsing" non è valido.

[Luis33]

Originariamente inviato da carloscara
ho provato il codice che mi hai dato... dà:

Errore: Il valore di configurazione "SendUsing" non è valido.

.. posso vedere cosa hai scritto?

[carloscara]

ho usato semplicemente

Set miaMail = CreateObject("CDO.Message")
miaMail.From = "webmaster@miodominio.it"
miaMail.To = toemail
miaMail.Subject = "email cdosys"
miaMail.HtmlBody = body
miaMail.Send
Set miaMail = Nothing

la variabile toemail la passo via form mentre la body la dichiaro sopra...

ciao e grazie

[Luis33]

lavori su un server hosting o in locale?
che versione di windows server?

Fai partire questo script e fammi sapere cosa ti restituisce:

<%

	
	Dim comList(1)
	
	comList(0) = Array( "CDOSYS", "CDO.Message" )
	comList(1) = Array( "CDONTS", "CDONTS.NewMail" )

Function IsAvailable( comIdentity )
		On Error Resume Next
		IsAvailable = False
		Err = 0
		Set xTestObj = Server.CreateObject( comIdentity )
		If Err = 0 Then IsAvailable = True
		Set xTestObj = Nothing
		Err = 0
	End Function

	Public Function CheckCOM()
		Avail = 0
		strTxt = "<table cellpadding=3 cellspacing=3 border=0 align=center width=300>" & vbNewLine
		For Idx = LBound( comList ) To UBound( comList )
			Provider = Idx
			strTxt = strTxt & vbTab & "<tr><td width=200><font class=norm>" & comList(Idx)(0) & "</font></td>"
			strTxt = strTxt & "<td align=right width=20><font class=norm>[</font></td>"
			If IsAvailable( comList(Idx)(1) ) Then
				strTxt = strTxt & "<td align=center><font face=tahoma size=2 color=blue>Available</font></td>"
				Avail = Avail + 1 
			Else
				strTxt = strTxt & "<td align=center><font class=norm>Unavailable</font></td>"
			End If
			strTxt = strTxt & "<td align=left width=20><font class=norm>]</font></td></tr>" & vbNewLine
		Next
		strTxt = strTxt & vbTab & "<tr><td colspan=4 height=30><font class=norm><font color=blue>" & Avail & "</font> of "
		strTxt = strTxt & UBound( comList ) + 1 & " supported components are available.</font></td></tr>" & vbNewLine
		CheckCOM = strTxt & "</table>" & vbNewLine
	End Function

	Response.Write( CheckCOM() )
%>

[carloscara]

Ciao,
sono in hosting.
Il server è IIS 5.0
il SO penso che sia Windows 2000...


lo script mi ha restituito


CDOSYS [ Available ]
CDONTS [ Available ]
2 of 2 supported components are available.


ciao e grazie!

[carloscara]

uhm niente

[fraude]

Il codice ha restituito che sul tuo server funzionano entrambi i componenti per l'invio di email, quindi puoi utilizzare tranquillamente CDONTS:

'INVIO CDONTS 
Set objMail = Server.CreateObject ("CDONTS.NewMail") 
objMail.From = indirizzo_mittente 
objMail.To = indirizzo_destinatario 
objMail.Subject = oggetto_email 
objMail.Body = testo_email 
objMail.BodyFormat = 0 
objMail.MailFormat = 0 
objMail.Send

[carloscara]

boh, così non dà errori ma le mail non arrivano.... sto cominciando a pensare che ci sia qualche problema sul server... ho sempre usato CDONTS senza problemi ma in questo caso le sto provando tutte ma non c'è niente da fare!

ciao