Buat Pemberitahuan E-mel untuk Kemas Kini Lembaran Excel

Ketika bekerja pada rangkaian yang dikongsi, sangat biasa bagi banyak pekerja untuk mengakses dan menukar fail umum sepanjang hari. Artikel ini akan menjelaskan bagaimana untuk melaksanakan makro di Microsoft Excel yang akan menghantar e-mel automatik setiap kali perubahan dilakukan pada dokumen biasa.

Excel Macro untuk Perubahan Dokumen Isyarat

Anda boleh memprogram makro ini untuk menghantar e-mel kepada ahli pasukan tertentu untuk memaklumkan kepada mereka tentang perubahan pada fail rangkaian.

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