specificare manualmente a quale server SMTP - con il codice CDOSYS

[caseriosante]

Il sito dove gira ASP non ha i permessi per accedere al server SMTP della rete in cui si trova.
Dovrei usare il codice CDOSYS dove specificare manualmente a quale server SMTP connettersi.

qualcuno sa come posso fare usando avendo questo codice? (uso mac)



prima


<form method="POST" action="/test/sito/email.asp">
<div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">E-mail:
</font>

<input type="text" id="mail" name="mail" size="36">


<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Richiesta:</font>

<textarea rows="6" id="richiesta" name="richiesta" cols="35"></textarea>


<input type="submit" value="Invia Dati">
</div>
</form>





seconda





<%
mail = Request.form("mail")
richiesta = Request.form("richiesta")

If IsNull(mail) Or mail = "" Then

Response.Write "ERRORE !!
Controlla il campo
E-MAIL
Indietro."

Else

Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = mail
MiaMail.To = "mia email"
MiaMail.Subject = "Questo è l'oggetto della mail che riceverai"
MiaMail.HTMLBody = "E-Mail dal sito

INDIRIZZO E-MAIL : mia email
RICHIESTA : " & richiesta
MiaMail.Send()
Set MiaMail = Nothing

Dim MiaMail2
Set MiaMail2 = Server.CreateObject("CDO.Message")
MiaMail2.From = "mia email"
MiaMail2.To = mail
MiaMail2.Subject = "Conferma di ricezione Dati"
MiaMail2.HTMLBody = "Richiesta ricevuta! Sarai contattato prima possibile."
MiaMail2.Send()
Set MiaMail2 = Nothing

Response.Write "La tua richiesta è stata correttamente inviata, sarai contattato al più prestoTorna al Form"
End If
%>

l'errore che mi da è:
CDO.Message.1 error '80070005'

Access is denied.

/test/sito/email.asp, line 17

[caseriosante]

ok.. ho visto l'esempio ma aiutami a capire..la modifica deve essere apportata al codice che ho postato? o il altro modo? da quanto scrivi sembr che si un piccolezza ma sono in alto mare..
ciao!

[Mems]

Devi creare l'oggetto CDO.Configuration dopo CDO.Message e impostare le configurazioni opportune (SMTP, eccetera).

[caseriosante]

purtroppo non sono molto abile con il codice, chiedo aiuto a qualcuno che possa risolvere il mio problema, in modo chiaro, e sopratutto dimostrativo ed elementare.. certi termini non mi aiutano, mi confondono soltanto..

[caseriosante]

va bene come primo passo?



Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = mail
MiaMail.To = "mia email"
MiaMail.Subject = "Questo è l'oggetto della mail che riceverai"
MiaMail.HTMLBody = "E-Mail dal sito

INDIRIZZO E-MAIL : mia email
RICHIESTA : " & richiesta
MiaMail.Send()
Set MiaMail = Nothing

Dim MiaMail2
Set MiaMail2 = Server.CreateObject("CDO.Message")
Set MiaMail2 = Server.CreateObject("CDO.Configuration")
MiaMail2.From = "mia email"
MiaMail2.To = mail
MiaMail2.Subject = "Conferma di ricezione Dati"
MiaMail2.HTMLBody = "Richiesta ricevuta! Sarai contattato prima possibile."
MiaMail2.Send()
Set MiaMail2 = Nothing

Response.Write "La tua richiesta è stata correttamente inviata, sarai contattato al più prestoTorna al Form"
End If
%>


ho trovato anche questo pensate c'entra qualcosa con il mio problema?

Set objConfig = Server.CreateObject("CDO.Configuration")
Set Confi = objConfig.Fields
Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"




l'ho preso da tutta questa stringa..

<%

If request("submit") <> "" THEN
Set objEMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Confi = objConfig.Fields
Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
Confi.Update
Set objEMail.Configuration = objConfig
objEMail.To = "your@emailaddress.com"
objEMail.From = Request("from")
objEMail.Subject = Request("subject")
objEMail.TextBody = Request("message")
objEMail.Send
Set objEMail = Nothing

Response.Write("Message Sent")
Else

%>

[Mems]

http://www.weppos.com/asp/script/scr....asp?script=17
Leggere e non scorrere la pagina velocemente pensando che è troppo complicato... altrimenti, lascia perdere.

[caseriosante]

no no non lascio perdere , mem guarda su quel codice li..

[supermac]

mi inserisco perché ho un problema analogo:
ho due siti su uno stesso server che usano entrambi l'oggetto CDO per l'invio delle mail.
Su uno dei due non ho neppure indicato una configurazione e le mail vanno via come fulmini, sull'altro invece non va via niente perché vuole una configurazione (mi da un messaggio tipo "invalid configuration" o qualcosa di simile ma non so che SMTP indicargli visto che non ho un server SMTP)
...
warum????

[Mems]

Perchè il primo ha il proprio server SMTP installato e il secondo no.

[caseriosante]

cmq io adesso stò facendo viaggiare il sito su un dominio provvisorio, c'è anche la possbilità che una volta pubblicato sul dominio definitivo debb cambiare le confgurazione mstp nuovamente?

e come faccio capire se il server il cui sono supporta o meno il il form?

dai che mi stò facendo una cultura..