Macro to send an attachment via Outlook from excel

Hi


I found a macro which I would like to modify a bit:

(Sub mailOutlook()
Dim OutApp As Object
Dim OutMail As Object
Dim stFname As String
Dim cell As Range

For Each cell In Range("A1:A5")
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.createitem(0)
With OutMail
.To = cell
.Subject = Range("C1")
.Body = Range("C2")
.display
'.send (Optional)
End With
Next cell

Set OutMail = Nothing
Set OutApp = Nothing
End Su)

Is there ability to add code in this to send the exact attachment I'm in now? So not only the email but with a file.

Thank you a lot for you support,
Andy

Hi Andy,

A small tip, always use the code tags around your code (the "#") option immediately above.

To your question, I recommend the wonderful site from Ron de Bruin (http://www.rondebruin.nl/) where you will see a number of options for dealing with emails in all forms

I have used them myself and know they work

hi,
Jmac told you to use code tags around yr code, it's a forum rule, it's easy to read it, etc, then he offers you a site with examples. also you can search here and you'll find plenty of examples of what you're looking for!