Хорошо, я сделал снимок в этом. Есть два шага - написание сценария и затем создание правила для выполнения сценария.
Первая часть
Нажмите Alt + F11, чтобы вызвать редактор VBA. Щелкните правой кнопкой мыши на insert - module
. Вставьте приведенный ниже код в модуль и перейдите к debug - compile project
Private Sub myOlItems_ItemAdd(ByVal Item As Object)
End Sub
Sub AutoResponse(objmsg As Outlook.MailItem)
' define my reply message
Dim objReply As MailItem
' let's get ourselves the inbox!
Dim inbox As MAPIFolder
Set inbox = Application.GetNamespace("MAPI"). _
GetDefaultFolder(olFolderInbox)
' Let's get this reply going!
Set objReply = objmsg.Reply
' Subject Re: their subject. Standard
objReply.Subject = "Re: " & objReply.Subject
' Body - you define this, use the variable for the unread count in inbox
objReply.Body = "Your email has been received. I currently have " & inbox.UnReadItemCount & " unread emails in my inbox and I will get yours as soon as I can"
' Send this thing!
objReply.Send
' Reset
Set objReply = Nothing
End Sub
Вторая часть
Теперь мы идем к правилам. Вы не указываете, какой у вас внешний вид, поэтому я делаю это в Outlook 2010:
1. home - rules - create rule - advanced options
2. Выберите ваше первое условие. Если вы хотите сделать это для всей электронной почты, напишите что-то вроде emails sent only to me
или укажите where my name is in the to box
... или выберите ничего, чтобы оно относилось к каждому полученному вами сообщению
3. Нажмите Next и прокрутите вниз и выберите run a script
4. Нажмите на ссылку для скрипта и выберите project1.autoresponse
или как вы его назвали. Должен быть единственным доступным для вас сценарием. Теперь нажмите ОК
5. Теперь нажмите финиш и ОК
Примечания к первой части
Вы можете изменить сообщение objreply.body
в соответствии с вашими потребностями, просто inxbox.unreaditemcount
между вашими сообщениями. Кроме того, вы можете изменить объект objreply.subject, если вы хотите указать другой предмет, например, «подтверждение по электронной почте» или что-то еще.
Последний заголовок
Это работает для меня, посылая мне письма. Он может предупредить вас, что он может быть локальным, только если вы на обмене, это нормально. Также возможно, что если вы - супермен электронной почты , он будет работать так же, как электронные письма, как саранча, но мы мало что можем с этим поделать. Предполагая, что вы не получаете постоянно более 1 электронного письма каждые 10 секунд, все будет в порядке. Тем не менее, вы можете добавить оператор if, если он поступит от вас, не отвечаете, или вы попадете в цикл.