Impostare smtp in uscita con CDOSYS in un form

[jubamboo]

CIao ragazzi all'interno del mio form per inviare informazioni a indirizzo e-mail prestabilito devo impostare nel codice i seguenti parametri:

' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miosito.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

Chi mi aiuta????
GRazie in anticipo

[scorpio84]

nn ho capito cosa vuoi sapere...

[jubamboo]

L'esempio riporta un semplice form mail in ASP usando l'oggetto CDOSYS.


Alla prima visualizzazione il codice mostra una semplice form per l'immissione dei dati.
Una volta confermata lo script ricarica la pagina ed invia una email ad un indirizzo preimpostato richiamando i campi dalla form.

ATTENZIONE: da notare come l'esempio non esegua nessun tipo di controllo sulla presenza di dati nei campi form che se non compilati potrebbero generare errore nell'invio dell'email.

Ulteriori campi form sono inseribili sul modello di quelli già presenti.

Ecco l'esempio:

Codice / Code :

<%

' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail, objConfig
' Crea l'oggetto email
Set objMail = createObject("CDO.Message")
' Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject ("CDO.Configuration")

' Imposta le configurazioni
With objConfig


' Server SMTP di uscita
' ATTENZIONE! Usare il proprio indirizzo di server email!
' E' FONDAMENTALE per l'invio della email
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.miosito.com"

' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With

' Assegna le configurazioni
Set objMail.Configuration = objConfig

' Assegna all'oggetto le proprietà necessarie
objMail.From = "mittente@dominio.xx" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.HTMLBody = Request.Form("messaggio") ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing

Response.Write("Email inviata correttamente ")
Response.Write("all'indirizzo ")
Response.Write(Request.Form("email"))

else %>
<form name="formail" method="post" action="email.asp?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<% end if %>

Vorrei gentilmente sapere cosa devo impostare per l'invio delle e-mail in CDOSYS grazie mille

[Luis33]

Ciao.

prova questo codice, da cui è stata esclusa la parte che ti interessa, che funziona regolarmente.
Con questo puoi mandare anche un file allegato.

invioA =  "seg@com.com";
invioDa =  "seg@com.com";
messaggio = "Codice della Comunicazione:

";
OggettoCDOSYS = CreateObject("CDO.Message");

       OggettoCDOSYS.From = invioA;
       OggettoCDOSYS.To = email;
       OggettoCDOSYS.Cc = email;
       OggettoCDOSYS.Bcc = email;
       OggettoCDOSYS.Subject = messaggio;
       OggettoCDOSYS.HtmlBody = messaggio;
       OggettoCDOSYS.AddAttachment(Server.MapPath("zip.zip"),"zip.zip");  
       OggettoCDOSYS.Send();

Oppure consulta qui

[jubamboo]

Ciao Scusa la mia ignoranza, ma il codice che mi hai dato non funziona, non ha il form di invio..lo devo costruire io? potresti spiegare un po meglio?grazie mille


.

invioA =  "seg@com.com";
invioDa =  "seg@com.com";
messaggio = "Codice della Comunicazione:

";
OggettoCDOSYS = CreateObject("CDO.Message");

       OggettoCDOSYS.From = invioA;
       OggettoCDOSYS.To = email;
       OggettoCDOSYS.Cc = email;
       OggettoCDOSYS.Bcc = email;
       OggettoCDOSYS.Subject = messaggio;
       OggettoCDOSYS.HtmlBody = messaggio;
       OggettoCDOSYS.AddAttachment(Server.MapPath("zip.zip"),"zip.zip");  
       OggettoCDOSYS.Send();

Oppure consulta qui [/QUOTE]

[Luis33]

certo.
il form di invio devi costruirlo tu o lo scarichi già pronto da qui.