Perchè non mi invia l'email ?

[gelova]

Avendo questo codice:

<%
dim a_messages
dim a_attachments

function SendMail(mailserver, recipient_name, recipient_address, sender_name, sender_address, subject, body)

	dim a_recipient_address
	dim a_recipient_name

	if mailserver = "" or isnull(mailserver) then mailserver = application("smtp_server")

	if sender_name = "" or isnull(sender_name) then sender_name = application("from_name")
	if sender_address = "" or isnull(sender_address) then sender_address = application("from_address")



	select case application("email_component")
case "cdosys"
set mail = Server.CreateObject("CDO.Message")
	set mailcon = Server.CreateObject ("CDO.Configuration")

	
	With mailcon
	
	'SMTP server
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

	'SMTP port
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

	'CDO Port
	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

	'timeout
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update 

	End With
	
	Set mail.Configuration = mailcon

	With mail
	.From = sender_address
	.To = recipient_address

	.Subject = subject
	.HTMLBody = body

end with
	
	'' send the mail
	on error resume next
	mail.Send
	if Err.Number = 0 then
		sendmail = 1
	else
		sendmail = -1
	end if
	on error goto 0

	end select
		
end function

function SendAppEmail(message_id, user_param, user_cc_param, keyfield_param)

	dim rs, sql
	dim subject, body
	dim i
	
	send_count = 0

ecc.....

non riesco a capire perchè non invia l'email premetto che il server su cui risiede è Aruba, alcuni mi hanno detto che l'errore sta nel non aver specificato l'indirizzo dell'email qui:

Set mail.Configuration = mailcon

With mail
.From = sender_address
.To = recipient_address

.Subject = subject
.HTMLBody = body
end with

ma dato che sono a zero di asp, non saprei dove mettere le mani,mi affido alla vostra bravura nella speranza che riesca a mandare questa email.
Grazie !

[KOLOSSEO]

Ma sei sicuro che ci voglia tutta sta roba per mandare una e-mail?

Io ho un sito sul tuo stesso provider e le e-mail le mando con poche righe:

dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.From="miamail@miodominio.ext"
objMail.To= "maildestinatario@suodominio.ext"
objMail.Subject="Oggetto del messaggio"
objMail.htmlBody="Il contenuto del mio messaggio"
objMail.Send
Set objMail = nothing

Giuro che funziona...almeno a me...


Ciao.

[michele.santoro]

Originariamente inviato da gelova
Avendo questo codice:

<%
dim a_messages
dim a_attachments

function SendMail(mailserver, recipient_name, recipient_address, sender_name, sender_address, subject, body)

	dim a_recipient_address
	dim a_recipient_name

	if mailserver = "" or isnull(mailserver) then mailserver = application("smtp_server")

	if sender_name = "" or isnull(sender_name) then sender_name = application("from_name")
	if sender_address = "" or isnull(sender_address) then sender_address = application("from_address")



	select case application("email_component")
case "cdosys"
set mail = Server.CreateObject("CDO.Message")
	set mailcon = Server.CreateObject ("CDO.Configuration")

	
	With mailcon
	
	'SMTP server
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.aruba.it"

	'SMTP port
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

	'CDO Port
	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

	'timeout
	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update 

	End With
	
	Set mail.Configuration = mailcon

	With mail
	.From = sender_address
	.To = recipient_address

	.Subject = subject
	.HTMLBody = body

end with
	
	'' send the mail
	on error resume next
	mail.Send
	if Err.Number = 0 then
		sendmail = 1
	else
		sendmail = -1
	end if
	on error goto 0

	end select
		
end function

function SendAppEmail(message_id, user_param, user_cc_param, keyfield_param)

	dim rs, sql
	dim subject, body
	dim i
	
	send_count = 0

ecc.....

non riesco a capire perchè non invia l'email premetto che il server su cui risiede è Aruba, alcuni mi hanno detto che l'errore sta nel non aver specificato l'indirizzo dell'email qui:

Set mail.Configuration = mailcon

With mail
.From = sender_address
.To = recipient_address

.Subject = subject
.HTMLBody = body
end with

ma dato che sono a zero di asp, non saprei dove mettere le mani,mi affido alla vostra bravura nella speranza che riesca a mandare questa email.
Grazie !

Il regolamento del forum vieta di aprire due discussioni sullo stesso argomento.
Comunque ti ho dato la risposta sull'altro 3D.

[gelova]

Michele hai ragione per quanto riguarda il forum, il problema è che quello vecchio era iniziato con un problema diverso e quindi anche l'oggetto era diverso l'ho voluto spostare qui per dare maggiore visibilità a chi si sofferma solamente al titolo del forum !