23 lines
685 B
Plaintext
23 lines
685 B
Plaintext
'VBScript code:
|
|
Function EnviarCorreo()
|
|
With CreateObject("CDO.Message")
|
|
.Subject = "Mail subject"
|
|
.From = "your_mail@domain.com"
|
|
.To = "recipient@domain.com"
|
|
.TextBody = "This is the body of the email."
|
|
|
|
.Configuration.Fields.Item _
|
|
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
|
|
|
|
.Configuration.Fields.Item _
|
|
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
|
|
"smtp.dominio.com"
|
|
|
|
.Configuration.Fields.Item _
|
|
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
|
|
|
|
.Configuration.Fields.Update
|
|
.Send
|
|
End With
|
|
End Function
|