У меня есть следующий код, где я могу отправлять почту через настроенный внешний вид.
Я могу запустить этот VBS, используя правило в моем Outlook, которое, в свою очередь, отправляет почту на адрес электронной почты, указанный в сценарии
Но я получаю окно с запросом вируса или нет при запуске этого скрипта для отправки почты.
Как избавиться от этого поля подтверждения, чтобы всегда разрешать отправлять письма.
Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment
Dim ol, ns, newMail
ToAddress = "John.Smith@place.com" ' change this...
MessageSubject = "My Subject"
MessageBody = "DATA"
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon "","",true,false
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf
' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
MsgBox "unknown recipient"
Else
newMail.Recipients.Add(myRecipient)
newMail.Send
End If
Set ol = Nothing