VBS scripting: via sento een mail met attachment sturen

[stdewi]

Hallo,

Wie wil me helpen met een afwerken van mijn script ? Het zit namelijk zo.
Ik moet op regematige basis een file aanmaken en doormailen naar een bepaalde adres.
Zelf ben ik al redelijk ver geraakt in mijn coderen maar heb nog alleen moeite om drag and drop in mijn script in te steken.

Hierbij mijn code die ik tot nu toe al heb gemaakt en die het ook doet.

Dim file
file = InputBox("Enter bestandsnaam:")

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[e-mail]"
objEmail.To = "[e-mail]"
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

Wie is zo vriendelijk om me verder te helpen ??
Dank bij voorbaat !

Groeten

S.

[Brahiewahiewa]

Kwenie hoor, ik zou er voor zorgen dat er "Send to huppelup" in het context menu komt te staan.
Van drag&drop krijg ik altijd zo'n kramp in m'n vingers

[RobIII]

Kan iemand effe...? Kijk even in onze Programming Beleid Quickstart als je wil weten hoe we hier wél graag een topic zien. En als je code post, gebruik dan code tags

P.s. Wij tweakers doen elkaar permanent de groeten

[ Voor 75% gewijzigd door RobIII op 18-10-2007 13:32 ]