[VBS] mail html

**Aki** · 02-09-2004, 16:57

guardate sto codice x inviare una mail

codice:

set mail = server.CreateObject("CDONTS.NewMail")
	'Testo html del corpo della mail
	HTML = "<html>" 
	HTML = HTML & "<head>" 
	HTML = HTML & "<title>Richiesta del " & data & "</title>" 
	HTML = HTML & "</head>" 
	HTML = HTML & "<body bgcolor=""#FFFFFF"">" 
	HTML = HTML & "

<font face=""Verdana"">" 
	HTML = HTML & "Descrizione:" & request.Form("description") & "
"
	HTML = HTML & "Utente assegnato: " & usr & "
"
	HTML = HTML & "Priorità: " & pri & "
"
	HTML = HTML & "Canale: " & can & "
"
	HTML = HTML & "Classificazione: " & cla & "
"
	HTML = HTML & "Fornitore:" & forn & "
"
	HTML = HTML & "</body>" 
	HTML = HTML & "</html>" 
	Mail.From = user
	Mail.to = user & "; " & user_assegn_mail & ", " & fmail
	Mail.Subject = "Richiesta: " & Now()
	Mail.BodyFormat = 0 
	Mail.MailFormat = 0
	Mail.Body = HTML'"Utente assegnato: " & a & "
Priorità: " & b & "
Canale: " & d & "
Classificazione: " & c & "
Fornitore: " & e & "
Descrizione: " & request.Form("description")
			
	Mail.send()
	If err.number <> 0 then
		response.Write("Invio non riuscito: " & err.description)
	else
		response.Write("E-mail inviata con successo")
	end if
	set mail = nothing

non manda nulla

AIUTOOOOO!!!!!

**teorema55** · 02-09-2004, 17:02

Il tuo server supporta CDONTS?

**teorema55** · 02-09-2004, 17:05

Inoltre: sei sicuro che "HTML" si possa usare come nome di variabile...............prova a chiamarlo in un altro modo.........

**Aki** · 02-09-2004, 17:05

Sì, avrei risolto, ma mi manca una cosuccia, come gli dico di puntare a un SmtpServer non localhost?

**teorema55** · 02-09-2004, 17:09

Comunque, se sì, penso che questa riga

codice:

Mail.Body = HTML'"Utente assegnato: " & a & "
Priorità: " & b & "
Canale: " & d & "
Classificazione: " & c & "
Fornitore: " & e & "
Descrizione: " & request.Form("description")

debba essere solo così:

codice:

mail.body = HTML

**Aki** · 02-09-2004, 17:12

ma che c'entra, qquello è un commento!

Piuuttosto sai come dichiarare il Server SMTP?

**teorema55** · 02-09-2004, 17:21

Sì lo so, ma non vorrei che mi sfuggisse qualche altro apice e sbagliare di nuovo

**Roby_72** · 02-09-2004, 19:10

Originariamente inviato da teorema55
Inoltre: sei sicuro che "HTML" si possa usare come nome di variabile...............prova a chiamarlo in un altro modo.........

Si può usare.

Roby

**Aki** · 03-09-2004, 08:24

perfavore, sapete come forzare l'uso di un altro SmtpServer?

**Aki** · 03-09-2004, 08:57

risolto:

codice:

set msg = CreateObject("CDO.Message")
	msg.Subject = "Richiesta: " & Now()
	msg.From = user'request.Form("uid")
	msg.To = user & "; " & user_assegn_mail & fmail'"lucia.bruzzone@sogegross.it;ercole.gattiglia@sogegross.it;giorgio.catena@sogegross.it"
'	msg.AddAttachment "D:\wincor\DTS_LOG\Inevasi_log_DST.txt"
	HTML = "<html>" 
	HTML = HTML & "<head>" 
	HTML = HTML & "<title>Richiesta del " & data & "</title>" 
	HTML = HTML & "</head>" 
	HTML = HTML & "<body bgcolor=""#FFFFFF"">" 
	HTML = HTML & "

<font face=""Verdana"">" 
	HTML = HTML & "Descrizione:" & request.Form("description") & "
"
	HTML = HTML & "Utente assegnato: " & usr & "
"
	HTML = HTML & "Priorità: " & pri & "
"
	HTML = HTML & "Canale: " & can & "
"
	HTML = HTML & "Classificazione: " & cla & "
"
	HTML = HTML & "Fornitore:" & forn & "
"
	HTML = HTML & "</body>" 
	HTML = HTML & "</html>" 
	msg.HTMLBody = HTML

	msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.100.60"
	msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
	msg.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	msg.Configuration.Fields.Update
	msg.Send()
	
	set msg = nothing

però mi dà errore all'invio che può essere?

Discussione: [VBS] mail html

Strumenti discussione

Ricerca discussione

Visualizza

[VBS] mail html

Permessi di invio