Invio emai...cdosys da modificare!

**Pierhagi** · 28-04-2008, 15:34

Ciao a tutti

mi hanno dato un nuovo server e non riesco + inviare email dal sito come faccio in altri 2 server!

Potete aiutarmi a modificare il codice il codice dello script x inviare le email e addattarlo ad un esempio d modificare che mi ha dato il mio server?

Anticipo che il mio server NON è Aruba.

Questo è lo script x mandare le emai:

---------------------------------------------------------------------------------------------
<%
'---ELENCO DI FUNZIONI UTILIZZATE DI FREQUENTE

'---Funzioni per la conversione della data

Dim N_Caratteri, Stringa, Anno, Mese, Giorno, N

Function DataToStr(Data)
Anno = CStr(Year(Data))
Mese = CStr(Month(Data))
If Len(Mese) = 1 Then
Mese = "0" & Mese
End If
Giorno = CStr(Day(Data))
If Len(Giorno) = 1 Then
Giorno = "0" & Giorno
End If
DataToStr = Anno & Mese & Giorno
End Function

Function StrToData(Stringa)
Anno = Mid(Stringa, 1, 4)
Mese = Mid(Stringa, 5, 2)
Giorno = Mid(Stringa, 7, 2)
StrToData = CDate(Giorno & "/" & Mese & "/" & Anno)
End Function

'---Funzioni per la conversione oraria

Function OraToStr(Data)
Ora = CStr(Hour(Data))
If Len(Ora) = 1 Then
Ora = "0" & Ora
End If
Minuto = CStr(Minute(Data))
If Len(Minuto) = 1 Then
Minuto = "0" & Minuto
End If
Secondo = CStr(Second(Data))
If Len(Secondo) = 1 Then
Secondo = "0" & Secondo
End If
OraToStr = Ora & Minuto & Secondo
End Function

Function StrToOra(Stringa)
Ora = Mid(Stringa, 1, 2)
Minuto = Mid(Stringa, 3, 2)
Secondo = Mid(Stringa, 5, 2)
StrToOra = CDate(Ora & ":" & Minuto & ":" & Secondo)
End Function

'---Funzioni per inviare mail

Function InvioMail(byVal ServerMail, byVal Mittente, byVal Destinatario, byVal Titolo, byVal Corpo)

'---Script per CDOSYS
Dim Mail
set Mail = server.CreateObject("CDO.Message")
With Mail
.From = mittente
.To = destinatario
.Subject = titolo
.TEXTBody = corpo
.Send
end With
set Mail=nothing
End Function

'---Funzione per generare un SessionID casuale

Function Casuale()
Dim N_Caratteri, Stringa, I, N
N_Caratteri = 15
Stringa = ""
Randomize Timer
For I = 1 To N_Caratteri
Do
N = Int(Rnd * 75) + 48
Loop Until ((N >= 48) AND (N <= 57)) OR ((N >= 65) AND (N <= 90)) OR ((N >= 97) AND (N <= 122))
Stringa = Stringa & Chr(N)
Next
Casuale = Stringa
End Function

'---Encode e decode UserID per mail di conferma
Function UserIDEncode(UserID)
Dim SetCaratteri, Lunghezza, I, Char, NewString, NewString2, LenUserID
SetCaratteri = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"
Lunghezza = Round(Len(UserID) / 2) * 2
LenUserID = Hex(Instr(UserID, "{~}") - 1)
UserID = UCase(Replace(UserID, "{~}", ""))
For I = 1 To Lunghezza
Char = Mid(UserID, I, 1)
If InStr(SetCaratteri, Char) = 0 Then
Char = "_"
End If
NewString = NewString & Char
Next
For I = 1 To Lunghezza Step 2
NewString2 = NewString2 & Mid(NewString, I + 1, 1) & Mid(NewString, I, 1)
Next
UserIDEncode= "A" & Mid(LenUserID, 1, 1) & StrReverse(NewString2) & "A"
End Function

Function UserIDDecode(Stringa)
Dim Lunghezza, I, NewString, LenUserIDS, LenUserID
LenUserIDS = (Mid(Stringa, 2, 1))
Stringa = StrReverse(Mid(Stringa, 3, Len(Stringa) - 3))
If LenUserIDS = "A" Then LenUserID = 10 Else LenUserID = CInt(LenUserIDS)
Lunghezza = Int(Len(Stringa) / 2) * 2
For I = 1 To Lunghezza Step 2
NewString = NewString & Mid(Stringa, I + 1, 1) & Mid(Stringa, I, 1)
Next
If Len(Stringa) / 2 <> Len(Stringa) \ 2 Then NewString = NewString & Right(Stringa, 1)
NewString = Mid(NewString, 1, LenUserID) & "+" & Mid(NewString, LenUserID + 1)
UserIDDecode = Replace(NewString, "+", "{~}")
End Function

'---Funzione per gestire l'arrotondamento dell'Euro
Function ArrotondamentoPrezzo(ArrotondamentoPrezzo_Valore)
ArrotondamentoPrezzo = Round(ArrotondamentoPrezzo_Valore)
End Function

