Forum home » Delegate support and help forum » Microsoft Excel Training and help » excel-training-advanced courses - Macro to automate e-mailing of spreadsheet
|
|
|
The UK's most regular Training information: See also: |
|
Welcome. Please choose your application (eg. Excel) and then post your question. Our Microsoft Qualified trainers will then respond within 24 hours (working days). Frequently Asked Questions
Any suggestions, questions or comments? Please post in the Improve the forum thread. |
excel-training-advanced courses - Macro to automate e-mailing of spreadsheet
Resolved · Low Priority · Version Standard
Reply Wed 19 Dec 2007, 17:03Delegate Kevin said...
Kevin has attended:
Excel Advanced course
Excel VBA Intro Intermediate course
Macro to automate e-mailing of spreadsheet
I want to add a button within a spreadsheet which will open outlook and attach the completed spreadsheet. how do I do that?
For upcoming training course dates see: Pricing & availability
RE: Macro to automate e-mailing of spreadsheet
Hi Kevin
Thankyou for your question
If you create you button on the tool bar and set it to run the following code, you should find it works OK, although we my need to tweak it further to meet your specific requirements.
In particular the recipient and subject are hard coded and you might want to repalce them with variables so the user can define them at run time
Public Sub sendemail()
Dim Outlook As Object
Dim NameSpace As Object
Dim MailItem As Object
Dim recipient As String
recipient = "bob@acompany.com"
Set Outlook = CreateObject("Outlook.Application")
Set MailItem = Outlook.Createitem(0)
With MailItem
.Subject = " Test Email"
.Recipients.Add recipient
.body = "Workbook"
.send
End With
End Sub
|