invio mail con cdosys

[elisamito]

ciao ragazzi!
vorrei chiedervi una dritta, sto usando il cdosys per inviare email, come smtp nel codice assegno quello di posta che utilizzo io, vale a dire "relay.albacom.net" solo che funziona solamente agli indirizzi che utilizzano albacom e non ad esempio il mio tin.it , il problema quale potrebbe essere?ho provato anche ad impostare smtp="server" credendo che prendesse in automatico quello del server ma niente da fare..spero mi possiata aiutare!
vi ringrazio per l'aiuto!
Un saluto
Elisa

[maximum]

Strano... :master:
Posta il codice.

[elisamito]

ciao maxi!
vero che è strano?
ecco!

Dim objMail, objConfig

' Crea l'oggetto email
Set objMail = Server.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") = "relay.albacom.net"

' 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

testo="testo mail"

' Assegna all'oggetto le proprietà necessarie
objMail.From = "cedassrl.it" ' Mittente
objMail.To = indirizzi ' Destinatario
objMail.Subject = "richiesta dal sito cedassrl.it" ' Oggetto
objMail.HTMLBody = testo ' Messaggio

' Invia l'email
objMail.Send()

Set objMail = Nothing


niente da fare lo manda solo alle mail che sono configurate qui è che hanno come smtp albacom..
ti ringrazio per l'aiuto!

[maximum]

Io uso questo (su Aruba) e va bene verso tutti gli indirizzi...

'istanzio le costanti per invio
DIM iMsg, Flds, iConf
		
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
		
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update			

With iMsg
Set .Configuration = iConf
.To = strEmailDest
.From = strFrom
.Sender = strEmailMitt
.Subject = "Segnalazione"
.HTMLBody = "" & sBody & ""
.Send
End With

if err.number > 0 then
	strOutput= "Si è verificato un errore nell'invio"
else
	strOutput ="Mail inviata correttamente!!!"
end if

Nel tuo codice non vedo anomalie.

[elisamito]

grazie maxi ho risolto!
Chiedo un'altra dritta?
Per far in modo che venga inviata una mail al mittente con scritto ad esempio presto vi risponderemo ecc...io so del Bcc che invia una copia identica, ma per personalizzare il testo ...?
Vi ringrazio moltissimo!

[DarioN1]

Invii un altra email,in una email unica non puoi

[elisamito]

eheh ok!grazie dario