Hallo,
ik ben op zoek naar een WSHscript (dus in VB) waarmee automatisch een file als attachment kan doorsturen naar een bepaalde ontvanger.
De bedoeling is gewoon de file via de 'send to' functie laten vertrekken.
Deze moet ook als het kan geencrypteerd verzonden worden.
Hierbij stuur ik al de code door die ik tot nu toe al heb geschreven.
Het werkt zonder problemen om zo een file door te sturen als ik een naam van het bestand ingeef in de inputbox maar ik wil gewoon een stapje verder automatiseren.
Wie is zo vriendelijk om me verder te helpen
?
ik ben op zoek naar een WSHscript (dus in VB) waarmee automatisch een file als attachment kan doorsturen naar een bepaalde ontvanger.
De bedoeling is gewoon de file via de 'send to' functie laten vertrekken.
Deze moet ook als het kan geencrypteerd verzonden worden.
Hierbij stuur ik al de code door die ik tot nu toe al heb geschreven.
Het werkt zonder problemen om zo een file door te sturen als ik een naam van het bestand ingeef in de inputbox maar ik wil gewoon een stapje verder automatiseren.
Wie is zo vriendelijk om me verder te helpen
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Dim file
file = InputBox("Enter bestandsnaam:")
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "afzender@afzender.be"
objEmail.To = "ontvanger@ontvanger.be"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"adres van server"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.AddAttachment "c:\test\" & file
objEmail.Send |