strUserName = InputBox("Введите почтовый адрес","Окно ввода почты")
if (strUserName<>"") then
strTextToCB = "Этот текст засунем в буфер"
CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & StrTextToCB & "');close();""", 2
strHomeFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Set OutlookObject = CreateObject("Outlook.Application")
Set OutMail = OutlookObject.CreateItem(0)
With OutMail
.to = strUserName
.Subject = "Тема письма"
.Attachments.Add(strHomeFolder & "\Папка\Картинка.png")
.HTMLBody = "<body>" & _
"<font size=""4"" face=""Arial"">" & _
"Данное письмо сгененрировано автоматически, просьба не отвечать на него" & "<br> <br> <br>" & _
"Данный текст отсылается в теле письма в формате html" & "<br>" & _
"Картинка приаттачивается автоматом" & _
"<img src=Citrix_Receiver_001.png" & "<br>" & _
"</font>" & _
"</body>"
.Send
End With
end if