[VBS] Mail sturen vanuit script

[cyclone]

Hoi, ben pas bezig met VBS en ik hoop dat ik hier het goede forum te pakken heb.
Maar alsvolgd, ik wil met standaard VBS objecten een mail via een SMTP server sturen.
Iemand die me hier mee kan helpen ( een stukje example source heeft)
Komt er hier op neer .. ik wil een stukje output welke in een VBS script gegenereerd wordt naar mezelf toemailen.

Op het net kom ik eigenlijk alleen maar virus spullen tegen als ik op E mail en VBS zoek, vandaar mijn toevlugt naar hier.

[rashnu]

'**************************************
' Name: Send email from script
' Description:Send email from script wit
' hout using Outlook.
' By: T Runstein
'
'
' Inputs:None
'
' Returns:None
'
'Assumes:Server (or machine running scri
' pt) must have CDONTS. This is super simp
' le and is being provided so that people
' using my previous script that uses Outlo
' ok have an alternative.
'
'Side Effects:None
'This code is copyrighted and has limite
' d warranties.
'Please see http://www.Planet-Source-Cod
' e.com/xq/ASP/txtCodeId.7034/lngWId.4/qx/
' vb/scripts/ShowCode.htm
'for details.
'**************************************

'***************************************
' *'
'**'
'* SendMail.vbs*'
'**'
'* Purpose: Simple example of using*'
'*CDONTS for sending mail*'
'**'
'***************************************
' *'
on error resume next
'Global Variables
Const g_MAIL_GROUP = "[e-mail]" 'Separate multiple addresses with semicolon
Const g_CC_GROUP = "" 'Place CC Addresses here
Const g_FROM = "your address here"
Const g_SUBJECT = "Code Review"
dim g_strResults

g_strResults = "I saw your code and it ROCKS!"
SendMessage
Sub SendMessage()
on error resume next
Dim objSend
set objSend = CreateObject("CDONTS.NewMail")
'Use Server.CreateObject("CDONTS.NewMail") for ASP scripts
if err.number <> 0 then
msgbox "Error trying to send message " & err.number & " " & err.description
Exit sub
end if
with objSend
.From = g_FROM
.To = g_MAIL_GROUP
if not g_CC_GROUP = "" then
.CC = g_CC_GROUP
end if
.Subject = g_SUBJECT
.Body = g_strResults

.Send
end with
if err.number <> 0 then
msgbox "Error using vbSendMail"
exit sub
end if
set objSend = nothing
End sub


Het is niet van mij maar kwam dit gister tegen op Planetsourcecode.com

[D2k]

Hoi,
deze thread gaat dicht
Dit is wat wij noemen een scriptrequest en die mogen hier niet.
P&W is gericht op het zelf maken van dingen en in het oplossen van problemen die daarbij kunnen ontstaan.
Kijk bijvoorbeeld eens op www.hotscripts.com of in de P&W faq.
Zie voor discussies: [topic=411717/1/25]