Salve ragazzi ho creato una funzione che consente l'invio di una mail
tramite autenticazione.
Ecco il codice:
Utilizzo una connessione Internet tramite tiscali, pero ho creato un accout libero.it e utilizzando le credenziali di questo accout libero non riesco ad inviare l'email.codice:Public Function SendMail(ByVal Mittente As String, _ ByVal MailMittente As String, _ ByVal Oggetto As String, _ ByVal Destinatario As String, _ ByVal CopiaConoscenza As String, _ ByVal Testo As String, _ ByVal ServerSMTP As String, _ ByVal Autentication As Boolean, _ ByVal USerName As String, _ ByVal pwd As String, _ Optional ByVal FileAttachments() As String = Nothing) As tpSendMAIL Dim MailResult As tpSendMAIL = New tpSendMAIL Dim mail As MailMessage = New MailMessage Dim smtp As New SmtpClient(ServerSMTP, 25) mail.From = New MailAddress(Mittente & "<" & MailMittente & ">") mail.To.Add(Destinatario) If CopiaConoscenza <> "" Then mail.CC.Add(CopiaConoscenza) mail.Subject = Oggetto mail.Body = Testo mail.IsBodyHtml = False If Autentication Then smtp.Credentials = New NetworkCredential(USerName, pwd) End If If Not FileAttachments Is Nothing Then Dim Attachment As Mail.Attachment Dim FileName As String For Each FileName In FileAttachments Attachment = New Attachment(FileName) mail.Attachments.Add(Attachment) Next End If Try smtp.Send(mail) Catch ex As Exception MailResult.Result = False MailResult.StrError = ex.Message Return MailResult End Try MailResult.Result = True Return MailResult End Function
QUesto e' l'errore che riporta la funzione:
Errore di sintassi. Comando non riconosciuto. Risposta del server: ulteriori informazioni, vai a: http://aiuto.libero.it/invioposta
ServerSMTP="smtp.libero.it"
USerName="miousernamelibero"
Pwd="miapasswordlibero"

					
					
					
						
  Rispondi quotando