Function FormattaValore(Valore, Decimali, SeparatoreDecimale)
Dim ParteIntera, ParteDecimale
ParteIntera = CStr(Int(Valore))
If Decimali > 0 Then
ParteDecimale = Cstr(Int((Valore - Int(Valore))*(10 ^ Decimali)))
Do While Len(ParteDecimale) < Decimali
ParteDecimale = "0" & ParteDecimale
Loop
Else
SeparatoreDecimale = ""
ParteDecimale = ""
End If

FormattaValore = ParteIntera & SeparatoreDecimale & ParteDecimale

End Function

Function VisualizzaPrezzo(VisualizzaPrezzo_StringaPrezzo)
VisualizzaPrezzo_StringaPrezzo = Int(VisualizzaPrezzo_StringaPrezzo)
Do While Len(VisualizzaPrezzo_StringaPrezzo) < 3
VisualizzaPrezzo_StringaPrezzo = "0" & VisualizzaPrezzo_StringaPrezzo
Loop
Dim VisualizzaPrezzo_StringaDecimale, VisualizzaPrezzo_StringaIntero
VisualizzaPrezzo_StringaDecimale = Mid(VisualizzaPrezzo_StringaPrezzo, Len(VisualizzaPrezzo_StringaPrezzo) - 1, 2)
VisualizzaPrezzo_StringaIntero = Mid(VisualizzaPrezzo_StringaPrezzo, 1, Len(VisualizzaPrezzo_StringaPrezzo) - 2)
VisualizzaPrezzo = VisualizzaPrezzo_StringaIntero & "," & VisualizzaPrezzo_StringaDecimale
End Function

Function FormattaPrezzoPerDB(FormattaPrezzoPerDB_StringaPre zzo)

Dim FormattaPrezzoPerDB_StringaIntero, FormattaPrezzoPerDB_StringaDecimale

If InStr(FormattaPrezzoPerDB_StringaPrezzo, ",") > 0 Then
FormattaPrezzoPerDB_StringaDecimale = Mid(FormattaPrezzoPerDB_StringaPrezzo, Instr(FormattaPrezzoPerDB_StringaPrezzo, ",") + 1)
If Len(FormattaPrezzoPerDB_StringaDecimale) > 2 Then
FormattaPrezzoPerDB_StringaDecimale = Cstr(Round(CLng(FormattaPrezzoPerDB_StringaDecimal e)/(10 ^ (Len(FormattaPrezzoPerDB_StringaDecimale) - 2))))
Do While Len(FormattaPrezzoPerDB_StringaDecimale) < 2
FormattaPrezzoPerDB_StringaDecimale = "0" & FormattaPrezzoPerDB_StringaDecimale
Loop
Else
Do While Len(FormattaPrezzoPerDB_StringaDecimale) < 2
FormattaPrezzoPerDB_StringaDecimale = FormattaPrezzoPerDB_StringaDecimale & "0"
Loop
End If
FormattaPrezzoPerDB_StringaIntero = Mid(FormattaPrezzoPerDB_StringaPrezzo, 1, Instr(FormattaPrezzoPerDB_StringaPrezzo, ",") - 1)
Else
FormattaPrezzoPerDB_StringaDecimale = "00"
FormattaPrezzoPerDB_StringaIntero = FormattaPrezzoPerDB_StringaPrezzo
End If

FormattaPrezzoPerDB = FormattaPrezzoPerDB_StringaIntero & "" & FormattaPrezzoPerDB_StringaDecimale
End Function

Function UtilizzaPrezzo(UtilizzaPrezzo_StringaPrezzo)
UtilizzaPrezzo = CLng(UtilizzaPrezzo_StringaPrezzo)
End Function

Function CalcoloSpeseSpedizione(Totale, QuantitaTotale)
If AttenuaSS Then
If Totale > 0 And QuantitaTotale > 0 Then
'Funzione logaritmica sconsigliata
'CalcoloSpeseSpedizione = UtilizzaPrezzo(Log(QuantitaTotale + 2)/log(3) * (Totale / QuantitaTotale))
CalcoloSpeseSpedizione = UtilizzaPrezzo((Totale) - ((Totale/QuantitaTotale) * (QuantitaTotale - 1) / 2))
Else
CalcoloSpeseSpedizione = 0
End If
Else
CalcoloSpeseSpedizione = Totale
End If
End Function
%>
---------------------------------------------------------------------------------------------

questo è il codice che mi ha fornito il mio server:

---------------------------------------------------------------------------------------------
<%@ Language=VBScript%>

<%

mes = ""
IsSuccess = false

sTo = "name@dominio.ltd" ' email del mittente
sFrom = "name@dominio1.ltd" ' email del destinatario
sSubject = "Messaggio di prova per CDO.Messsage (1)"
sMailServer = "127.0.0.1"
sBody = "Messaggio di prova per CDO.Messsage (1)"

