Send multiple attachments in a folder, not just a specific filename...via email

Question

I have managed to send an email with an attachment that is in a specific location and named specifically ("C:\New\Log.txt")

However, I want to be able to send an email with all the attachments in a given folder no mater what they are called. All variable settings are configured elsewhere in the project using my.settings and i would like similar for the folder destination i.e. my.settings.fileloc1 for the location of the files

Below is my current code. I'm pretty sure it will involve getfiles, but am running on empty....please help!

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Try
        Dim SmtpServer As New SmtpClient()
        Dim mail As New MailMessage()
        SmtpServer.Credentials = New  _
        Net.NetworkCredential(My.Settings.SMTPuser, My.Settings.SMTPuser)
        SmtpServer.Port = My.Settings.SMTPPort
        SmtpServer.Host = My.Settings.SMTPHost
        mail = New MailMessage()
        mail.From = New MailAddress(My.Settings.from)
        mail.To.Add(My.Settings.recipient)
        mail.Subject = My.Settings.subject
        mail.Body = My.Settings.body
        Dim Attach As Net.Mail.Attachment = New Net.Mail.Attachment("C:\New\Log.txt")
        '^^The above needs to be an actual file
        '^^I want it to select all files in a given folder and attach them!
        mail.Attachments.Add(Attach)
        SmtpServer.Send(mail)
        MsgBox("Mail Sent")
    Catch ex As Exception
        MsgBox("Email Settings are either incomplete or incorrect" & vbNewLine & "Please see below details:" & vbNewLine & vbNewLine & ex.ToString)
    End Try

End Sub

Thanks for anything you can come up with :)

David · Accepted Answer · 2012-10-10 15:53:43Z

2

Try a For Each loop looking for all files in System.IO.Directory.GetFiles()

answered Oct 10, 2012 at 15:53

David

73.7k19 gold badges134 silver badges177 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

Steven Doggart · Accepted Answer · 2012-10-10 16:43:56Z

0

' ...
For Each filePath As String In Directory.GetFiles(My.Settings.FileLoc1)
    Dim Attach As New Net.Mail.Attachment(filePath)
    mail.Attachments.Add(Attach)
Next
SmtpServer.Send(mail)
' ...

answered Oct 10, 2012 at 16:43

Steven Doggart

43.8k8 gold badges71 silver badges109 bronze badges

Collectives™ on Stack Overflow

Send multiple attachments in a folder, not just a specific filename...via email

2 Answers 2

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related