Can anyone tell me how i could send an active worksheet from excel as an e-mail attachment (Microsoft Outlook) instead of the body of the e-mail? I have a workbook with about 30+ tabs and I only want to send the active tab (worksheet) to the e-mail recipient.
Thanks in advance,
Chuck
Re: active worksheet as e-mail attachment
Chuck
If you are using Outlook this link might help Example Code for sending mail from Excel .
Re: active worksheet as e-mail attachment
Norie,
Thanks for the quick response. I will check it out and see if it is what I'm looking for
Thanks again,
Chuck
Re: active worksheet as e-mail attachment
Norie,
After entering the first example and testing it still sends the sheet as the body of the message, what I'm trying to do is to get it to send as an excel attachment to the e-mail. Any ideas?
Thanks,
Chuck
Re: active worksheet as e-mail attachment
Chuck
I'm sure there's code on that site for sending a sheet as an attachment.
Check under the heading Outlook object model (attachment).
Re: active worksheet as e-mail attachment
here's one way
Sub eMail()
' This will only email sheet one!
ActiveSheet.Copy
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close SaveChanges:=False
End SubOr
Sub MailSheet()
Dim shtName As String
shtName = ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename("Copy of " & shtName, "Microsoft Excel File, *.xls")
Application.DisplayAlerts = False
Application.Dialogs(xlDialogSendMail).Show
With ActiveWorkbook
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.DisplayAlerts = True
End SubRe: active worksheet as e-mail attachment
Norie,
I appologize for not searching further, it was under the heading Outlook object model (attachment).
Thanks to you and royUK for your help. It works like I was hoping.
Thanks again!!
Chuck
Don’t have an account yet? Register yourself now and be a part of our community!