Visual Basic

Function SendEmail(ByVal mBody As String, ByVal mSubject As String, ByVal mFrom As String, ByVal mTo As String, Optional ByVal mCC As String = "", Optional ByVal mBCC As String = "", Optional ByVal pDisplayName As String = "", Optional ByVal pIsBodyHtml As Boolean = False, Optional ByVal pPriority As MailPriority = MailPriority.Normal, Optional ByVal AttPath As String = "") As Integer
        Dim Mail As New System.Net.Mail.MailMessage
        Dim counter As Integer = 0
        Dim MailAddList() As String
        Dim MailList As String

        Dim Smtp As New SmtpClient
        Try
            With Mail
                .From = New System.Net.Mail.MailAddress(mFrom.Trim, pDisplayName)
                '---- Insert Recepient mail(To) ----
                MailAddList = Split(mTo, ";")
                For Each MailList In MailAddList
                    .To.Add(MailList)
                Next
                .Priority = pPriority
                .IsBodyHtml = pIsBodyHtml
                '---- Insert CC ----
                If mCC <> "" Then
                    MailAddList = Split(mCC, ";")
                    For Each MailList In MailAddList
                        '.To.Add(MailList)
                        .CC.Add(MailList)
                    Next
                End If
                '---- Insert Bcc ----
                If mBCC <> "" Then
                    '.Bcc.Add(mBCC.Trim)
                    MailAddList = Split(mBCC, ";")
                    For Each MailList In MailAddList
                        .Bcc.Add(MailList)
                    Next
                End If
                .Subject = CStr(mSubject).Trim
                .Body = mBody.Trim
                .DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
                'Atach File
                AttFileName = New Attachment(AttPath)
                Mail.Attachments.Add(AttFileName)

            End With
            Smtp.Host = CStr("company.test.com.kh") 'It's replace the IP
            Smtp.Port = 25
            Dim myCredential As New System.Net.NetworkCredential("UserName", "Password")
            Smtp.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
            Smtp.Credentials = myCredential

            Smtp.Send(Mail)
            '----- Delay process 10seconds ------'
            System.Threading.Thread.Sleep(10000)
            '-----------------------------------'
            Return 0
        Catch ex As Exception
            ErrorMessage = ex.Message
            Return -1
        Finally
            If Mail IsNot Nothing Then Mail.Dispose()
            Mail = Nothing
            Smtp = Nothing
        End Try

    End Function

C#Coudou wrote:

Is there a way in vb.net that will not use some utilities?

Imports iTextSharp.text
Imports iTextSharp.text.pdf

Public Class PDFMerge

#Region "Fields"
    Private _sourcefolder As String
    Private _destinationfile As String
    Private _fileList As IList = New ArrayList()
#End Region

#Region "Properties"
    ''' 
    ''' Gets or Sets the SourceFolder 
    ''' 
    Public Property SourceFolder() As String
        Get
            Return _sourcefolder
        End Get
        Set(ByVal value As String)
            _sourcefolder = value
        End Set
    End Property

    ''' 
    ''' Gets or Sets the DestinationFile 
    ''' 
    Public Property DestinationFile() As String
        Get
            Return _destinationfile
        End Get
        Set(ByVal value As String)
            _destinationfile = value
        End Set
    End Property
#End Region

#Region "Public Methods"

    ''' 
    ''' Add a new file, together with a given docname to the fileList and namelist collection 
    ''' 
    Public Sub AddFile(ByVal pathnname As String)
        _fileList.Add(pathnname)
    End Sub

    ''' 
    ''' Generate the merged PDF 
    ''' 
    Public Sub Execute()
        MergeDocs()
    End Sub

    Public Sub Execute(ByVal Destination As String)
        DestinationFile = Destination
        MergeDocs()
    End Sub

#End Region

#Region "Private Methods"

    ''' 
    ''' Merges the Docs and renders the destinationFile 
    ''' 
    Private Sub MergeDocs()

        'Step 1: Create a Docuement-Object 
        Dim document As New Document()
        Try
            'Step 2: we create a writer that listens to the document 
            Dim writer As PdfWriter = PdfWriter.GetInstance(document, New System.IO.FileStream(DestinationFile, System.IO.FileMode.Create))

            'Step 3: Open the document 
            document.Open()

            Dim cb As PdfContentByte = writer.DirectContent
            Dim page As PdfImportedPage

            Dim n As Integer = 0
            Dim rotation As Integer = 0

            'Loops for each file that has been listed 
            For Each filename As String In _fileList
                'The current file path 
                Dim filePath As String = SourceFolder + filename

                ' we create a reader for the document 
                Dim reader As New PdfReader(filePath)

                'Gets the number of pages to process 
                n = reader.NumberOfPages

                Dim i As Integer = 0
                While i < n
                    i += 1
                    document.SetPageSize(reader.GetPageSizeWithRotation(1))
                    document.NewPage()

                    'Insert to Destination on the first page 
                    If i = 1 Then
                        Dim fileRef As New Chunk(" ")
                        fileRef.SetLocalDestination(filename)
                        document.Add(fileRef)
                    End If

                    page = writer.GetImportedPage(reader, i)
                    rotation = reader.GetPageRotation(i)
                    If rotation = 90 OrElse rotation = 270 Then
                        cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, _
                        reader.GetPageSizeWithRotation(i).Height)
                    Else
                        cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, _
                        0)
                    End If
                End While
            Next
        Catch e As Exception
            Throw e
        Finally
            document.Close()
        End Try
    End Sub

#End Region

End Class

thebiostyle wrote:

Will they ever make it possible?