E-mail Attachments

[STEVEB]

Hi,

Does any one have any suggestions for E-mailing attachments based on a cell value? My current macro works great, however, I must enter:

Attachemnts.add "file name" for the Macro to function.

Currently I reference cells in the worksheet named "Mail" for the "To", "CC" and "Subject" and everyhting runs smooth. However, if I try to reference the file name to attach rather than entering the file name directly in the code, I receive an error message. Below is the part (.Attachment) of the code that is not working.

.To = ThisWorkbook.Sheets("Mail").Cells(2, a + 2).Value
.CC = ThisWorkbook.Sheets("Mail").Cells(2, a + 3).Value
.Subject = ThisWorkbook.Sheets("Mail").Cells(2, a + 4).Value
.Attachments = ThisWorkbook.Sheets("Mail").Cells(2, a + 5).Value

Any suggestions would be greatly appreciated

[Ron de Bruin]

See this macro for a example
http://www.rondebruin.nl/mail/folder2/files.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"STEVEB" <[email protected]> wrote in message
news:[email protected]...
>
> Hi,
>
> Does any one have any suggestions for E-mailing attachments based on a
> cell value? My current macro works great, however, I must enter:
>
> Attachemnts.add "file name" for the Macro to function.
>
> Currently I reference cells in the worksheet named "Mail" for the "To",
> "CC" and "Subject" and everyhting runs smooth. However, if I try to
> reference the file name to attach rather than entering the file name
> directly in the code, I receive an error message. Below is the part
> (.Attachment) of the code that is not working.
>
> To = ThisWorkbook.Sheets("Mail").Cells(2, a + 2).Value
> CC = ThisWorkbook.Sheets("Mail").Cells(2, a + 3).Value
> Subject = ThisWorkbook.Sheets("Mail").Cells(2, a + 4).Value
> Attachments = ThisWorkbook.Sheets("Mail").Cells(2, a +
> 5).Value
>
> Any suggestions would be greatly appreciated
>
>
> --
> STEVEB
> ------------------------------------------------------------------------
> STEVEB's Profile: http://www.excelforum.com/member.php...fo&userid=1872
> View this thread: http://www.excelforum.com/showthread...hreadid=397945
>

[STEVEB]

Thanks Ron,

Everything worked great!!! I really appreciate your help!!!