@mail come faccio?!!!

[michelet]

problema oltre che ad inviare la mail di conferma all'utente vorrei che la inviasse anche a me per non dover controllare sempre il database come faccio il codice è questo:

Case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
On Error Resume Next '## Ignora Errore
objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
On Error Resume Next '## Ignora Errore

[weppos]

Aggiungi dopo a quello un codice di invio dove lo invii anche a te.

In alternativa crea un array di indirizzi ed invia l'email a tutti gli indirizzi dell'array.

[michelet]

siccome sono alle prime armi con asp diciamo che ho capito ma non lo so fare mi dai una mano?
grazie

[weppos]

Originariamente inviato da michelet
siccome sono alle prime armi con asp diciamo che ho capito ma non lo so fare mi dai una mano?
grazie

Lo vedi il codice sopra?
Invia una email.

Vuoi inviarne 2?
Scrivilo 2 volte...

Vuoi la seconda al tuo indirizzo?
Nel secondo codice metti il tuo indirizzo.

Tutto qui.

[michelet]

non funziona tu dicevi cosi?

Case "cdonts"
Set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.BodyFormat = 1
objNewMail.MailFormat = 0
On Error Resume Next '## Ignora Errore
objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage
objNewMail.Send strRecipientsEmail, strFromEmail, strSubject, strMessage
If Err <> 0 Then
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & ""
End if
On Error Resume Next '## Ignora Errore

[michelet]

non funziona mi date un'altra mano?
grazie

[ID-entity]

Prova così:

Case "cdonts" 
Set objNewMail = Server.CreateObject ("CDONTS.NewMail") 
objNewMail.BodyFormat = 1 
objNewMail.MailFormat = 0 
On Error Resume Next '## Ignora Errore 
objNewMail.Send strFromEmail, strRecipientsEmail&";iltuoindirizzo@dipostaelettronica.it", strSubject, strMessage 
If Err <> 0 Then 
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & "" 
End if 
On Error Resume Next '## Ignora Errore

[ID-entity]

oppure

Case "cdonts" 
Set objNewMail = Server.CreateObject ("CDONTS.NewMail") 
objNewMail.BodyFormat = 1 
objNewMail.MailFormat = 0 
On Error Resume Next '## Ignora Errore 
objNewMail.bcc "iltuoindirizzo@dipostaelettronica.it"
objNewMail.Send strFromEmail, strRecipientsEmail, strSubject, strMessage 
If Err <> 0 Then 
Err_Msg = Err_Msg & "[*]Impossibile spedire l'email. Errore: " & Err.Description & "" 
End if 
On Error Resume Next '## Ignora Errore

[michelet]

ci avevo pensato anche io ma non mi ricordavo bcc e poi nell'inserirlo nel codice mi dimenticavo & che testa dura che sono

ti volevo sottoporre un'altro caso umano

se leggi sotto ho un'altro problemino puoi vedere anche quello si chiama errore codice o simile

grazie tante sei un grande

[ID-entity]

Originariamente inviato da michelet
grazie tante sei un grande

ma non esagerare