Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
160
Compras/RecepcionFacturas.aspx.vb.exclude
Normal file
160
Compras/RecepcionFacturas.aspx.vb.exclude
Normal file
@@ -0,0 +1,160 @@
|
||||
'Imports HigLabo
|
||||
'Imports HigLabo.Net
|
||||
'Imports HigLabo.Net.Mail
|
||||
|
||||
Partial Class Compras_RecepcionFacturas
|
||||
Inherits System.Web.UI.Page
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
RecepcionFacturas()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub RecepcionFacturas()
|
||||
Dim ObjPop As New HigLabo.Net.Pop3.Pop3Client("mail.adsistemas.mx", 110, "julian@adsistemas.mx", "Sia123654")
|
||||
ObjPop.Ssl = False
|
||||
If ObjPop.Authenticate() Then
|
||||
|
||||
Dim Mails As Long = ObjPop.GetTotalMessageCount()
|
||||
Dim SB As New StringBuilder
|
||||
SB.Append("<table border=""1"">")
|
||||
|
||||
SB.Append("<tr>")
|
||||
SB.Append("<td>#</td>")
|
||||
SB.Append("<td>De</td>")
|
||||
SB.Append("<td>Asunto</td>")
|
||||
'SB.Append("<td>BodyText</td>")
|
||||
SB.Append("<td>Fecha</td>")
|
||||
SB.Append("<td>IsAttachment</td>")
|
||||
SB.Append("<td>IsBody</td>")
|
||||
SB.Append("<td>IsHtml</td>")
|
||||
SB.Append("<td>IsMultiPart</td>")
|
||||
SB.Append("<td>IsText</td>")
|
||||
SB.Append("<td>To</td>")
|
||||
SB.Append("</tr>")
|
||||
|
||||
|
||||
|
||||
'For i As Integer = 1 To Mails
|
||||
Dim i As Integer = 0
|
||||
Try
|
||||
Dim Mail As HigLabo.Net.Mail.MailMessage = ObjPop.GetMessage(29)
|
||||
|
||||
Dim TieneXML As Boolean = True
|
||||
For Each ct As HigLabo.Net.Pop3.MailContent In Mail.Contents
|
||||
If ct.FileName.Trim <> "" Then
|
||||
TieneXML = True
|
||||
SB.Append("<tr>")
|
||||
SB.Append("<td colspan=""5"">" & ct.FileName & "</td>")
|
||||
SB.Append("</tr>")
|
||||
'ct.DecodeData("d:\mail\" & ct.FileName)
|
||||
End If
|
||||
Next
|
||||
|
||||
If TieneXML Then
|
||||
SB.Append("<tr>")
|
||||
SB.Append("<td>" & i & "</td>")
|
||||
SB.Append("<td>" & Mail.From & "</td>")
|
||||
SB.Append("<td>" & Mail.Subject & "</td>")
|
||||
'SB.Append("<td>" & Mail.BodyText & "</td>")
|
||||
SB.Append("<td>" & Mail.Date.ToString("dd/mm/yyyy hh:mm:ss") & "</td>")
|
||||
SB.Append("<td>" & Mail.IsAttachment & "</td>")
|
||||
SB.Append("<td>" & Mail.BodyText & "</td>")
|
||||
SB.Append("<td>" & Mail.IsHtml & "</td>")
|
||||
SB.Append("<td>" & Mail.IsMultiPart & "</td>")
|
||||
SB.Append("<td>" & Mail.IsText & "</td>")
|
||||
SB.Append("<td>" & Mail.To & "</td>")
|
||||
SB.Append("</tr>")
|
||||
End If
|
||||
Catch ex As HigLabo.Net.SocketClientException
|
||||
SB.Append("<tr>")
|
||||
SB.Append("<td colspan=""5"">" & i & " ex.mess" & ex.Message & "</td>")
|
||||
SB.Append("</tr>")
|
||||
End Try
|
||||
|
||||
|
||||
'Next
|
||||
SB.Append("</table>")
|
||||
Response.Write(SB.ToString)
|
||||
End If
|
||||
|
||||
'Dim ObjPop As New HigLabo.Net.Pop3.Pop3Client("mail.adsistemas.mx", 110, "julian@adsistemas.mx", "Sia123654")
|
||||
'ObjPop.Ssl = False
|
||||
'If ObjPop.Authenticate() Then
|
||||
|
||||
' Dim Mails As Long = ObjPop.GetTotalMessageCount()
|
||||
' Dim SB As New StringBuilder
|
||||
' SB.Append("<table border=""1"">")
|
||||
|
||||
' SB.Append("<tr>")
|
||||
' SB.Append("<td>Consec</td>")
|
||||
' SB.Append("<td>Bcc</td>")
|
||||
' SB.Append("<td>BodyData</td>")
|
||||
' SB.Append("<td>BodyText</td>")
|
||||
' SB.Append("<td>Cc</td>")
|
||||
' SB.Append("<td>CharSet</td>")
|
||||
' SB.Append("<td>Data</td>")
|
||||
' SB.Append("<td>Date.ToString</td>")
|
||||
' SB.Append("<td>From</td>")
|
||||
' SB.Append("<td>IsAttachment</td>")
|
||||
' SB.Append("<td>IsBody</td>")
|
||||
' SB.Append("<td>IsHtml</td>")
|
||||
' SB.Append("<td>IsMultiPart</td>")
|
||||
' SB.Append("<td>IsText</td>")
|
||||
' SB.Append("<td>Size</td>")
|
||||
' SB.Append("<td>Subject</td>")
|
||||
' SB.Append("<td>To</td>")
|
||||
' SB.Append("</tr>")
|
||||
|
||||
|
||||
|
||||
' For i As Integer = 1 To Mails
|
||||
' 'Dim i As Integer = 0
|
||||
' Try
|
||||
|
||||
' Dim Mail As HigLabo.Net.Mail.MailMessage = ObjPop.GetMessage(20)
|
||||
|
||||
' SB.Append("<tr>")
|
||||
' SB.Append("<td>" & i & "</td>")
|
||||
' SB.Append("<td>" & Mail.Bcc & "</td>")
|
||||
' SB.Append("<td>" & Mail.BodyData & "</td>")
|
||||
' SB.Append("<td>" & Mail.BodyText & "</td>")
|
||||
' SB.Append("<td>" & Mail.Cc & "</td>")
|
||||
' SB.Append("<td>" & Mail.CharSet & "</td>")
|
||||
' SB.Append("<td>" & Mail.Data & "</td>")
|
||||
' SB.Append("<td>" & Mail.Date.ToString & "</td>")
|
||||
' SB.Append("<td>" & Mail.From & "</td>")
|
||||
' SB.Append("<td>" & Mail.IsAttachment & "</td>")
|
||||
' SB.Append("<td>" & Mail.IsBody & "</td>")
|
||||
' SB.Append("<td>" & Mail.IsHtml & "</td>")
|
||||
' SB.Append("<td>" & Mail.IsMultiPart & "</td>")
|
||||
' SB.Append("<td>" & Mail.IsText & "</td>")
|
||||
' SB.Append("<td>" & Mail.Size & "</td>")
|
||||
' SB.Append("<td>" & Mail.Subject & "</td>")
|
||||
' SB.Append("<td>" & Mail.To & "</td>")
|
||||
' SB.Append("</tr>")
|
||||
|
||||
' For Each ct As HigLabo.Net.Pop3.MailContent In Mail.Contents
|
||||
' ct.DecodeHeaderText = True
|
||||
' If ct.FileName.Trim <> "" Then
|
||||
' SB.Append("<tr>")
|
||||
' SB.Append("<td colspan=""16"">" & ct.FileName & "</td>")
|
||||
' SB.Append("</tr>")
|
||||
' ct.DecodeData("d:\mail\" & ct.FileName)
|
||||
' End If
|
||||
' Next
|
||||
' Catch ex As HigLabo.Net.SocketClientException
|
||||
' SB.Append("<tr>")
|
||||
' SB.Append("<td colspan=""16"">" & i & " " & ex.Message & "</td>")
|
||||
' SB.Append("</tr>")
|
||||
' End Try
|
||||
|
||||
|
||||
' Next
|
||||
' SB.Append("</table>")
|
||||
' Response.Write(SB.ToString)
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user