'creazione degli oggetti necessari
Set objMail = Server.CreateObject("CDO.Message")
Set objConf = Server.CreateObject("CDO.Configuration")
Set objFields = objConf.Fields

With objFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sMailServer
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

With objMail
Set .Configuration = objConf
.From = sFrom
.To = sTo
.Subject = sSubject
.TextBody = sBody
End With

Err.Clear
on error resume next

objMail.Send
if len(Err.Description) = 0 then
mes = " Message sent to " + sTo
mes = mes + " TESTS COMPLETED SUCCESSFULLY!"
IsSuccess = true
else
mes = " " + Err.Description + " TESTS FAILED!"
end if
Set objFields = Nothing
Set objConf = Nothing
Set objMail = Nothing

if IsSuccess then
Response.Write "<div class='testRelults' id='testSuccessful'><span class='testResult'>Success:</span>" & html & "</div>"
else
Response.Write "<div class='testRelults' id='testFailed'><span class='testResult'>Fail:</span>" & html & "</div>"
end if
%>
---------------------------------------------------------------------------------------------

Pier#ff0000red

**Pierhagi** · 29-04-2008, 09:45

Nessuno può aiutarmi?

**Roby_72** · 29-04-2008, 09:58

Ma sempre CDOSYS è...
Prendi il pezzo di codice e mettilo nella tua function di invio email personalizzando le informazioni con i dati del tuo dominio.

Roby

**Pierhagi** · 29-04-2008, 10:56

Non da segni di vita!

Ora l'ho modificato così ma niente:

'---Funzioni per inviare mail
' dichiaro alcuni variabili
Function InvioMail(byVal ServerMail, byVal Mittente, byVal Destinatario, byVal Titolo, byVal Corpo)
Dim iMsg
Dim iConf
Dim Flds
'Dim out
' queste righe possono cambiare in relazione al provider
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

With iFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = localhost
.Update
End With

With iMsg
Set .Configuration = iConf
.To = destinatario
.From = mittente
.Subject = titolo
.TextBody = corpo
.Send
End With
End Function

...io modifico solo questo codice o ce altro da modificare?

Non so + cosa fare!

**yro** · 29-04-2008, 11:07

hai provato lo script semplice senza funzioni, per vedere se la mail viene spedita?

**Pierhagi** · 29-04-2008, 11:15

No. Non l'ho mai fatto.

Puoi dirmi come si fa?

**yro** · 29-04-2008, 11:27

Originariamente inviato da Pierhagi
No. Non l'ho mai fatto.

Puoi dirmi come si fa?

guarda, io ho le mie tare mentali... quindi l'oggetto per inviare mail lo uso in questo modo:

codice:

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "mittente"
MiaMail.To = "destinatario"
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = "oggetto"
MiaMail.HTMLBody = "testo della mail"
'dim allegato
'allegato=Server.MapPath("eventuale allegato")
'MiaMail.AddAttachment (allegato)
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing

modifica i parametri destinatario e mittente a tuo piacimento, e prova ad eseguire la pagina.

**Pierhagi** · 29-04-2008, 11:41

Ciao Yari

scusa ma quel codice lo colleghi ad un form?

Scusa io utilizzo x l'email dei file di uno shop e fino adesso mi è andata bene xchè modificavo 2 semplici righe e riuscivo a farlo funzionare.

Puoi mandarmi o spiegarmi come utilizzare il tuo codice?

**yro** · 29-04-2008, 12:15

Originariamente inviato da Pierhagi
Ciao Yari

scusa ma quel codice lo colleghi ad un form?

Scusa io utilizzo x l'email dei file di uno shop e fino adesso mi è andata bene xchè modificavo 2 semplici righe e riuscivo a farlo funzionare.

Puoi mandarmi o spiegarmi come utilizzare il tuo codice?

collegato ad un form oppure eseguito lanciando la pagina...

se provi a fare una pagina con quel codice, mettendo le email, poi la esegui, e vedi se la mail arriva, solo per capire se è un problema dell'oggetto cdo, del server smtp o boh... era per fare una prova.

non ho capito bene come lo utilizzi tu, ma magari partendo da zero riusciamo a capire dove stà l'inghippo...

**Pierhagi** · 29-04-2008, 12:32

Allora questo cdosys l'ho utilizzo x un e-commerce open source.

Fino ad ora ho installato 3-4 volte questo e-commerce sullo stesso provider, ma su server differenti, ed sono riuscito sempre a farlo funzionare.

Ora mi hanno dato un nuovo server, sempre Win 2003 come del resto tutti gli altri server che ho in dotazione, ma non mi riescono + le modifiche x far funzionare l'email.

Questo è tutto.

Se vuoi posso spedirti il mio contatto msn e fare delle prove poi scriverò soluzione sul forum...sempre se la troviamo!!

Pier

Discussione: Invio emai...cdosys da modificare!

Strumenti discussione

Ricerca discussione

Visualizza

Invio emai...cdosys da modificare!

Permessi di invio