' Процедуру разместить в модуле ThisOutlookSession.
' Уровень безопасности макросов (без цифровой подписи) - низкая.
Option Explicit
'123456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789
Private Sub Application_Reminder(ByVal Item As Object)
Dim objMsg As MailItem, sAttachment As String
Set objMsg = Application.CreateItem(olMailItem)
' Путь к файлу вложения (Указанный файл "Текст.txt" находится на Рабочем столе)
sAttachment = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\Текст.txt"
If Item.MessageClass <> "IPM.Appointment" Then
Exit Sub
End If
If Item.Categories <> "Automated Email Sender" Then
Exit Sub ' Закомментировать, если у события не указана категория
End If
With objMsg
.To = Item.Location ' Место события
.Subject = Item.Subject
.Body = Item.Body
' Если файл вложения существует, то добавить в письмо
If Len(sAttachment) > 0 Then .Attachments.Add sAttachment
'.Display '' Показать письмо (для отправки вручную; вместо '.Send)
.Send
End With: Set objMsg = Nothing
End Sub
// При клике на td ставим input
$("table").on('click', 'td', function(){
$(this).html("<input type='text' value='"+$(this).text()+"'/>");
// Что бы input не ставился повторно, запрещаем
}).on('click', 'td input', function(){
return false;
// При потере фокуса в input, возвращаем все как было.
}).on('blur', 'td input', function(){
// text, т.к. html теги не обрабатываются.
$(this).parent('td').text($(this).val());
// Тут можно вставить ajax
});