Utilizzo del servizio di posta di vb.net

martedì 16 marzo 2010 - 19.07

biggiu Profilo | Junior Member

salve a tutti,

ho realizzato una procedurina che dovrebbe inviare un messaggio di posta.

quando tento l'invio ottengo questo messaggio :

Cassetta postale non disponibile. Risposta del server : 5.7.1 Unable to relay for pippo@pippo.it

Sapreste indicarmi come risolvere questo problema ?

Grazie a tutti

di seguito riporto il codice utilizzato :

'--------------------------------'
' INVIA LA E-MAIL '
'--------------------------------'
Private Sub GesInvMai()

Dim MaiMsg As New MailMessage
Dim MailClient As SmtpClient

Try
'----- Formattazione Messaggio e-mail
MailClient = New SmtpClient(MaiSer)
MaiMsg.From = New MailAddress(OpeMai)
MaiMsg.Attachments.Add(New Attachment(Me.comalle.Text))
MaiMsg.To.Add(Me.comdest.Text)
'----- Copia per Operatore
If IswIco Then
MaiMsg.CC.Add(OpeMai)
End If
'----- Copia per Amministratore
If IswIca Then
MaiMsg.Bcc.Add(AmmMai)
End If
MaiMsg.Subject = Me.comogge.Text
MaiMsg.Body = Me.commein.Text

MailClient.UseDefaultCredentials = True
MailClient.Send(MaiMsg)

MsgBox("E-MAIL INVIATA CON SUCCESSO")

'----- Reinizializzazione pagina messaggistica
ClrMskCom()
MaiMsg.To.Clear()
MaiMsg.Attachments.Clear()
MaiMsg.Dispose()

Catch errore As Exception
MessageBox.Show(errore.Message, "GesInvMai")
End Try

End Sub
BigGiu

MarKonE Profilo | Guru

Ciao,

qual è il server SMTP che utilizzi per inviare la mail ? Qual è il provider che fornisce connettività internet al pc dal quale provi ?

Direi che non è un problema di codice ma semplicemente di server SMTP. Se mi illumini risolviamo

CIAO !
My Blog... http://blogs.dotnethell.it/Mark/

biggiu Profilo | Junior Member

il server smtp è : mail.191.it
il provider è telecom ( alice )

ti sarei grato se riuscissi a darmi una mano.

BigGiu

MarKonE Profilo | Guru

Tramite un normale client di posta (outlook, thunderbird ecc.) riesci ad inviare con le impostazioni che hai indicato ?

E' necessaria l'autenticazione ? Viene utilizzata la porta 25 o la 587 ?


Dal sito, dopo un controllo veloce veloce, sembra che l'SMTP sia "out.alice.it" : http://aiuto.alice.it/problemi/email/programma_di_posta_ATA.html,cnt=1198&rel=451.html

CIAOOO

My Blog... http://blogs.dotnethell.it/Mark/

biggiu Profilo | Junior Member

Non so quale sia la porta utilizzata.
Come faccio a verificarla ?


BigGiu

MarKonE Profilo | Guru

Sulla macchina in questione è configurato un client di posta elettronica ?


My Blog... http://blogs.dotnethell.it/Mark/

biggiu Profilo | Junior Member

Si, utilizzo outlook express per la gestione della posta e smtp configurato è quello indicato :

mail.191.it

probabilmente out.alice.it è utilizzato per clienti privati.

il mio contratto è di tipo business.

BigGiu

MarKonE Profilo | Guru

verifica per favore i dettagli relativi al server smtp, tipo la porta, se è necessaria l'autenticazione ecc.

Ciao!

My Blog... http://blogs.dotnethell.it/Mark/

biggiu Profilo | Junior Member

PUOI INDICARMI COME SI VERIFICANO QUESTE COSE ?
BigGiu

MarKonE Profilo | Guru

Nelle impostazioni della posta elettronica di un qualsiasi client.

Di solito le impostazioni per la ricezione (via pop3) sono legate ai singoli account..mentre quelle per l'invio sono "generiche".

Ciao!

My Blog... http://blogs.dotnethell.it/Mark/

biggiu Profilo | Junior Member

Dopo un'infinita ricerca sono arrivato a definire questa nuova routine che gestisce anche i parametri di autenticazione della posta in uscita.

Nonostante tutto ho ancora lo stesso messaggio di errore.

qualcuno mi aiuti o mi butto a mare............(magari!)


'--------------------------------'
' INVIA LA E-MAIL '
'--------------------------------'
Private Sub GesInvMai()

Dim MaiMsg As New MailMessage
Dim MailClient As New SmtpClient()
Dim SmtpUser As New System.Net.NetworkCredential()

Try
'----- Formattazione Messaggio e-mail
MaiMsg.From = New MailAddress(OpeMai)
MaiMsg.Attachments.Add(New Attachment(Me.comalle.Text))
MaiMsg.To.Add(Me.comdest.Text)
'----- Copia per Operatore
If IswIco Then
MaiMsg.CC.Add(OpeMai)
End If
'----- Copia per Amministratore
If IswIca Then
MaiMsg.Bcc.Add(AmmMai)
End If
'----- Oggetto / Messaggio
MaiMsg.Subject = Me.comogge.Text
MaiMsg.Body = Me.commein.Text

SmtpUser.UserName = "pippo@nomeazienda.191.it"
SmtpUser.Password = "************"
SmtpUser.Domain = "mail.191.it"
MailClient.UseDefaultCredentials = False
MailClient.Credentials = SmtpUser
MailClient.Host = "mail.191.it"
MailClient.DeliveryMethod = SmtpDeliveryMethod.Network
MailClient.Send(MaiMsg)

MsgBox("E-MAIL INVIATA CON SUCCESSO")

'----- Reinizializzazione pagina messaggistica
ClrMskCom()
MaiMsg.To.Clear()
MaiMsg.Attachments.Clear()
MaiMsg.Dispose()

Catch errore As Exception
MessageBox.Show(errore.Message, "GesInvMai")
End Try

End Sub

BigGiu
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5