chergh
blah
- Local time
- Today, 21:46
- Joined
- Jun 15, 2004
- Messages
- 1,414
The let me google link was a bit mean of me and you have done a lot more for yourself than a lot of people who come to forums.
The sendobject method doesn't actually exist in excel but there is a sendmail method but it's quite limited but it may be enough for you.
Try:
The sendobject method doesn't actually exist in excel but there is a sendmail method but it's quite limited but it may be enough for you.
Try:
Code:
Public Sub save()
Dim path As String
Application.DisplayAlerts = False
path = ThisWorkbook.path & "\" & ThisWorkbook.Name
ThisWorkbook.save
'put your code to combine tabs and delete blank rows in here
ThisWorkbook.SaveAs Filename:="C:\documents and settings\%username%\Desktop\BookName.csv", FileFormat:=xlCSVMSDOS, CreateBackup:=False
thisworkbook.sendmail recipients:= "cbdfw@yahoo.com", subject:= "workbook"
Workbooks.Open path
Application.DisplayAlerts = True
Workbooks("BookName.csv").Close False
End Sub