miércoles, 20 de marzo de 2013

Envio de correo Visual basic.net 2010 con sql server

Hola vamos a explicar el envio de correo en visual basic.net 2010.
 Dim _Message As New System.Net.Mail.MailMessage()
        Dim _SMTP As New System.Net.Mail.SmtpClient

        _SMTP.Credentials = New System.Net.NetworkCredential("anny18@msn.com", "nuevonovio12345")
        _SMTP.Host = "smtp.live.com"
        _SMTP.Port = 587
        _SMTP.EnableSsl = True

        ' CONFIGURACION DEL MENSAJE

        _Message.[To].Add("anny18@msn.com".ToString) 'Cuenta de Correo al que se le quiere enviar el e-mail
        _Message.From = New System.Net.Mail.MailAddress("anny18@msn.com", "Aplicacion de INSUMO Base94", System.Text.Encoding.UTF8) 'Quien lo envía
        _Message.Subject = "Aplicacion de INSUMO Base94".ToString 'Sujeto del e-mail
        _Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
        '_Message.Body = Me.txtMensaje.Text.ToString 'contenido del mail
        _Message.BodyEncoding = System.Text.Encoding.UTF8
        _Message.Priority = System.Net.Mail.MailPriority.Normal

        Dim vBody As String = ""
        vBody &= "<font size=6>  <b>Insumos</b></font><br/> "
        vBody &= "Cantidad Separada en la Base94".ToString & "<br/>" 'contenido del mail
        vBody &= "Fecha de envio: " & Now.ToString & "<br/>"

        vBody &= "<TABLE border=1 >"
        vBody &= "<tr>"
        vBody &= "<TD>Cantidad separada</TD>"
        'vBody &= "<TD>CxB</TD>"
        'vBody &= "<TD>Disponible</TD>"
        'vBody &= "<TD>Fecha Entrada</TD>"
        vBody &= "<TD>Referencia </TD>"
        vBody &= "<TD>Descrpcion</TD>"
        ' vBody &= "<TD>PVP</TD>"
        '  vBody &= "<TD>Factor</TD>"
        'vBody &= "<TD>Unidad</TD>"
        vBody &= "</tr>"
        For Each ci As CartItem In RSX.Items    'Aqui recorro una tabla virtual hecha en el programa 'ustedes le haria for  a la tabla
            If ci.cantidadSeparado <> 0 Then
                vBody &= "<TR>"
                vBody &= "<TD>" & ci.cantidadSeparado & "</TD>"
                'vBody &= "<TD>" & ci.cxb & "</TD>"
                'vBody &= "<TD>" & ci.disponible & "</TD>"
                'vBody &= "<TD>" & ci.fechaEntrada & "</TD>"
                vBody &= "<TD>" & ci.itemCode & "</TD>"
                vBody &= "<TD>" & ci.itemName & "</TD>"
                'vBody &= "<TD>" & ci.pvp & "</TD>"
                'vBody &= "<TD>" & ci.unidad & "</TD>"
                'vBody &= "<TD>" & ci.uxf & "</TD>"
                'vBody &= "<TD>" & ci.cantidadSeparado * ci.cxb & "</TD>"
                vBody &= "</TR>"
            End If
        Next
        vBody &= "</TABLE>"
        _Message.Body = vBody
        _Message.IsBodyHtml = True

        'ENVIO
        Try
            _SMTP.Send(_Message)
            MessageBox.Show("Mensaje enviado correctamene", "Exito!", MessageBoxButtons.OK)
        Catch ex As System.Net.Mail.SmtpException
            MessageBox.Show(ex.ToString, "Error!", MessageBoxButtons.OK)
        End Try