formattare mail

[crescenzo]

salve a tutti ringrazio in anticipo x l'attenzione
avrei un piccolo problema invio una mail tramite asp il corpo del messaggio in questo modo

Cint(maxart)
conta=Request.Form("maxart")
For i = 1 To conta
corpoMessaggio = corpoMessaggio & vbCrLf &"Articolo" & i & " : " & Request.Form("articolo"&i)
corpoMessaggio = corpoMessaggio & vbCrLf &"Prezzo" & i & " : " & Request.Form("prezzo"&i)
corpoMessaggio = corpoMessaggio & vbCrLf &"Quantità" & i & " : " & Request.Form("quantita"&i)
corpoMessaggio = corpoMessaggio & vbCrLf &"Importo" & i & " : " & Request.Form("importo"&i)
corpoMessaggio = corpoMessaggio & vbCrLf & ""
Next
corpoMessaggio = corpoMessaggio & vbCrLf &"Importo totale : " & Request.Form("totale")
corpoMessaggio = corpoMessaggio & vbCrLf &"N°Articoli : " & Request.Form("maxart")

se volessi ad es far apparire Importo totale in grassetto come fare??? ho provato ad usare i tag html tip [b] ma in outlook nn vengono considerati ed esce una cosa del tipo
Importo totale
quindi come risolvere sta cosa sempre che si possa fare????
grazie

[kalosjo]

Devi inviarla in formato HTML

[crescenzo]

grazie x l'attenzione
cioè cosa dovrei fare o scrivere

[kalosjo]

Cosa utilizzi??
CDOSYS?
CDONTS?
AspEmail?

Leggi le relative guide e vedi come impostare l'email in HTML.

Solitamente è un comando molto semplice (tipo emailobj.Bodyformat=2)

[crescenzo]

uso CDOSYS

Leggi le relative guide e vedi come impostare l'email in HTML

dove le prendo??
hai un link che parla di questo
grazie ancora
ciao

[kalosjo]

Vedi qui

[SPOT MODE ON] Per gentile concessione della WepPos Communication [SPOT MODE OFF]

[enigma_79]

Originariamente inviato da kalosjo
Vedi qui

[SPOT MODE ON] Per gentile concessione della WepPos Communication [SPOT MODE OFF]

hai un altro link al riguardo???
non riesco a trovare qualcosa riguardante ciò che ha chiesto crescenzo

grazie

[crescenzo]

si ho visto ma è un semplice form
forse sto ancora dormendo ma nn vedo la parte relativa alla formattazione di cui parli
grazie cmq un link moltoooo utile

[kalosjo]

Originariamente inviato da enigma_79
hai un altro link al riguardo???
non riesco a trovare qualcosa riguardante ciò che ha chiesto crescenzo

grazie

Querllo che ha chiesto crescenzo è che non mette in grassetto.

Per mettere in grassetto, il formato deve essere HTML e non testo, altrimenti non ha proprietà di formattazione.

Nel codice del link che ho messo, c'è proprio tutto per inviare una email in formato HTML, poi la formattazione del testo ve la fate da voi.....

[crescenzo]

<%

on error resume next

if err.number>0 then
					strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
				else
					strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
				end if

response.write "inserimento avvenuto con successo"
Response.Write Request.Form("maxart") 

DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

	
	
invioA =  "mail@tata.it"

	'* voce da modificare con un indirizzo email che funga da mittente: 
			
invioDa =  "mail@tata.it"



nomeDominio 				= Request.ServerVariables("HTTP_HOST")
indirizzoIp					= Request.ServerVariables("REMOTE_ADDR") 
modulo						= Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo		= Request.ServerVariables("HTTP_USER_AGENT")

	'*rilevo i campi del form
corpoMessaggio = corpoMessaggio & vbCrLf &"Nome : " & Request.Form("nome")
corpoMessaggio = corpoMessaggio & vbCrLf & "Cognome : " & Request.Form("cognome")
corpoMessaggio = corpoMessaggio & vbCrLf &"E-mail : " & Request.Form("email")
corpoMessaggio = corpoMessaggio & vbCrLf &"Indirizzo " & Request.Form("indirizzo")
corpoMessaggio = corpoMessaggio & vbCrLf &"Città : " & Request.Form("citta")
corpoMessaggio = corpoMessaggio & vbCrLf &"Cap : " & Request.Form("cap")
corpoMessaggio = corpoMessaggio & vbCrLf &"Telefono : " & Request.Form("telefono")

Cint(maxart) 
conta=Request.Form("maxart")
For i = 1 To conta
corpoMessaggio = corpoMessaggio & vbCrLf &"Articolo" & i & " : " & Request.Form("articolo"&i)
corpoMessaggio = corpoMessaggio & vbCrLf &"Prezzo" & i & " : " & Request.Form("prezzo"&i)
corpoMessaggio = corpoMessaggio & vbCrLf &"Quantità" & i & " : " & Request.Form("quantita"&i)
corpoMessaggio = corpoMessaggio & vbCrLf &"Importo" & i & " : " & Request.Form("importo"&i)
corpoMessaggio = corpoMessaggio & vbCrLf & ""
Next 
corpoMessaggio = corpoMessaggio & vbCrLf &"Importo totale : " & Request.Form("totale")
corpoMessaggio = corpoMessaggio & vbCrLf &"N°Articoli : " & Request.Form("maxart")


n =Request.Form("nome")
r =Request.Form("cognome")
	'* creo gli oggetti cdosys sul server e li gestisco
	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = Request.Form("email")
   .Sender = invioDa
   .Subject = "Richiesta Informazioni dal sito " & nomeDominio
   .TextBody = "Questi i dati inseriti nel modulo per la richiesta degli articoli dall'utente con indirizzo IP " & indirizzoIp & "  . " & vbCrLf & corpoMessaggio & ""
   .Send
End With
%>

forse sono troppo duro ma cosa cambia dal mio
anche se il form io lo faccio con flash ed utilizzo questa pag x inviare i dati solo che se utilizzo i tag html nn mi vengono letti
ho visto il link ma ancora nn ho capito se devo aggiungere qualcosa nel mio script?!
grazie ancora x la tua enorme pazienza
ciao