Public Sub CreateNewMessage()
Dim objMsg As MailItem
Set objMsg = Application.CreateItem(olMailItem)
With objMsg
.To = "example@example.com"
.Subject = "This is the subject"
.BodyFormat = olFormatPlain
.Send
End With
Set objMsg = Nothing
End Sub
var page = require('webpage').create();
page.open('http://example.com', function(status) {
console.log("Status: " + status);
if (status === 'success') {
var value = page.evaluate(function() {
return document.getElementById("result").textContent;
});
console.log('Value is ' + value);
}
phantom.exit();
});
if (double.IsInfinity(denominator))
{
//
}
- В первый раз, когда открывал через Alt-F11 - не ругался, после перезапуска Outlook начал ругаться, пришлось включить макросы на вкладке "Параметры макросов".