Excel - Dikemukakan melalui pos apabila buku kerja dikongsi dikemas kini

Isu

Saya mempunyai buku kerja Excel yang disimpan pada pemacu rangkaian dan digunakan oleh berbilang pengguna. Saya memerlukan makro yang akan menghantar pemberitahuan (melalui pos) setiap kali seseorang mengemas kini helaian Excel. Bagaimanakah ia dapat dilaksanakan?

Penyelesaian

Makro ini secara automatik akan menghantar e-mel ke alamat / alamat mana saja apabila buku kerja disimpan:

Private Sub Workbook_BeforeSave (ByVal SaveAsUI As Boolean, _

Batalkan Sebagai Boolean)

Dim answer Sebagai String

jawapan = MsgBox ("Ini adalah tempat anda meletakkan teks untuk meminta pengguna jika dia mahu menyimpan atau tidak" vbYesNo, "di sini adalah judul kotak itu")

Jika jawapan = vbNo Kemudian Batal = Benar

Jika jawapan = vbYes Kemudian

'jenis pandangan terbuka jenis

Tetapkan OutlookApp = CreateObject ("Outlook.Application")

Tetapkan OlObjects = OutlookApp.GetNamespace ("MAPI")

Tetapkan newmsg = OutlookApp.CreateItem (olMailItem)

'tambahkan penerima

'newmsg.Recipients.Add ("Name Here")

newmsg.Recipients.Add (" ")

'tambahkan subjek

newmsg.Subject = " Barisan subjek e-mel auto di sini "

'tambahkan badan