Voy a aprovechar este post ya q el problema es con el envio del mail, yo tengo el mismo codigo pero cuando me envia el email me ocurre este error:
Errore: The "SendUsing" configuration value is invalid.
ah.... puedes cambiar el formato del cuerpo colocando oMail.HTMLBody , no lo he probado pero deberia funcionar porq es una propiedad del objeto y es exactamente lo q buscas.
Pienso q debe haber algun problema con las direcciones de email pero ni idea con este error, Aqui les envio el para q vean, ahora aqui arriba el codigo de envio y mas abajo el codigo completo, el cuerpo del mensaje es muy largo pero igual deberia funcionar, tambien he predisposicionado las direcciones de email y nada, bueno quien me pueda ayudar se lo agradezco:
Dim Mail
set Mail = Server.CreateObject("CDO.Message")
Mail.From = da
Mail.To = per
Mail.Subject = curr
Mail.TextBody = cuerpo
On Error Resume Next
Mail.Send
if Err <> 0 Then
Response.Write ( "Errore: " & Err.Description )
else
Response.Write ( "Mail Inviato." )
end if
<html>
<body>
<%
da= "
[email protected]"
per= "
[email protected]"
curr = "CURRICULUM VITAE"
nom = request.form("nome")
cog = request.form("cognome")
luo = request.form("luogo_nascita")
dat = request.form("data_nascita")
cit = request.form("citta")
cap = request.form("cap")
pro = request.form("provinicia")
via = request.form("va")
tel1 = request.form("telefono1")
tel2 = request.form("telefono2")
'da = request.form("email")
tito = request.form("titolo")
dima = request.form("check_diploma_mat")
matu = request.form("maturita")
vmat = request.form("voto_maturita")
dmat = request.form("data_maturita")
diun = request.form("check_diploma_uni")
univ = request.form("universita")
vuni = request.form("voto_universita")
duni = request.form("data_universita")
dila = request.form("check_laurea")
laur = request.form("laurea")
vlau = request.form("voto_laurea")
dlau = request.form("data_laurea")
altr = request.form("altro")
forma= request.form("formazione")
espe = request.form("esperienza_pofesionali")
cinf = request.form("conoscenze_informatiche")
lin1 = request.form("lingua1")
lli1 = request.form("livello_lingua1")
lin2 = request.form("lingua2")
lli2 = request.form("livello_lingua2")
alin = request.form("altre_lingue")
lali = request.form("livello_altre")
cuerpo = "CURRICULUM VITAE" & VBNEWLINE & VBNEWLINE
'cuerpo = cuerpo & "http://ntgedweb1/normeuni/uni.tif " &VBNEWLINE
if (nom<>"") then
cuerpo = cuerpo & "Nome: " & nom & VBNEWLINE
end if
if (cog<>"") then
cuerpo = cuerpo & "Cognome: " & cog & VBNEWLINE
end if
if (luo<>"") then
cuerpo = cuerpo & "Luogo di Nascita: " & luo & VBNEWLINE
end if
if (dat<>"") then
cuerpo = cuerpo & "Data di Nascita: " & dat & VBNEWLINE
end if
if (cit<>"") then
cuerpo = cuerpo & "Residente a: " & cit & VBNEWLINE
end if
if (cap<>"") then
cuerpo = cuerpo & "CAP: " & cap & VBNEWLINE
end if
if (pro<>"") then
cuerpo = cuerpo & "Provincia: " & pro & VBNEWLINE
end if
if (via<>"") then
cuerpo = cuerpo & "Via: " & via & VBNEWLINE
end if
cuerpo = cuerpo & "Recapiti Telefonoci: " & VBNEWLINE
if (tel1<>"") then
cuerpo = cuerpo & "Telefono 1: " & tel1 & VBNEWLINE
end if
if (tel2<>"") then
cuerpo = cuerpo & "Telefono 2: " & tel2 & VBNEWLINE
end if
if (tito<>"") then
cuerpo = cuerpo & "Titolo di Studio: " & tito & VBNEWLINE
end if
'if (dima<>"") then
cuerpo = cuerpo & "Diploma: " & dima & VBNEWLINE
cuerpo = cuerpo & "Maturità: " & matu & VBNEWLINE
cuerpo = cuerpo & "Voto: " & vmat & VBNEWLINE
cuerpo = cuerpo & "Data Diploma: " & dmat & VBNEWLINE
'end if
'if (diun<>"") then
cuerpo = cuerpo & "Diploma Universitario: " & diun & VBNEWLINE
cuerpo = cuerpo & "Diploma: " & univ & VBNEWLINE
cuerpo = cuerpo & "Voto: " & vuni & VBNEWLINE
cuerpo = cuerpo & "Data Diploma: " & duni & VBNEWLINE
'end if
'if (diun<>"") then
cuerpo = cuerpo & "Laurea: " & dila & VBNEWLINE
cuerpo = cuerpo & "Laurea: " & laur & VBNEWLINE
cuerpo = cuerpo & "Voto: " & vlau & VBNEWLINE
cuerpo = cuerpo & "Data Laurea: " & dlau & VBNEWLINE
'end if
if (altr<>"") then
cuerpo = cuerpo & "Altro: " & altr & VBNEWLINE
end if
if (forma<>"") then
cuerpo = cuerpo & "Formazione: " & VBNEWLINE
cuerpo = cuerpo & forma & VBNEWLINE
end if
if (espe<>"") then
cuerpo = cuerpo & "Esperienze Profesionali: " & VBNEWLINE
cuerpo = cuerpo & espe & VBNEWLINE
end if
if (cinf<>"") then
cuerpo = cuerpo & "Conoscenze Informatiche: " & VBNEWLINE
cuerpo = cuerpo & cinf & VBNEWLINE
end if
cuerpo = cuerpo & "Lingue: " & VBNEWLINE
if (lin1<>"") then
cuerpo = cuerpo & "Lingua N° 1: " & lin1 & VBNEWLINE
cuerpo = cuerpo & "Livello: " & lli1 & VBNEWLINE
end if
if (lin2<>"") then
cuerpo = cuerpo & "Lingua N° 2: " & lin2 & VBNEWLINE
cuerpo = cuerpo & "Livello: " & lli2 & VBNEWLINE
end if
if (alin<>"") then
cuerpo = cuerpo & "Altre: " & alin & VBNEWLINE
cuerpo = cuerpo & "Livello: " & lali & VBNEWLINE
end if
Dim Mail
set Mail = Server.CreateObject("CDO.Message")
Mail.From = da
Mail.To = per
Mail.Subject = curr
Mail.TextBody = cuerpo
On Error Resume Next
Mail.Send
if Err <> 0 Then
Response.Write ( "Errore: " & Err.Description )
else
Response.Write ( "Mail Inviato." )
end if
%>
<p>
<br>
<a href=curriculum.html>Ritorna</a>
<p>
</body>
</html>