MAIL MET VBScript

Auteur: sybo - 21 oktober 2004 - 10:00 - Gekeurd door: Dennisvb - Hits: 7133 - Aantal punten: 0.50 (1 stem)

Met deze script kan je naar believen mailen.
De volgende configuraties zijn nodig als je mail via een smtp-server gaat. Wat meestal toch het geval is.
Eerst het aantal configuratie-velden declaren.
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
De smpt-server locatie opgeven(ip-adres of naam van server)
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"mail.somewhere.com"
De poort die gebruikt wordt om het mail-verkeer te verzenden(default = 25)
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
De configuratie updaten.
objEmail.Configuration.Fields.Update

Code:

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test@somewhere.com"
objEmail.To = "someone@somewhere.com"
objEmail.Subject = "Test 1"
objEmail.Textbody = "Dit is een test."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"mail.somewhere.com"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
'* Toevoegen van een attachment kan met de volgende prefixen
'* file://, ftp://, http://, and https://. De default prefix is file://.
'* De default voor MimeFormatted is True
objEmail.MimeFormatted = True
objEmail.AddAttachment ("C:\test.txt")
objEmail.Send

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Lees de reacties (1)