aiuto codice da mail testo a mail html???

[massimo17]

ragazzi chiedo aiuto a voi.
io in un forum ho una pagina che invia le mail in formato testo, è possibile cambiando il codice inviare la mail in formato htnl?
posto il codice:

<%
if Session(strCookieURL & "Approval") <> "15916941253" then
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
end if

if lcase(strEmail) <> "1" then
Response.Write "

<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Non hai la funzione E-mail Attiva.</font></p>" & vbNewLine
WriteFooterShort
Response.End
end if

if Request.Form("Method_Type") = "Send_EMail" then
Err_Msg = ""

txtSubject = trim(Request.Form("Subject"))
txtMessage = trim(Request.Form("Message"))

if txtSubject = "" then
Err_Msg = Err_Msg & "[*]Devi inserire l'oggetto."
end if

if txtMessage = "" then
Err_Msg = Err_Msg & "[*]Devi inserire il Messaggio."
end if

if Err_Msg = "" then
strSql = "SELECT M_NAME, M_EMAIL, M_LEVEL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE M_STATUS = " & 1
if Request.Form("optin") = 1 then
strSql = strSql & " AND M_RECEIVE_EMAIL = " & 1
end if
Select Case Request.Form("limitmods")
Case 1
strSql = strSql & " AND M_LEVEL = " & 2
Case 2
strSql = strSql & " AND M_LEVEL = " & 3
Case 3
strSql = strSql & " AND M_LEVEL >= " & 2
End Select
if Request.Form("strInitial") = 1 then
Initial = split("A|B|C|D|E|F","|")
strSql = strSql & " AND (M_NAME LIKE '" & Initial(0) & "%'"
for icnt = 1 to ubound(Initial)
strSql = strSql & " OR M_NAME LIKE '" & Initial(icnt) & "%'"
next
strSql = strSql & ")"
elseif Request.Form("strInitial") = 2 then
Initial = split("G|H|I|J|K|L|M","|")
strSql = strSql & " AND (M_NAME LIKE '" & Initial(0) & "%'"
for icnt = 1 to ubound(Initial)
strSql = strSql & " OR M_NAME LIKE '" & Initial(icnt) & "%'"
next
strSql = strSql & ")"
elseif Request.Form("strInitial") = 3 then
Initial = split("N|O|P|Q|R|S","|")
strSql = strSql & " AND (M_NAME LIKE '" & Initial(0) & "%'"
for icnt = 1 to ubound(Initial)
strSql = strSql & " OR M_NAME LIKE '" & Initial(icnt) & "%'"
next
strSql = strSql & ")"
elseif Request.Form("strInitial") = 4 then
Initial = split("T|U|V|W|X|Y|Z","|")
strSql = strSql & " AND (M_NAME LIKE '" & Initial(0) & "%'"
for icnt = 1 to ubound(Initial)
strSql = strSql & " OR M_NAME LIKE '" & Initial(icnt) & "%'"
next
strSql = strSql & ")"
end if

set rsMail = Server.CreateObject("ADODB.Recordset")
rsMail.Open strSql, my_Conn, 0, 1, &H0001

if rsMail.EOF then
recMemberCount = ""
else
allMemberData = rsMail.GetRows(-1)
recMemberCount = UBound(allMemberData, 2)
end if

rsMail.Close
set rsMail = Nothing

server.scriptTimeout = 10000

if recMemberCount <> "" then
mM_NAME = 0
mM_EMAIL = 1
mM_LEVEL = 2

Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>E-Mail Inviata</font></p>" & vbNewLine
for RowCount = 0 to recMemberCount

Member_Name = allMemberData(mM_NAME,RowCount)
Member_EMail = allMemberData(mM_EMAIL,RowCount)
Member_Level = allMemberData(mM_LEVEL,RowCount)

