emailing attachment files in VB.Net

[Bob-O]

Need your help in sending an email message with an attachment in my VB.Net program. Sending a body message is no problem. I don't know how to use the attachment property in an emai

Following is an excerpt from the program

Imports System.Web.Mai
Imports System.Web.Http ServerUtilit
Imports System.Diagnost ics

Public Class Emailin
Inherits System.Web.UI Pag
Protected withEvents btnSubmit As System.Web.UI.W ebControls.Butt o
et
et

Private Sub btnSubmit(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnSubmit.Clic
Dim msgMail As New MailMessage(
Dim msgAttachment As MailAttachment(

'file access code to get an email addres

'file exist code to see if attachment file is availabl

'if email address and file attachment availabl
'set up message and attachmen

msgMail.To = "jo*@company.co m" 'this work
msgMail.From = "we*******@comp any.com" 'this work
msgMail.Subject = "Quarterly Promotion Report" 'this works
msgMail.Bodyfor mat = Mailformat.Text 'this work
msgMail.Body = "Your Quarterly Promotion Report is attached" 'this work
msgMail.Attachm ents.Add(0) 'just guessing
msgMail.Attachm ents(0) = "qtrprorpt. pdf" 'just guessin
msgAttachment.G etValue(0) 'just guessin
SmtpMail.SmtpSe rver = "localhost" 'this work
SmtpMail.Send(m sgMail) 'this work
SmtpMail.Send(m sgAttachment) 'just guessin

[Anand N [MVP]]

Hi Bob,

Check out my following articles:

http://www.developer.com/net/asp/article.php/3096831
http://www.developer.com/net/asp/article.php/3287361

I hope this helps

--
Regards,
Anand N
Microsoft MVP
NetAns Technologies
www.netans.com
Affordable/Reliable Web Hosting Services
---------------------------------
www.learnXpress.com
www.dotnetalbum.com

"Bob-O" <ol*****@hotmai l.com> wrote in message
news:70******** *************** ***********@mic rosoft.com...

Need your help in sending an email message with an attachment in my VB.Net program. Sending a body message is no problem. I don't know how to
use the attachment property in an email
Following is an excerpt from the program:

Imports System.Web.Mail
Imports System.Web.Http ServerUtility
Imports System.Diagnost icss

Public Class Emailing
Inherits System.Web.UI Page
Protected withEvents btnSubmit As System.Web.UI.W ebControls.Butt on
etc
etc

Private Sub btnSubmit(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnSubmit.Click Dim msgMail As New MailMessage()
Dim msgAttachment As MailAttachment( )

'file access code to get an email address

'file exist code to see if attachment file is available

'if email address and file attachment available
'set up message and attachment

msgMail.To = "jo*@company.co m" 'this works msgMail.From = "we*******@comp any.com" 'this works msgMail.Subject = "Quarterly Promotion Report" 'this works msgMail.Bodyfor mat = Mailformat.Text 'this works msgMail.Body = "Your Quarterly Promotion Report is attached" 'this works msgMail.Attachm ents.Add(0) 'just guessing msgMail.Attachm ents(0) = "qtrprorpt. pdf" 'just guessing msgAttachment.G etValue(0) 'just guessing SmtpMail.SmtpSe rver = "localhost" 'this works SmtpMail.Send(m sgMail) 'this works SmtpMail.Send(m sgAttachment) 'just guessing

[Anand N [MVP]]

Hi Bob,

Check out my following articles:

http://www.developer.com/net/asp/article.php/3096831
http://www.developer.com/net/asp/article.php/3287361

I hope this helps

--
Regards,
Anand N
Microsoft MVP
NetAns Technologies
www.netans.com
Affordable/Reliable Web Hosting Services
---------------------------------
www.learnXpress.com
www.dotnetalbum.com

"Bob-O" <ol*****@hotmai l.com> wrote in message
news:70******** *************** ***********@mic rosoft.com...

Need your help in sending an email message with an attachment in my VB.Net program. Sending a body message is no problem. I don't know how to
use the attachment property in an email
Following is an excerpt from the program:

Imports System.Web.Mail
Imports System.Web.Http ServerUtility
Imports System.Diagnost icss

Public Class Emailing
Inherits System.Web.UI Page
Protected withEvents btnSubmit As System.Web.UI.W ebControls.Butt on
etc
etc

Private Sub btnSubmit(ByVal sender As System.Object, ByVal e As System.EventArg s) Handles btnSubmit.Click Dim msgMail As New MailMessage()
Dim msgAttachment As MailAttachment( )

'file access code to get an email address

'file exist code to see if attachment file is available

'if email address and file attachment available
'set up message and attachment

msgMail.To = "jo*@company.co m" 'this works msgMail.From = "we*******@comp any.com" 'this works msgMail.Subject = "Quarterly Promotion Report" 'this works msgMail.Bodyfor mat = Mailformat.Text 'this works msgMail.Body = "Your Quarterly Promotion Report is attached" 'this works msgMail.Attachm ents.Add(0) 'just guessing msgMail.Attachm ents(0) = "qtrprorpt. pdf" 'just guessing msgAttachment.G etValue(0) 'just guessing SmtpMail.SmtpSe rver = "localhost" 'this works SmtpMail.Send(m sgMail) 'this works SmtpMail.Send(m sgAttachment) 'just guessing