J
John Baker
Hi
I am using the following code (this is a snippett) to e mail a file automatically to
someone:
'set up spreadsheet with data
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & file
.SendMail "(e-mail address removed)", _
etitle
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
' Run ("mailmessage")
Sheets("input").Select
Application.ScreenUpdating = True
I would like to add a second recippient and a BCC (or CC), so that there are three e mail
addreses receiving it.
Can somene tell me the exact code to accomplish this please?
Thank you very much.
Regards
John Baker
I am using the following code (this is a snippett) to e mail a file automatically to
someone:
'set up spreadsheet with data
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & file
.SendMail "(e-mail address removed)", _
etitle
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
' Run ("mailmessage")
Sheets("input").Select
Application.ScreenUpdating = True
I would like to add a second recippient and a BCC (or CC), so that there are three e mail
addreses receiving it.
Can somene tell me the exact code to accomplish this please?
Thank you very much.
Regards
John Baker