strRecipientsName = Member_Name
strRecipients = Member_EMail
strFromName = strForumTitle
strFrom = strSender
strSubject = txtSubject
if Request.Form("emailfooter") = 1 then
strMessage = txtMessage & vbNewLine & vbNewLine
strMessage = strMessage & "----------" & vbNewLine
strMessage = strMessage & "Hai ricevuto questo messaggio dal " & strForumTitle & " in quanto sei "
Select Case Member_Level
Case 1
strMessage = strMessage & "un Utente "
Case 2
strMessage = strMessage & "un Moderatore "
Case 3
strMessage = strMessage & "un Amministratore "
End Select
strMessage = strMessage & "del forum." & vbNewLine
strMessage = strMessage & "Il tuo Nome Utente è: " & Member_Name & vbNewLine
strMessage = strMessage & "L'indirizzo del forum è " & strForumURL & "."
Else
strMessage = txtMessage
End If
%>

<%
next
If recMemberCount = 0 Then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Invia " & (recMemberCount + 1) & " E-Mail</font></p>" & vbNewLine
Else
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Inviate " & (recMemberCount + 1) & " E-Mail</font></p>" & vbNewLine
End If
else
Response.Write "

<font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>Nessun Utente Trovato</font></p>" & vbNewLine
end if
else
Response.Write "

<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>C'è stato un Problema con la tua E-mail</font></p>" & vbNewLine & _
" <table>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "[/list]</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
"

<font size=""" & strDefaultFontSize & """>Torna a reinserire i Dati</font></p>" & vbNewLine
end if
else
Response.Write " <form action=""admin_pop_mail.asp"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
" <input type=""hidden"" name=""Method_Type"" value=""Send_EMail"">" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strHeadCellColor & """ noWrap colspan=""2"" vAlign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Invia Email</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Oggetto:</font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><input maxLength=""50"" name=""Subject"" tabindex=""1"" value="""" size=""35""></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <script language=""JavaScript"">document.Form1.Subject.foc us();</script>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Messaggio:</font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><textarea cols=""29"" name=""Message"" rows=""6"" tabindex=""2"" wrap=""VIRTUAL""></textarea></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Nome Utente:</font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input type=""radio"" class=""radio"" name=""strInitial"" value=""1"">A-F<input type=""radio"" class=""radio"" name=""strInitial"" value=""2"">G-M<input type=""radio"" class=""radio"" name=""strInitial"" value=""3"">N-S<input type=""radio"" class=""radio"" name=""strInitial"" value=""4"">T-Z<input type=""radio"" class=""radio"" name=""strInitial"" value=""5"" checked>Tutti</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Livello
Utente:</font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input type=""radio"" class=""radio"" name =""limitmods"" value=""0"" checked>Tutti gli Utenti.
" & vbNewLine & _
" <input type=""radio"" class=""radio"" name =""limitmods"" value=""1"">Solo Moderatori.
" & vbNewLine & _
" <input type=""radio"" class=""radio"" name =""limitmods"" value=""2"">Solo Amministratori.
" & vbNewLine & _
" <input type=""radio"" class=""radio"" name =""limitmods"" value=""3"">Amministratori e Moderatori.</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """></font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name =""optin"" type=""checkbox"" value=""1"" checked>Clicca qui per inviare SOLO agli Utenti.</font>
<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name =""emailfooter"" type=""checkbox"" value=""1"" checked>Clicca qui per aggiungere l'email footer.</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Invia E-Mail"" id=""submit1"" name=""submit1"" tabindex=""3""><input type=""reset"" value=""Cancella"" id=""reset1"" name=""reset1"" tabindex=""4""></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </form>" & vbNewLine
end if
%>




grazie mille

[Roby_72]

1) Questa pagina non invia l'email
2) Quando riporti script usa i tag CODE altrimenti è da morire

Forse la risposta la trovi qui:


Roby

[massimo17]

hem cosa sono i tag code?
ecco la pagina inc_mail: io uso cdosys su win 2003:

<%
if trim(strFromName) = "" then
strFromName = strForumTitle
end if

select case lcase(strMailMode)
case "abmailer"
Set objNewMail = Server.CreateObject("ABMailer.Mailman")
objNewMail.ServerAddr = strMailServer
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.SendTo = strRecipients
objNewMail.MailSubject = strSubject
objNewMail.MailMessage = strMessage
on error resume next '## Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "aspemail"
Set objNewMail = Server.CreateObject("Persits.MailSender")
objNewMail.FromName = strFromName
objNewMail.From = strSender
objNewMail.AddReplyTo strSender
objNewMail.Host = strMailServer
objNewMail.AddAddress strRecipients, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "aspmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
'objNewMail.AddReplyTo = strSender
objNewMail.RemoteHost = strMailServer
objNewMail.AddRecipient strRecipientsName, strRecipients
objNewMail.Subject = strSubject
objNewMail.BodyText = strMessage
on error resume next '## Ignore Errors
SendOk = objNewMail.SendMail
If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & objNewMail.Response & ""
End if
case "aspqmail"
Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")
objNewMail.QMessage = 1
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.RemoteHost = strMailServer
objNewMail.AddRecipient strRecipientsName, strRecipients
objNewMail.Subject = strSubject
objNewMail.BodyText = strMessage
on error resume next '## Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
on error resume next '## Ignore Errors
objNewMail.Send strSender, strRecipients, strSubject, strMessage
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
on error resume next '## Ignore Errors
case "chilicdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
on error resume next '## Ignore Errors
objNewMail.Host = strMailServer
objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
on error resume next '## Ignore Errors
case "cdosys"
Set iConf = Server.CreateObject ("CDO.Configuration")
Set Flds = iConf.Fields

'Set and update fields properties
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer
'Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
'Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
Flds.Update

Set objNewMail = Server.CreateObject("CDO.Message")
Set objNewMail.Configuration = iConf

'Format and send message
Err.Clear

objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.TextBody = strMessage
On Error Resume Next
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "dkqmail"
Set objNewMail = Server.CreateObject("dkQmail.Qmail")
objNewMail.FromEmail = strSender
objNewMail.ToEmail = strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.CC = ""
objNewMail.MessageType = "TEXT"
on error resume next '## Ignore Errors
objNewMail.SendMail()
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "dundasmailq"
set objNewMail = Server.CreateObject("Dundas.Mailer")
objNewMail.QuickSend strSender, strRecipients, strSubject, strMessage
on error resume next '##Ignore Errors
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "dundasmails"
set objNewMail = Server.CreateObject("Dundas.Mailer")
objNewMail.TOs.Add strRecipients
objNewMail.FromAddress = strSender
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '##Ignore Errors
objNewMail.SendMail
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "geocel"
set objNewMail = Server.CreateObject("Geocel.Mailer")
objNewMail.AddServer strMailServer, 25
objNewMail.AddRecipient strRecipients, strRecipientsName
objNewMail.FromName = strFromName
objNewMail.FromAddress = strFrom
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Send()
if Err <> 0 then
Response.Write "La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description
else
Response.Write "La tua e-mail è stata inviata..."
end if
case "iismail"
Set objNewMail = Server.CreateObject("iismail.iismail.1")
MailServer = strMailServer
objNewMail.Server = strMailServer
objNewMail.addRecipient(strRecipients)
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.body = strMessage
on error resume next '## Ignore Errors
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "jmail"
Set objNewMail = Server.CreateObject("Jmail.smtpmail")
objNewMail.ServerAddress = strMailServer
objNewMail.AddRecipient strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
objNewMail.body = strMessage
objNewMail.priority = 3
on error resume next '## Ignore Errors
objNewMail.execute
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "jmail4"
Set objNewMail = Server.CreateObject("Jmail.Message")
'objNewMail.MailServerUserName = "myUserName"
'objNewMail.MailServerPassword = "MyPassword"
objNewMail.From = strSender
objNewMail.FromName = strFromName
objNewMail.AddRecipient strRecipients, strRecipientsName
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Send(strMailServer)
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "mdaemon"
Set gMDUser = Server.CreateObject("MDUserCom.MDUser")
mbDllLoaded = gMDUser.LoadUserDll
if mbDllLoaded = False then
response.write "Impossibile caricare MDUSER.DLL! Il Programma sarà terminato." & "
"
else
Set gMDMessageInfo = Server.CreateObject("MDUserCom.MDMessageInfo")
gMDUser.InitMessageInfo gMDMessageInfo
gMDMessageInfo.To = strRecipients
gMDMessageInfo.From = strSender
gMDMessageInfo.Subject = strSubject
gMDMessageInfo.MessageBody = strMessage
gMDMessageInfo.Priority = 0
gMDUser.SpoolMessage gMDMessageInfo
mbDllLoaded = gMDUser.FreeUserDll
end if
if Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
end if
case "ocxmail"
Set objNewMail = Server.CreateObject("ASPMail.ASPMailCtrl.1")
recipient = strRecipients
sender = strSender
subject = strSubject
message = strMessage
mailserver = strMailServer
on error resume next '## Ignore Errors
result = objNewMail.SendMail(mailserver, recipient, sender, subject, message)
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "ocxqmail"
Set objNewMail = Server.CreateObject("ocxQmail.ocxQmailCtrl.1")
mailServer = strMailServer
FromName = strFromName
FromAddress = strSender
priority = ""
returnReceipt = ""
toAddressList = strRecipients
ccAddressList = ""
bccAddressList = ""
attachmentList = ""
messageSubject = strSubject
messageText = strMessage
on error resume next '## Ignore Errors
objNewMail.Q mailServer, _
fromName, _
fromAddress, _
priority, _
returnReceipt, _
toAddressList, _
ccAddressList, _
bccAddressList, _
attachmentList, _
messageSubject, _
messageText
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "sasmtpmail"
Set objNewMail = Server.CreateObject("SoftArtisans.SMTPMail")
objNewMail.FromName = strFromName
objNewMail.FromAddress = strSender
objNewMail.AddRecipient strRecipientsName, strRecipients
'objNewMail.AddReplyTo strSender
objNewMail.BodyText = strMessage
objNewMail.organization = strForumTitle
objNewMail.Subject = strSubject
objNewMail.RemoteHost = strMailServer
on error resume next
SendOk = objNewMail.SendMail
If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & objNewMail.Response & ""
End if
case "smtp"
Set objNewMail = Server.CreateObject("SmtpMail.SmtpMail.1")
objNewMail.MailServer = strMailServer
objNewMail.Recipients = strRecipients
objNewMail.Sender = strSender
objNewMail.Subject = strSubject
objNewMail.Message = strMessage
on error resume next '## Ignore Errors
objNewMail.SendMail2
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
case "vsemail"
Set objNewMail = CreateObject("VSEmail.SMTPSendMail")
objNewMail.Host = strMailServer
objNewMail.From = strSender
objNewMail.SendTo = strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
on error resume next '## Ignore Errors
objNewMail.Connect
objNewMail.Send
objNewMail.Disconnect
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]La tua richiesta non è andata a buon fine per il seguente errore: " & Err.Description & ""
End if
end select

Set objNewMail = Nothing

on error goto 0
%>



grazie a chi mi aiuta

[Roby_72]

Sostituisci questo

objNewMail.HTMLBody = strMessage

a

objNewMail.TextBody = strMessage

nella parte del CDOSYS.

Roby

[massimo17]

se funziona vi bacio tutti....
pero' devo provare....
logicamente nel testo devo mettere quindi

<body.........


grassieeeeeeeeeeeee

[massimo17]

hem....
ma dove devo sostituirlo che ci sono mille casi di invio?
se io uso cdosys dove lo devo sostituire?
grazie e scusate

[Roby_72]

Te l'ho già detto!
Nella parte SOTTO a quella in cui comincia lo script di CDOSYS (CDO.Message)

Roby

[massimo17]

FUNZIONAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAaa


grazie davvero non pensavo bastasse cambire una cazzata simile per cambiare tutto il metodo di invio.....