Hola a todos:
Estoy desarrollando una aplicación en la que necesito enviar un Mail a un grupo de Personas dentro de una misma Compañia.
Utilizo el VB.Net 2005 y tengo instalado el Office 2003
e intentado con varias opciones que encontre en internet pero ninguna me funciona siempre dan error.
ej:
Public Sub SendMailMessage(ByVal strFrom As String, ByVal strTo As String, ByVal strSubjet As String, ByVal strMessage As String, ByVal FileList() As String)
Try
For Each item As String In strTo
'este siclo FOR es por cada eMail destino que se Ponga
Dim MailMsg() As New MailMessage(New MailAddress(strFrom.Trim()).Address(item))
MailMsg.Subject = strSubjet.Trim()
MailMsg.Body = strMessage.Trim() & vbCrLf
MailMsg.Priority = MailPriority.Normal
MailMsg.IsBodyHtml = True
'Ciclo por si se envian 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 stpmMail As New SmtpClient
' Enviar datos Login
'---------Modificar-----------
Dim theCredentials As New Net.NetworkCredential("Usuario", "Password")
stpmMail.Credentials = theCredentials
'Indicar Host
'----------Modificar----------
stpmMail.Send(MailMsg)
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
Por favor ayudenme
