Need help fast!!!! Macro to e-mail spreadsheet with specific info
I need to change the macro I currently use to email an excel spreadsheet so that it emails to a specific email address and enters data (from 2 cells in the spreadsheet) into the subject line. I am not real good with these things so if anyone can help - I would greatly appreciate it! Here is the macro I currently use:
ActiveWorkbook.UNPROTECT
Sheets("ACKNOWLEDGMENT").Select
ActiveSheet.UNPROTECT
Sheets("ACKNOWLEDGMENT").Select
Sheets("ACKNOWLEDGMENT").COPY
Sheets("ACKNOWLEDGMENT").Select
Sheets("ACKNOWLEDGMENT").Name = "COMPLETED ACKNOLEDGEMENT"
Range("G4:H4").Select
Application.Dialogs(xlDialogSendMail).Show
Windows("USTruckbuilder10.15.2009(version1)-1.xls").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Order Form").Select
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
Thanks!
Bublin
I need to change the macro I currently use to email an excel spreadsheet so that it emails to a specific email address and enters data (from 2 cells in the spreadsheet) into the subject line. I am not real good with these things so if anyone can help - I would greatly appreciate it! Here is the macro I currently use:
ActiveWorkbook.UNPROTECT
Sheets("ACKNOWLEDGMENT").Select
ActiveSheet.UNPROTECT
Sheets("ACKNOWLEDGMENT").Select
Sheets("ACKNOWLEDGMENT").COPY
Sheets("ACKNOWLEDGMENT").Select
Sheets("ACKNOWLEDGMENT").Name = "COMPLETED ACKNOLEDGEMENT"
Range("G4:H4").Select
Application.Dialogs(xlDialogSendMail).Show
Windows("USTruckbuilder10.15.2009(version1)-1.xls").Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Order Form").Select
ActiveWorkbook.Protect Structure:=True, Windows:=False
End Sub
Thanks!
Bublin
Last edited: