I have code that generates an email and attaches specific files. I would
like to know if there is VBA code to be able to attach ALL files within a
specific folder, not just one specific file. Kind of like a "select all"
within a folder that attaches all selected items to an email. Any thoughts?
Thanks in advance.

-Chad

Chad,

You can navigate through files in a directory using the DIR command.
I recently blogged about it. It should point you in the right
direction regarding attaching all the files in one directory.

Regards,
Eddie
http://HelpExcel.com

See if you can find what you need on Ron de Bruin's site:

http://www.rondebruin.nl/sendmail.htm

"Chad" wrote:

> I have code that generates an email and attaches specific files. I would
> like to know if there is VBA code to be able to attach ALL files within a
> specific folder, not just one specific file. Kind of like a "select all"
> within a folder that attaches all selected items to an email. Any thoughts?
> Thanks in advance.
>
> -Chad

thank you. this provided good insight and direction to my ultimate goal. i
was able to modify your DIR command code and incorporate adding attachments
to an email. lots of help. keep up the good work!

-chad

"(E-Mail Removed)" wrote:

> Chad,
>
> You can navigate through files in a directory using the DIR command.
> I recently blogged about it. It should point you in the right
> direction regarding attaching all the files in one directory.
>
> Regards,
> Eddie
> http://HelpExcel.com
>
>
>

Hi Chad,

Could you share with me the code or the concept of sending an e-mail WITH
SPECIFIC FILES ATTACHED through VBA?

Thanks in advance!
Stefi


„Chadâ€� ezt Ã*rta:

> I have code that generates an email and attaches specific files. I would
> like to know if there is VBA code to be able to attach ALL files within a
> specific folder, not just one specific file. Kind of like a "select all"
> within a folder that attaches all selected items to an email. Any thoughts?
> Thanks in advance.
>
> -Chad

here's a portion of the code i use:

'You must add a reference to the Microsoft outlook Library

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Dim strbody As String

strbody = "Email body text"

With OutMail
.To = "(E-Mail Removed)"
'.CC = ""
'.BCC = ""
subjectline = "test email
.Subject = subjectline
.Body = strbody
.Importance = olImportanceHigh
.ReadReceiptRequested = True
'define attachment
attachmentname = "c:\" 'adjust to your directory
Set myAttachments = OutMail.Attachments
myAttachments.Add attachmentname
.Send 'or use .Display to display the message prior to sending

End With

hope this helps,
-chad


"Stefi" wrote:

> Hi Chad,
>
> Could you share with me the code or the concept of sending an e-mail WITH
> SPECIFIC FILES ATTACHED through VBA?
>
> Thanks in advance!
> Stefi
>
>
> „Chadâ€� ezt Ã*rta:
>
> > I have code that generates an email and attaches specific files. I would
> > like to know if there is VBA code to be able to attach ALL files within a
> > specific folder, not just one specific file. Kind of like a "select all"
> > within a folder that attaches all selected items to an email. Any thoughts?
> > Thanks in advance.
> >
> > -Chad

Thanks, Chad, it was a great help for me!
Stefi


„Chadâ€� ezt Ã*rta:

> here's a portion of the code i use:
>
> 'You must add a reference to the Microsoft outlook Library
>
> Dim OutApp As Outlook.Application
> Dim OutMail As Outlook.MailItem
> Set OutApp = CreateObject("Outlook.Application")
> Set OutMail = OutApp.CreateItem(olMailItem)
> Dim strbody As String
>
> strbody = "Email body text"
>
> With OutMail
> .To = "(E-Mail Removed)"
> '.CC = ""
> '.BCC = ""
> subjectline = "test email
> .Subject = subjectline
> .Body = strbody
> .Importance = olImportanceHigh
> .ReadReceiptRequested = True
> 'define attachment
> attachmentname = "c:\" 'adjust to your directory
> Set myAttachments = OutMail.Attachments
> myAttachments.Add attachmentname
> .Send 'or use .Display to display the message prior to sending
>
> End With
>
> hope this helps,
> -chad
>
>
> "Stefi" wrote:
>
> > Hi Chad,
> >
> > Could you share with me the code or the concept of sending an e-mail WITH
> > SPECIFIC FILES ATTACHED through VBA?
> >
> > Thanks in advance!
> > Stefi
> >
> >
> > „Chadâ€� ezt Ã*rta:
> >
> > > I have code that generates an email and attaches specific files. I would
> > > like to know if there is VBA code to be able to attach ALL files within a
> > > specific folder, not just one specific file. Kind of like a "select all"
> > > within a folder that attaches all selected items to an email. Any thoughts?
> > > Thanks in advance.
> > >
> > > -Chad

Chad,
I am currently working on a program that allows the user to email the excel
document but I also need to attach supporting files with it (usually a word
document as well), however those documents change constantly so it will
easier to have the code grab the files than set up the code each time for
each document. I have created a folder where all the supporting documents
reside. Would you be willing to share the code, that allows you to loop
through the folder and attaches all the files, just like the "Select All" you
posted in the message. I saw the code for the DIR from the help excel
website but I was not able to modify it successfully to allow for it attach
all files, it looped correctly, when I ran the example as is. However my
modified code give me automation errors, when it ran. Any ideas or pointers
in the right direction will help. I am learning visual basic so I do
understand the concepts. Any help will be most appreciated.

Karen

"Chad" wrote:

> here's a portion of the code i use:
>
> 'You must add a reference to the Microsoft outlook Library
>
> Dim OutApp As Outlook.Application
> Dim OutMail As Outlook.MailItem
> Set OutApp = CreateObject("Outlook.Application")
> Set OutMail = OutApp.CreateItem(olMailItem)
> Dim strbody As String
>
> strbody = "Email body text"
>
> With OutMail
> .To = "(E-Mail Removed)"
> '.CC = ""
> '.BCC = ""
> subjectline = "test email
> .Subject = subjectline
> .Body = strbody
> .Importance = olImportanceHigh
> .ReadReceiptRequested = True
> 'define attachment
> attachmentname = "c:\" 'adjust to your directory
> Set myAttachments = OutMail.Attachments
> myAttachments.Add attachmentname
> .Send 'or use .Display to display the message prior to sending
>
> End With
>
> hope this helps,
> -chad
>
>
> "Stefi" wrote:
>
> > Hi Chad,
> >
> > Could you share with me the code or the concept of sending an e-mail WITH
> > SPECIFIC FILES ATTACHED through VBA?
> >
> > Thanks in advance!
> > Stefi
> >
> >
> > „Chadâ€� ezt Ã*rta:
> >
> > > I have code that generates an email and attaches specific files. I would
> > > like to know if there is VBA code to be able to attach ALL files within a
> > > specific folder, not just one specific file. Kind of like a "select all"
> > > within a folder that attaches all selected items to an email. Any thoughts?
> > > Thanks in advance.
> > >
> > > -Chad