| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Email on save
Is there a way I can set up my spreadsheet to send an email to alert others in my company that it has been updated, every time I save it?
Thanks! Paul |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
Hi Paul,
Am Wed, 27 Jul 2016 08:18:23 -0700 (PDT) schrieb Paul Doucette: Is there a way I can set up my spreadsheet to send an email to alert others in my company that it has been updated, every time I save it? write the code for the email in the Workbook_BeforeSave event Regards Claus B. -- Windows10 Office 2016 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
On Wednesday, July 27, 2016 at 11:18:52 AM UTC-4, Paul Doucette wrote:
Is there a way I can set up my spreadsheet to send an email to alert others in my company that it has been updated, every time I save it? Thanks! Paul Thanks Claus! |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
Paul Doucette wrote:
Is there a way I can set up my spreadsheet to send an email to alert others in my company that it has been updated, every time I save it? I have to ask, do you *really* want to generate an email alert *every time you save*? This strikes me as a really bad idea. I tend to save my spreadsheets every time I change *anything*; I doubt folks would like to receive 600 emails a day from me saying "lol changed the spreadsheet again". Instead, I would do something like this (in the spreadsheet's ThisWorkbook class): Private saved As Boolean Private Sub Workbook_Open() saved = False End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) saved = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) If saved Then generateEmail End Sub Public Sub generateEmail() 'send the email; you figure out how 'then... saved = False End Sub This way, you can send the email reports via code whenever you want, but if you forget to, it happens automagically when you close the spreadsheet. -- Their education has been sadly neglected. |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
I wrote:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) saved = True End Sub ....or alternately: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) saved = True If MsgBox("Generate email?", vbYesNoCancel) = vbYes Then generateEmail End Sub -- Playing war games with other people's lives... It should be *you* on the front line! |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
Hi Auric,
Am Wed, 27 Jul 2016 18:15:27 -0000 (UTC) schrieb Auric__: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) saved = True If MsgBox("Generate email?", vbYesNoCancel) = vbYes Then generateEmail End Sub it is a good idea to use a MsgBox. But it is also annoying when the MsgBox appears 600 times. Maybe it is better to put the code in the WorkBook_BeforeClose event. Regards Claus B. -- Windows10 Office 2016 |
|
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
Claus Busch wrote:
Hi Auric, Am Wed, 27 Jul 2016 18:15:27 -0000 (UTC) schrieb Auric__: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) saved = True If MsgBox("Generate email?", vbYesNoCancel) = vbYes Then generateEmail End Sub it is a good idea to use a MsgBox. But it is also annoying when the MsgBox appears 600 times. Maybe it is better to put the code in the WorkBook_BeforeClose event. The entire idea was to remind the user about the email and give them some way to decide whether or not to send the email. Feel free to suggest a better option. -- One doesn't discover new lands without consenting to lose sight of the shore for a very long time. -- Andre Gide |
|
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
On Wednesday, July 27, 2016 at 3:53:36 PM UTC-4, Claus Busch wrote:
Hi Auric, Am Wed, 27 Jul 2016 18:15:27 -0000 (UTC) schrieb Auric__: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) saved = True If MsgBox("Generate email?", vbYesNoCancel) = vbYes Then generateEmail End Sub it is a good idea to use a MsgBox. But it is also annoying when the MsgBox appears 600 times. Maybe it is better to put the code in the WorkBook_BeforeClose event. Regards Claus B. -- Windows10 Office 2016 I believe your option will work better Claus. But I could still use some help. This spreadsheet is used for listing new orders. The girl who enters the orders put a new order in the next available (empty) row on Sheet1. After she has done that, she hit's save so that she does not lose her work. It is at that point that I would like the workbook to alert other users. The other users (there are 3 or 4 of them) need to be alerted as soon as possible that a new order has been entered so that they can begin assembling product. They have been just opening the "neworders" workbook randomly to check to see if new data has been entered into the next available row. It would be more efficient if they received an email alert when she has put data into a new row, and saved. HOWEVER she also sometimes deletes completed rows and saves. I do not want the other users alerted at those times. Thoughts? Thank you, Paul |
|
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
Hi Paul,
Am Fri, 29 Jul 2016 10:35:00 -0700 (PDT) schrieb Paul Doucette: I believe your option will work better Claus. But I could still use some help. This spreadsheet is used for listing new orders. The girl who enters the orders put a new order in the next available (empty) row on Sheet1. After she has done that, she hit's save so that she does not lose her work. It is at that point that I would like the workbook to alert other users. The other users (there are 3 or 4 of them) need to be alerted as soon as possible that a new order has been entered so that they can begin assembling product. They have been just opening the "neworders" workbook randomly to check to see if new data has been entered into the next available row. It would be more efficient if they received an email alert when she has put data into a new row, and saved. HOWEVER she also sometimes deletes completed rows and saves. I do not want the other users alerted at those times. in which range the new order will be entered? Does she enter the new order from A on in each cell? Regards Claus B. -- Windows10 Office 2016 |
|
#10
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
HOWEVER she also sometimes deletes completed rows and saves. I do not
want the other users alerted at those times. Thoughts? I like Auric_'s idea using the MsgBox for this! (very K.I.S.S.) -- Garry Free usenet access at http://www.eternal-september.org Classic VB Users Regroup! comp.lang.basic.visual.misc microsoft.public.vb.general.discussion --- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus |
|
#11
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Email on save
On Wednesday, July 27, 2016 at 11:18:52 AM UTC-4, Paul Doucette wrote:
Is there a way I can set up my spreadsheet to send an email to alert others in my company that it has been updated, every time I save it? Thanks! Paul Thank you! That may be a better option! :-) Appreciate your time! -Paul |
|
#12
|
|||
|
|||
|
"I Loved You" is a single by British deep house duo Blonde featuring vocals from British singer Melissa Steel. The track uses interpolations of "More", a song from the album of the same name by Canadian singer Tamia. It was released through Parlophone on 30 November 2014 in the United Kingdom. The song has peaked at number 7 on the UK Singles Chart.
|
|
#13
|
|||
|
|||
|
CẦM CAVET XE GIÁ CAO NHẤT THỊ TRƯỜNG 0916556949
- Nh*n cầm xe máy , xe tay ga các loại...... Không cần giữ xe . - Cầm 70- 80% giá trị xe - Thủ tục nhanh gọn , không rườm r* , có tiền liền . - Không cầm xe gian, xe không ch*nh chủ, xe tháp. Điều Kiện : - Xe Ch*nh Chủ ,biển số Th*nh Phố Hồ Ch* Minh , Chứng minh nhân dân + hộ khẩu th*nh phố + 1 hóa đơn điện phải trùng địa chỉ với nhau mang lên để đối chiếu . - Người đi cầm phải l* chủ xe v* phải đi ch*nh chiếc xe. LH: 0914776949 |
|
#14
|
|||
|
|||
|
Chúc bạn một ng*y l*m việc hiệu quả.
|
|
#16
|
|||
|
|||
|
IN BÓNG BAY IN LOGO LÊN BÓNG BAY C* SỞ IN BÓNG BAY GIÁ RẺ 0967 877 586
Cơ sở bóng bay H* Nội phục vụ mọi nhu cầu tối đa của Quý Khách trong lĩnh vực quảng cáo thiết kế bóng bay, khinh kh* cầu, cổng hơi, trang tr* cổng bóng bay, bán bóng bay bơm hydro v* in ấn các loại. - In logo trên bóng bay; 0967 877 586 - Bán bóng bay bơm hydro ; 0967 877 586 - Bán v* bơm khinh kh* cầu 0967 877 586 - L*m v* trang tr* cổng bóng bay; 0967 877 586 - Bán cổng hơi có rồng v* không rồng các loại; 0967 877 586 - Bán que cầm bóng bay 0967 877 586 Niềm vui và sự hài lòng của Quý Khách là thành công lớn nhất của Cơ sở bóng bay H* Nội . Mọi chi tiết xin liên hệ: C* SỞ IN BÓNG BAY HÀ NÔI. Hotline: 0967 877 586 https://www.youtube.com/watch?v=5YR-L2I7FT8 https://www.youtube.com/watch?v=BNu-K3YXIgE http://indenhat.com/indenhat.html http://indenhat.com/new/70/1023/Bao-Gia-In-Logo-Len-Bong-Bay.html http://indenhat.com/new/70/1021/HUONG-DAN-DAT-IN-LOGO-LEN-BONG-BAY.html http://indenhat.com/new/74/1020/GIOI-THIEU-IN-DE-NHAT.html http://indenhat.com/new/70/1019/MAU-BONG-IN-LOGO-THUONG-HIEU.html http://indenhat.com/new/61/1017/In-bong-bay--In-logo-len-bong-bay--Xuong-in-bong-bay.html https://www.facebook.com/inbongbay.inlogobongbay.xuonginbongbay0967877586/ https://plus.google.com/+%C4%90%E1%BB%87Nh%E1%BA%A5tIn-chuy%C3%AAnthi%E1%BA%BFtk%E1%BA%BFin%E1%BA%A5ntr%C 3%AAnm%E1%BB%8Dich%E1%BA%A5tli%E1%BB%87u/posts/Zno8FuhDWao https://plus.google.com/+%C4%90%E1%BB%87Nh%E1%BA%A5tIn-chuy%C3%AAnthi%E1%BA%BFtk%E1%BA%BFin%E1%BA%A5ntr%C 3%AAnm%E1%BB%8Dich%E1%BA%A5tli%E1%BB%87u/posts |
|
#17
|
|||
|
|||
|
IN BÓNG BAY IN LOGO LÊN BÓNG BAY C* SỞ IN BÓNG BAY GIÁ RẺ 0967 877 586
Cơ sở bóng bay H* Nội phục vụ mọi nhu cầu tối đa của Quý Khách trong lĩnh vực quảng cáo thiết kế bóng bay, khinh kh* cầu, cổng hơi, trang tr* cổng bóng bay, bán bóng bay bơm hydro v* in ấn các loại. - In logo trên bóng bay; 0967 877 586 - Bán bóng bay bơm hydro ; 0967 877 586 - Bán v* bơm khinh kh* cầu 0967 877 586 - L*m v* trang tr* cổng bóng bay; 0967 877 586 - Bán cổng hơi có rồng v* không rồng các loại; 0967 877 586 - Bán que cầm bóng bay 0967 877 586 Niềm vui và sự hài lòng của Quý Khách là thành công lớn nhất của Cơ sở bóng bay H* Nội . Mọi chi tiết xin liên hệ: C* SỞ IN BÓNG BAY HÀ NÔI. Hotline: 0967 877 586 https://www.youtube.com/watch?v=5YR-L2I7FT8 https://www.youtube.com/watch?v=BNu-K3YXIgE http://indenhat.com/indenhat.html http://indenhat.com/new/70/1023/Bao-Gia-In-Logo-Len-Bong-Bay.html http://indenhat.com/new/70/1021/HUONG-DAN-DAT-IN-LOGO-LEN-BONG-BAY.html http://indenhat.com/new/74/1020/GIOI-THIEU-IN-DE-NHAT.html http://indenhat.com/new/70/1019/MAU-BONG-IN-LOGO-THUONG-HIEU.html http://indenhat.com/new/61/1017/In-bong-bay--In-logo-len-bong-bay--Xuong-in-bong-bay.html https://www.facebook.com/inbongbay.inlogobongbay.xuonginbongbay0967877586/ https://plus.google.com/+%C4%90%E1%BB%87Nh%E1%BA%A5tIn-chuy%C3%AAnthi%E1%BA%BFtk%E1%BA%BFin%E1%BA%A5ntr%C 3%AAnm%E1%BB%8Dich%E1%BA%A5tli%E1%BB%87u/posts/Zno8FuhDWao https://plus.google.com/+%C4%90%E1%BB%87Nh%E1%BA%A5tIn-chuy%C3%AAnthi%E1%BA%BFtk%E1%BA%BFin%E1%BA%A5ntr%C 3%AAnm%E1%BB%8Dich%E1%BA%A5tli%E1%BB%87u/posts |
|
#18
|
|||
|
|||
|
_________@@@@@@@@_____ _____@@@@@@____________ ___@@@@@@______________ __@@@@@@@_____________ ___@@@@@@______________ _____@@@@@@____________ _________@@@@@@@@_____ ___________________________ ______@@@@@@@@@_______ __@@@@@_______@@@@@__ _@@@@@_________@@@@@_ _@@@@@_________@@@@@_ _@@@@@_________@@@@@_ __@@@@@_______@@@@@__ ______@@@@@@@@@_______ ___________________________ ______@@@@@@@@@_______ __@@@@@_______@@@@@__ _@@@@@_________@@@@@_ _@@@@@_________@@@@@_ _@@@@@_________@@@@@_ __@@@@@_______@@@@@__ ______@@@@@@@@@_______ ________________________ __@@@@@@________________ __@@@@@@________________ __@@@@@@________________ __@@@@@@________________ __@@@@@@________________ __@@@@@@@@@@@@@@___ __@@@@@@@@@@@@@@___ __@@@@@@@@@@@@@@___.
|
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Send email from excel to notes - save email in sent folder | Excel Programming | |||
| save sheet as pdf and email it | Excel Programming | |||
| macros to save then email | Excel Programming | |||
| save and email button | Excel Programming | |||
| Email/Save/Macro | Excel Worksheet Functions | |||
Hybrid Mode
