Sending Email from excel cell with attachment

[vankootens]

Function: Recipient address = I25 and sends with attachments in C:\Users\...

So far I have the first part:

Sub Mail()
Dim OutlookApp As Object
Dim Mess As Object, Recip

Recip = [I25].Value
Set OutlookApp = CreateObject("Outlook.Application")
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.To = Recip
.Display
End With
End Sub

Need the second part functionality.
Thank you in advance!

[snb]

Have a look at: http://www.snb-vba.eu/VBA_Excelgegevens_mailen.html