Salve ragazzi ho creato una funzione che consente l'invio di una mail
tramite autenticazione.
Ecco il codice:
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
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.
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"