23-01-2018 08:20 Never » Отсылка письма через outlook
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
Группы: [ VBS ] [ Windows ]

Ваш комментарий:
Гость []
[смайлики сайта]
Автоматическое распознавание URL
Не преобразовывать смайлики
Cкрыть комментарий (виден автору записи)
Закрыть