Excel - 共有ブックが更新されたときにメールで通知される
問題
Excelワークブックをネットワークドライブに保存し、複数のユーザーが使用しています。 誰かがExcelシートを更新するたびに通知を(メールで)送信するマクロが必要です。 これはどのように実装できますか?溶液
このマクロはワークブックが保存されるときはいつでも自動的にどんなアドレスにでも電子メールを送ります:Private Sub Workbook_BeforeSave(ByVal SaveAsUIをブール値として、_ブール値としてキャンセル)
文字列として薄暗い答え
answer = MsgBox( "ユーザーが保存するかどうかをユーザーに確認するテキストを入力する場所です" vbYesNo、 "ここにそのボックスのタイトルがあります")
回答= vbNoの場合キャンセル=真
答え= vbYesの場合
'オープン見通し型のもの
OutlookApp = CreateObject( "Outlook.Application")を設定します。
OlObjects = OutlookApp.GetNamespace( "MAPI")に設定します。
newmsg = OutlookApp.CreateItem(olMailItem)を設定します。
'受信者を追加
'newmsg.Recipients.Add( "ここに名前")
newmsg.Recipients.Add( " ")
'件名を追加
newmsg.Subject = " 自動電子メールの件名はこちら "
'ボディを追加
newmsg.Body = "ここに自動メールの本文"
newmsg.Displayの表示
newmsg.Send 'メッセージ送信
'送信メッセージを確認する
MsgBox「確認ボックステストをここに挿入」、「確認ボックスのタイトル」
終了の場合
'文書を保存します
'Me.Worksheets.Save
終了サブ
このヒントをくれたshark2000brに感謝します。