mail su jabry.com

[luisa227]

The "SendUsing" configuration value is invalid.

una pagina mi dà questo errore: può essere che non lo supporti??? cosa posso usare in alternativa? Posso fare in modo da non modificare la variabile messaggio visto che ho diverse pagine che inviano mail? Grazie

non ne capisco molto...grazie

 Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
messaggio= messaggio &"Luisa, hai ricevuto un suggerimento per il sito"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = "miamail@yahoo.it"
.To = "miamail2@yahoo.it"
.Subject = "SUGGERIMENTI"

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio


'Invia l'email 
.Send()

[luisa227]

iN ALTERNATIVA HO ANKE PROVATO CON Server.CreateObject("CDONTS.NewMail") ma lì midice proprio che non riesce a creare l'oggetto.... come posso fare? grazie

[cavicchiandrea]

Quelli sono i più usati ma ce ne sono altri, devi contattare l'host x sapere se e cosa supporta.
Consiglio non complicarti la vita, già non conosci il linguaggio, valuta se puoi spendere 15 € l'anno x un dominio tuo/italiano/con supporto.

[luisa227]

si lo so che dovrei pprendermi un host a pagamento... però per ora non posso! Mi potete fare esempi di cos'altro posso utilizzare? non credo che l'host mi rispondi... poi ho poco tempo...!!!! Entro domani dovrei risolvere!

grazie a chi mi aiuterà!

[luisa227]

ho cercato sia su google che sul forum ma non ho trovato altri componenti....come si chiamano? grazie ancora

[luisa227]

aiutooooo
ho anke provato con Set Mail = Server.CreateObject("Persits.MailSender")
ma mi dice anke qui Server.CreateObject Failed

Ma del CDO visto che non mi dà l'errore Server.CreateObject Failed non è che ho solo sbagliato qualcosa nel codice? Il codice era giusto?
grazie

[cavicchiandrea]

Originariamente inviato da luisa227

Ma del CDO visto che non mi dà l'errore Server.CreateObject Failed non è che ho solo sbagliato qualcosa nel codice?

e ti risponde cosi:

The "SendUsing" configuration value is invalid.

Anche uno come me che non sa l'Inglese capisce che la configurazione è invalida!!! Su dai Luisa almeno un po di buona volonta mettiamocela

non ne capisco molto...grazie

Questa non una buona scusante nessuno ti obbliga (e se cosi non fosse avvisa la polizia)
Dopo lo sfogo prova cosi:

Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail/pop3.nome-dominio.xxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "casella-di-posta@nome-dominio.xxx"
'le 2 righe sottostanti potrebbero non servire dipende dal server di posta nel caso toglile (cancellandole)
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "qui-va-la-tua-password-della-casella-di-posta-sopracitata-se-occorre"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields.Update
End With

Set objMsg = Server.CreateObject("CDO.Message")
With objMsg
Set .Configuration = objConfig
.From = "email-Mittente"
.Subject = "Titolo"
.To = "email-Destinatario"
.HTMLBody = "Qui-Scriviamo-Il-Testo-Del-Messaggio"
.Send
End With
Set objMsg = Nothing
set objConfig = Nothing

aiutooooo

Il forum non un help-desk cerca di ricordartelo, a prescindere dalla fretta che tu hai.
Saluti.

[luisa227]

Originariamente inviato da cavicchiandrea
Originariamente inviato da luisa227 e ti risponde cosi:
Anche uno come me che non sa l'Inglese capisce che la configurazione è invalida!!! Su dai Luisa almeno un po di buona volonta mettiamocela

Questa non una buona scusante nessuno ti obbliga (e se cosi non fosse avvisa la polizia)
Dopo lo sfogo prova cosi:

Set objConfig = Server.CreateObject("CDO.Configuration")
With objConfig
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail/pop3.nome-dominio.xxx"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "casella-di-posta@nome-dominio.xxx"
'le 2 righe sottostanti potrebbero non servire dipende dal server di posta nel caso toglile (cancellandole)
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "qui-va-la-tua-password-della-casella-di-posta-sopracitata-se-occorre"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Fields.Update
End With

Set objMsg = Server.CreateObject("CDO.Message")
With objMsg
Set .Configuration = objConfig
.From = "email-Mittente"
.Subject = "Titolo"
.To = "email-Destinatario"
.HTMLBody = "Qui-Scriviamo-Il-Testo-Del-Messaggio"
.Send
End With
Set objMsg = Nothing
set objConfig = Nothing

Il forum non un help-desk cerca di ricordartelo, a prescindere dalla fretta che tu hai.
Saluti.

per rispondere al tuo sfogo: ho richiesto aiuto dopo aver provato da sola diverse configurazioni ed aver ricercato più volte pur non sapendo bene l'argomento su google.
Quindi a parte la mia fretta non mi sento in colpa perchè ho fatto tutto il possibile.
Poi se il forum non è un help-desk (e va bene) ma dimmi tu cos'è? Un modo per raccimolare qualche soldino?

Per venire a noi sono capace a tradurre: il problema è che non so che tipo di configurazione ci vada perchè www.jabry.com non dice quali sono le configurazioni. Pensavo che ci fosse qualche esperto in materia... non mi serve il codice pronto, ma solo sapere dove cercare. Se trovi le configurazioni per quel sito vengo a baciarti i piedi e anke qualcosaltro se vuoi.

[Roby_72]

Hai provato senza configurazione?

 Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
messaggio= messaggio &"Luisa, hai ricevuto un suggerimento per il sito"

With iMsg
.From = "miamail@yahoo.it"
.To = "miamail2@yahoo.it"
.Subject = "SUGGERIMENTI"

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
'.TextBody = messaggio

'Invia l'email 
.Send() 
End With

Set iMsg = nothing

Roby

[luisa227]

si, ho provato e mi da sempre The "SendUsing" configuration value is invalid.