Как создать кнопку в VBA, чтобы добавить в Outlook Mailitem?

Question

Я пытаюсь создать кнопку в VBA, используя объект MSHTML, а затем добавить его в почтовый элемент Outlook, а затем опубликовать почтовый элемент на веб-сайте с помощью API WordPress. Я могу сделать большую часть этой работы, но я не могу понять, как использовать объект для создания элемента кнопки, а не просто создать его из строк, что является большим путаницей.

Это форма, которую я хочу создать:

<form>
    <input style="width: 300px; padding: 20px; cursor: pointer; box-shadow: 6px 6px 5px; #999; -webkit-box-shadow: 6px 6px 5px #999; -moz-box-shadow: 6px 6px 5px #999; font-weight: bold; background: #ffff00; color: #000; border-radius: 10px; border: 1px solid #999; font-size: 150%;" type="button" value="Put Your Text Here" onclick="window.location.href='http://www.hyperlinkcode.com/button-links.php'" />
</form>

Вот как я пытаюсь это сделать:

Dim httpContent As MSHTML.HTMLDocument
Dim httpForm As MSHTML.HTMLFormElement
Set httpContent = New MSHTML.HTMLDocument
Set httpForm = httpContent.createElement("form")
httpForm.Action = "http://www.hyperlinkcode.com/button-links.php"
httpForm.value = "Put Your Text Here" 
httpForm.name = "call to action" 
With httpForm  'the following is almost right
  .setAttribute "width", 500
  .setAttribute "padding", 20
  .setAttribute "box-shadow", 6
  .setAttribute "-webkit-box-shadow", 6
  .setAttribute "-moz-box-shadow", 20
  .setAttribute "font-weight", "bold"
  .setAttribute "background", "#ffff00"
  .setAttribute "border-radius", 10
  .setAttribute "border", 1
  .setAttribute "font-size", 150
End With

httpButton.onclick = "window.location.href='http://www.hyperlinkcode.com/button-links.php'"
httpContent.appendChild httpButton    

Большая часть вышеперечисленного выполняется, но, кажется, нет никакой связи между нажатием кнопки и переходом на сайт.