Limit Attachment file size when sending mail

Question

0.00/5 (No votes)

See more:

Hi,

Code block below is working for me.

VB

Imports System.Net.Mail




Dim SmtpServer As New SmtpClient()

        Dim mail As New MailMessage()

        SmtpServer.Credentials = New _
                                 Net.NetworkCredential(AppSettings.Get("smtpID"), _Globalvariables.DecryptSmtp_pWd)


        SmtpServer.Port = 25

        SmtpServer.EnableSsl = False

        SmtpServer.Host = AppSettings.Get("smtpHost")

        mail = New MailMessage()

        mail.From = New MailAddress(AppSettings.Get("mailFrom"), AppSettings.Get("displayname"))

        mail.To.Add(email_id)

        mail.CC.Add(AppSettings.Get("mailCC"))

        mail.Subject = AppSettings.Get("mailSubject") & "(" & sMonthName & iYear & ")"

        mail.Body = "<b>Hi,</b><br></br> " & vbCrLf

        mail.Body = mail.Body + "Monthly Generation of AuditSys Users Invalid Log-in" & vbCrLf

        mail.Body = mail.Body + "for the Month of " & sMonthFullName & " " & iYear & ". <br></br> " & vbCrLf


        mail.IsBodyHtml = True


        Dim Attchment As Attachment = New Attachment(AppSettings.Get("CMSDIR") & AppSettings.Get("Local_DIR") & AppSettings.Get("RptFileName") & AppSettings.Get("xls_extension"))

        mail.Attachments.Add(Attchment)

        SmtpServer.UseDefaultCredentials = False

        SmtpServer.Send(mail)

        mail.Dispose()

How can i check the Attchment filesize ?

so that if Attchment is more than 2MB then Attchment will automatically be sent in the the FTP folder, and the body of the message will be;

Dear Client,

File attachment was large. Please access FTP Folder instead and get Attchment.

Thank You.
Please Help Me.

Posted 15-Jan-13 23:08pm

Alan Tuscano

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

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

phil.o · Accepted Answer · 2013-01-15T23:27:00

From what you told, there must be somewhere on your server a file that you use as attachment.

Thus :

VB

using System.IO;

Dim filePath As String = AppSettings.Get("CMSDIR") & AppSettings.Get("Local_DIR") & AppSettings.Get("RptFileName") & AppSettings.Get("xls_extension")
Dim fi As FileInfo = new FileInfo(filePath);

If (fi.Length > 2097152)
   [your logic here when you want to send it to ftp]
Else
   [your logic here when you want as attachment]
End If

Hope this helps.
Kind regards.