создание функции сценария vbs для отправки электронной почты с вложением
Я новичок в написании сценариев и создаю автоматизированную задачу в openoffice. У меня возникли проблемы с грубым базовым языком, но я нашел макрос Excel, написанный на vba, который делает то, что мне нужно, сейчас я пытаюсь преобразовать его в полезный vbscript. это может быть выполнено из командной строки с чем-то вроде email.vbs mailto subject filetoattach
Dim cdoMsg As New CDO.Message
With cdoMsg
With .Configuration.Fields
.Item(cdoSendUsingMethod).Value = cdoSendUsingPort
.Item(cdoSMTPUseSSL).Value = True
.Item(cdoSMTPServerPort).Value = 465
.Item(cdoSMTPServer).Value = "smtpserver"
.Item(cdoSendUserName).Value = "[email protected]"
.Item(cdoSendPassword).Value = "mypass"
.Item(cdoSMTPAuthenticate).Value = cdoBasic
.Update
End With
.From = "myemail"
.To = "emailto"
.Subject = "Some more really spiffy mail for you!"
.TextBody = "please find attachment"
.AddAttachment App.Path & "attachment"
On Error Resume Next
.Send
End With
If Err.Number <> 0 Then
MsgBox "CDO error " & Hex$(Err.Number) & vbNewLine & Err.Description, _
vbOKOnly Or vbExclamation, _
Caption
Else
MsgBox "Mail sent!", vbOKOnly, Caption
End If