Email file attachments and VB.net

Question

0.00/5 (No votes)

See more:

I have the following code which sucessfully attaches a document to an email and fires it to an end user, got two issues:

1. If no documents exist for the user, how can I skip it, so looking for ideas on how I can look up the table in question, if there are no entries then skip to just sending the email.

2. How do I attach multiple docs ? Do I need to read the table into an array ?

VB

Retrieve(Document)
        Dim fileName As String = String.Empty
        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("TESTConnectionString").ConnectionString)
        Dim cmd As New SqlCommand("SELECT DocName,DocData FROM Docs WHERE Ext_Ref = " & strID, con)
        con.Open()
        Dim dReader As SqlDataReader = cmd.ExecuteReader()

        While dReader.Read()
            fileName = dReader("DocName").ToString()
            Dim documentBinary As Byte() = DirectCast(dReader("DocData"), Byte())
            Dim fStream As New FileStream(Server.MapPath("~\Docs") & "\" & fileName, FileMode.Create)
            fStream.Write(documentBinary, 0, documentBinary.Length)
            fStream.Close()
            fStream.Dispose()
        End While
        con.Close()
        mail.Attachments.Add(New Attachment("~Docs\" & fileName))

Posted 1-Aug-13 20:56pm

Member 9957389

Add a Solution

4 solutions

Solution 1

Check..
http://social.msdn.microsoft.com/Forums/en-US/9a0e883c-1e22-4206-ad22-a753f6401e61/attach-multiple-files-in-a-directory-to-an-email[^]
http://www.aspsnippets.com/Articles/Upload-and-attach-multiple-files-as-attachments-to-email-in-ASPNet.aspx[^]

Posted 1-Aug-13 21:19pm

ridoy

Solution 3

VB

Try
    Dim SmtpClient As New SmtpClient("smtp.google.com") 'smtp server address
    Dim MailAddressCollection As New MailAddressCollection()
    Dim message As New MailMessage()
    message.From = New MailAddress("test@test.com", "test emailer")
    message.Body = "type body here"
    message.Subject = "type subject here"
    message.[To].Add("tested@golf.com") 'recipients email
    '    Dim att As New Attachment(New MemoryStream(bytes), name)
    Dim data As New Attachment("C:\Automated Extracts\document" & _
         DateTime.Today.ToString("yyyyMMdd") & ".zip")
    message.Attachments.Add(data)
    SmtpClient.Port = 25
    'SmtpClient.EnableSsl = True
    SmtpClient.Send(message)
Catch ex As Exception

End Try

Posted 2-Aug-13 2:42am

Kats2512

Updated 2-Aug-13 4:23am

v2

Solution 4

http://www.aspdotnet-suresh.com/2012/07/how-to-send-mail-with-multiple.html[^]

ASP.NET email with multiple attachments[^]

http://www.aspsnippets.com/Blue/Articles/How-to-send-email-with-Multiple-Attachments-in-ASPNet-Website.aspx[^]

Check the links..hope it will help

Posted 2-Aug-13 2:45am

Code-Hunt

Add a Solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Tadit Dash (ତଡିତ୍ କୁମାର ଦାଶ) · Accepted Answer · 2013-08-01T21:20:00

Inside the loop, just write the code to attach like below...

VB

While dReader.Read()
    fileName = dReader("DocName").ToString()
    Dim documentBinary As Byte() = DirectCast(dReader("DocData"), Byte())
    Dim fStream As New FileStream(Server.MapPath("~\Docs") & "\" & fileName, FileMode.Create)
    fStream.Write(documentBinary, 0, documentBinary.Length)
    fStream.Close()
    fStream.Dispose()

    ' If the file exists then attach.
    If !String.IsNullOrEmpty(fileName) Then 
        mail.Attachments.Add(New Attachment("~Docs\" & fileName))
End While

So,

Here you first check whether FileName is not null or blank.
Written the code to attach the file in the loop. So, all the files will be attached one by one.

Email file attachments and VB.net

4 solutions

Solution 2

Solution 1

Solution 3

Solution 4

Add your solution here

Preview 0

Email file attachments and VB.net

4 solutions

Solution 2

Solution 1

Solution 3

Solution 4

Add your solution here

Preview 0

Existing Members

...or Join us