How to attach a local file to email using macro?

Hello Expert out there,

I'm asking if anyone of you would asisst me with my problem. I am trying to figure out how to write the VBA scripts to attach a file (SPICK.xls) in C:\temp folder to email such as Lotus Notes. This will save me work of clicking steps on email in order to send the file out.

Appreciate your help.

Thanks.

Hello Tanks1308,

To send an Email attachment from Excel using VBA and Lotus Notes as your Email client, have a look at this site. It has the code and explains what to change with regard to different versions of Notes.

http://www.fabalou.com/VBandVBA/lotusnotesmail.asp

Sincerely,
Leith Ross

Hello Ross,

thanks for the input. But I've tried it, it still did not work out. Maybe I've tried that in a wrong way.

I have extracted some code, this code helps but not to solve my problem.

Sub Mail_ActiveSheet()
Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Spick " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail "[email protected]", _
"Spick file as of " & Format(Date - 1, "mm-dd-yyyy")
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub

Hello Tanks1308,

From these 2 posts it really isn't clear me what you want to do. What program does your system use to send Email? Lotus Notes, Outlook Express, Outlook, Eudora, or are you simply wanting to use the Excel SendMail?

Sincerely,
Leith Ross