Invio mail con asp da aruba??

**Peter_Pan** · 27-04-2006, 01:36

Salve il problema è questo, ho questo codice asp per inviare mail:

codice:

set mail=CreateObject("CDONTS.NewMail") 
			mail.from = strMail
			mail.to="miaMail@mail.com"
			mail.subject="Richiesta dal info"
			strBody = "<html><table border=0><tr><td>Mail</td><td>" & strMail & "</td></tr><tr><td colspan=2 height='1' bgcolor='#000000'></td></tr><tr><td valign=top>Rihiesta</td><td>" & strTesto & "</td></tr></table></html>"
			mail.body= strBody
			mail.importance=1
			mail.bodyformat=0
			mail.mailformat=0
			mail.send
			set mail=nothing

io penso che sia il server aruba che non mi fa inviare mail, mi controllate il codice?? avete info su mail su aruba?? posso usare un cgi o che altro??
grazie

**michele.santoro** · 27-04-2006, 09:58

Originariamente inviato da Peter_Pan
Salve il problema è questo, ho questo codice asp per inviare mail:

codice:

set mail=CreateObject("CDONTS.NewMail") 
			mail.from = strMail
			mail.to="miaMail@mail.com"
			mail.subject="Richiesta dal info"
			strBody = "<html><table border=0><tr><td>Mail</td><td>" & strMail & "</td></tr><tr><td colspan=2 height='1' bgcolor='#000000'></td></tr><tr><td valign=top>Rihiesta</td><td>" & strTesto & "</td></tr></table></html>"
			mail.body= strBody
			mail.importance=1
			mail.bodyformat=0
			mail.mailformat=0
			mail.send
			set mail=nothing

io penso che sia il server aruba che non mi fa inviare mail, mi controllate il codice?? avete info su mail su aruba?? posso usare un cgi o che altro??
grazie

Prova con CDOSYS invece di CDONTS, probabilmente sei su server 2003.

**Peter_Pan** · 27-04-2006, 11:20

Dici quindi di fare così?

codice:

set mail=CreateObject("CDOSYS.NewMail")

**maximum** · 27-04-2006, 11:49

La sintassi è un po' diversa...cerca sul forum CDOSYS.

**fabiodm75** · 27-04-2006, 17:25

Ciao prova questo link di Aruba http://vademecum.aruba.it/start/contatto/contatto.htm

Ciao

**luigi1970** · 27-04-2006, 18:09

- altro codice per la connessione ad un database...

mittente = "mionome<mionome@miodominio.com>"
Do until Recset.eof
destinatario = RecSet("email")
testo = Request.Form("testo") 'questa informazione proviene da un modulo

oggetto = Request.Form("oggetto")
' INVIO DEL MESSAGGIO - Creazione Oggetto ed impostazioni varie...
Set email = CreateObject("CDO.message")
email.From = mittente
email.To = destinatario
email.Subject = oggetto
' ALLEGA UNO o PIU FILE
email.AddAttachment allegato 'Un path nel server
' COMPONE IL CORPO DELLA MAIL
email.htmlBody = Request.form ("corpo")
email.fields("urn:schemas:httpmail:importance").va lue = 2
email.fields.update()
' INVIA L'EMAIL
email.Send()
Set email = Nothing
RecSet.Movenext
loop
End If
RecSet.Close
Conn.close
Set RecSet = Nothing
Set Conn = Nothing

Discussione: Invio mail con asp da aruba??

Strumenti discussione

Ricerca discussione

Visualizza

Invio mail con asp da aruba??

Re: Invio mail con asp da aruba??

dovrebbe funzionare.Fammi sapere...

Permessi di invio