VBNET funzione per invio mail

venerdì 25 maggio 2012 - 16.57
Tag Elenco Tags  VB.NET  |  Visual Studio 2010

zinichris Profilo | Newbie

Vorrei creare una funzione per inviare in automatico una mail.
Ho utilizzato il comando System.Net.Mail, però il programma mi restituisce sempre l'errore "cassetta postale non disponibile, errore del server 5.7.1 ........."
Come server di posta vorrei utilizzare il nostro server exchange di posta interno.

Dim ClientMail As System.Net.Mail.SmtpClient
Dim Mail_Da As System.Net.Mail.MailAddress
Dim Mail_A As System.Net.Mail.MailAddress
Dim Mail As System.Net.Mail.MailMessage

ClientMail = New System.Net.Mail.SmtpClient
ClientMail.Host = ServerMail 'indirizzo ip sel server di psota interno

Mail_Da = New System.Net.Mail.MailAddress(IndirizzoMailInvio, "pippo", System.Text.Encoding.UTF8)
Mail_A = New System.Net.Mail.MailAddress(IndirizzoMailRiceve)

Mail = New System.Net.Mail.MailMessage
Mail.From = Mail_Da
Mail.To.Add(Mail_A)
Mail.Priority = System.Net.Mail.MailPriority.High

Mail.Subject = OggettoMail
Mail.Body = CorpoMail

ClientMail.Send(Mail)

Qualche idea ?????????

Grazie mille

AntCiar Profilo | Expert

>Vorrei creare una funzione per inviare in automatico una mail.
>Ho utilizzato il comando System.Net.Mail, però il programma mi
>restituisce sempre l'errore "cassetta postale non disponibile,
>errore del server 5.7.1 ........."
>Come server di posta vorrei utilizzare il nostro server exchange
>di posta interno.
>
> Dim ClientMail As System.Net.Mail.SmtpClient
> Dim Mail_Da As System.Net.Mail.MailAddress
> Dim Mail_A As System.Net.Mail.MailAddress
> Dim Mail As System.Net.Mail.MailMessage
>
> ClientMail = New System.Net.Mail.SmtpClient
>ClientMail.Host = ServerMail 'indirizzo ip sel server di psota
>interno
>
>Mail_Da = New System.Net.Mail.MailAddress(IndirizzoMailInvio,
>"pippo", System.Text.Encoding.UTF8)
>Mail_A = New System.Net.Mail.MailAddress(IndirizzoMailRiceve)
>
> Mail = New System.Net.Mail.MailMessage
> Mail.From = Mail_Da
> Mail.To.Add(Mail_A)
>Mail.Priority = System.Net.Mail.MailPriority.High
>
> Mail.Subject = OggettoMail
> Mail.Body = CorpoMail
>
> ClientMail.Send(Mail)
>
>Qualche idea ?????????
>
>Grazie mille



prima di fare ClientMail.Send(Mail) aggiungi questo:

ClientMail.EnableSsl = True ClientMail.UseDefaultCredentials = False ClientMail.Credentials = new System.Net.NetworkCredential("username", "password")

dove al posto di username e password ci devi mettere i valori corretti del tuo account

Cristian Barca

zinichris Profilo | Newbie

Ho provato ad inserire le ricghe di codice che mi hai indicato ma continuo ad avere l'errore.
Quali sono lo username e la psw da inserire ?

CIAO
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-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5