1
私は設定された見通しでメールを送ることができる次のコードを持っています。 私の見通し内のルールを使ってこのvbsを実行すると、スクリプトで指定された電子メールにメールを送信することができます。確認ボックスを削除vbsスクリプト
しかし、このスクリプトを実行してメールを送信する確認ボックスが表示されます。
この確認ボックスを削除して常にメールを送信する方法。
Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment
Dim ol, ns, newMail
ToAddress = "[email protected]" ' 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