Archief - [PROG] Automatisch een mail laten versturen via VBScript

ShPonGle · 6 dec 2007

heb volgend script:

Private Sub MessageMailer()
Dim msg As New MailMessage()
Dim mailsrv As SmtpMail

msg.BodyFormat = MailFormat.Text
msg.Priority = High
msg.From = "[email protected]"
msg.To = "[email protected]" '
msg.Subject = "testmailtje"

msg.Body = "Dit is een test van een E-mailer " & vbCrLf
msg.Body &= "Groene Test " & vbCrLf & _
"Blauwe Test " & vbCrLf

'Voeg een attachment toe aan je e-mail.
'Zorg voor het volledige pad, anders treedt een error op

msg.Attachments.Add(New System.Web.Mail.MailAttachment(c:/test.txt))

mailsrv.SmtpServer = "relay.skynet.be" 'Dit is je mailserver
mailsrv.Send(msg)
msg = Nothing
End Sub

Maar dat werkt helaas niet

geeft een error op line 2 , teken 13, mr wat is er mis aan New Mailmessage?
iemand die dit weet of een werkend vbscript heeft?

Obliv` · 7 dec 2007

VBScript is geen .NET he. Je kan dus niet de klassen als MailMessage en dergelijke gebruiken. Btw, als je mailt in .NET gebruik dan de nieuwe klassen uit System.Net.Mail en niet die van System.Web.Mail.

In VBScript mail je normaal met behulp van CDO, CDONTS of Persits.Mail. In dat laatste geval moet je die component soms wel installeren op de server denk ik.

In VBScript zal een mailscript er ongeveer zo uit zien:

Code:

Sub SendEmail(from, to, subject, message)
	Dim mailConfig, mail
	
	Set mailConfig = Server.CreateObject("Cdo.Configuration")
	
	With mailConfig
		.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
		.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
		.Fields.Update
	End With
	
	Set mail = Server.CreateObject("Cdo.Message")
	Set mail.Configuration = mailConfig
	
	With mail
		.From = from
		.To = to
		.Cc = ""
		.Bcc = ""
		.Subject = subject
		.HtmlBody = message
		.Send
	End With
	
	Set mail = Nothing
	Set mailConfig = Nothing
End Sub

De functie oproepen zal zo zijn:

Code:

Call SendEmail("[email protected]", "[email protected]", "Onderwerp", "Body")

ShPonGle · 8 dec 2007

thx vr reply - helaas, ik geraak er niet aan uit wat ik nu juist moet doen met dat script

Obliv` · 9 dec 2007

ShPonGle zei:
thx vr reply - helaas, ik geraak er niet aan uit wat ik nu juist moet doen met dat script

Dan zal je misschien eens door de VBScript/ASP tutorial op w3schools.com moeten gaan.

Archief - [PROG] Automatisch een mail laten versturen via VBScript

ShPonGle

Legacy Member

Obliv`

Legacy Member

ShPonGle

Legacy Member

Obliv`

Legacy Member