mailscript in Visual Basic maken hoe???

[Papi14]

Hallo, allemaal

ik wou graag een mail-script maken met een visual basic script (vbs)
weet iemand of dit kan of hoe het moet

en dan vroeg ik me af kan ik dan ook nog een mail versturen met bijlage?????

alvast,bedankt

 

[edmoor]

Dat kan o.a. met gebruik van het CDO object. Kijk hier voor uitleg en voorbeelden:
http://www.paulsadowski.com/wsh/cdo.htm

 

[Papi14]

ik krijg een foutmelding bij dit script

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = "me@my.com" 
objMessage.To = "papillon.boddeke@gmail.com" 
objMessage.TextBody = "This is some sample message text." 
objMessage.AddAttachment "C:\Users\Papillon\Desktop\bestand.txt"
objMessage.Send

als ik dit uitvoer krijg ik

fout: De configuratiewaarde "SendUsing" is ongeldig
regel: 7
teken 1

??????????

 

[dnties]

Tsja, je zult toch ook moeten aangeven via welk mechanisme je het mailtje wilt versturen... (=sendusing)
en ook via welke SMTP-server (=smtpserver) als je sendusing op 2 gezet hebt.

Je hebt die link van Edmoor dus niet volledig doorgenomen, want het staat er wél in...
Voor gebruik van een SMTP server gebruik je sendusing met de waarde 2.

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.myserver.com"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

Er staan nog meer scenario's in, bijv. als je je eerst moet authenticeren (dus als je niet anoniem mail kunt versturen via de door jou aangegeven te gebruiken SMTP-server) etc.

 

[edmoor]

Zo weet CDO niet wat de mail server is en die moet je dan meegeven.

Set Mail = CreateObject("CDO.Message")

Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="gebruiker@gmail.com"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="JeGMAILwachtwoord"

Mail.Configuration.Fields.Update

Mail.Subject="Email onderwerp"
Mail.From="Je GMAIL adres"
Mail.To="papillon.boddeke@gmail.com"
Mail.TextBody="Dit is de tekst in het bericht"
Mail.AddAttachment "C:\Users\Papillon\Desktop\bestand.txt"

Mail.Send
Set Mail = Nothing

Edit:
dnties was me voor

 

[Papi14]

het is gelukt thanks :d

 

[Papi14]

kan ik ook meerdere bestanden toevoegen als bijlage??????

 

[edmoor]

Je hebt nu dit:
Mail.AddAttachment "C:\Users\Papillon\Desktop\bestand.txt"

Voeg er gewoon zo'n regel aan toe met een andere bestandsnaam. Dus:
Mail.AddAttachment "C:\Users\Papillon\Desktop\bestand2.txt"

Hou er wel rekening mee dat bestanden die als bedreigend worden aangemerkt door de GMAIL server worden geweigerd. En bedoel ik bestanden als .bat, .exe en dat soort dingen dus.
Bestanden die mogelijk uitvoerbare code kunnen bevatten zullen worden geweigerd en krijg je een foutmelding op.

En 1 vraagteken is voldoende hoor