Hola, necesito envira un correo, pero al final del try me sale "erro al enviar correo" el usuario y la contraseña estan bien. este es el codigo, muchas gracias. EL CODIGO ES PARA VB.NET
Public Class Enviar_Correo
Public Sub Enviar_Mensaje(ByVal strFrom As String, ByVal strTo As String, _
ByVal strSubject As String, ByVal strMessage As String, _
ByVal fileList() As String)
Try
Dim MailMsg As New MailMessage(New MailAddress(strFrom.Trim()), New MailAddress(strTo))
MailMsg.Subject = strSubject.Trim()
MailMsg.Body = strMessage.Trim() & vbCrLf
MailMsg.Priority = MailPriority.High
MailMsg.IsBodyHtml = True
MsgBox("1.1")
' ciclo por si vienen archivos adjuntos
For Each strfile As String In fileList
If Not strfile = "" Then
Dim MsgAttach As New Attachment(strfile)
MailMsg.Attachments.Add(MsgAttach)
End If
Next
' crear la variable de "conexion"
Dim SmtpMail As New SmtpClient
' datos login
Dim theCredential As New Net.NetworkCredential("Infosig_sus", "xxx")'el usuario y la contaseña
SmtpMail.Credentials = theCredential
'se indica el host
SmtpMail.Host = "" 'aqui coloco la direccion ip del serv de correo
SmtpMail.Send(MailMsg)
Catch ex As Exception
' por si hay un error
MsgBoxStyle.Exclamation)
MsgBox(ex.Message) ' aquí me sale el error
End Try
End Sub
End Class
MUCHAS GRACIAS
