Sende mail

Set ArgObj = WScript.Arguments
fname = InputBox("Tast filnavn (ordrenummer)")
dest = InputBox("Tast modtagers E-mail adresse")
sender = InputBox("Tast afsenders E-mail adresse")

'Omdøb filen til tilbudsnummer.pdf
Set fs = CreateObject("Scripting.FileSystemObject")
nfil = fs.GetParentFolderName(ArgObj(0)) & "\" & fname & ".pdf"
fs.MoveFile ArgObj(0), nfil

'Send E-Mail med tilbud
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Tilbud #" & fname
objMessage.From = sender
objMessage.To = dest
objMessage.TextBody = "Se venligst vedhæftede PDF fil."
objMessage.AddAttachment nfil

objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1.2"
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update

objMessage.Send

fs.GetFile(nfil).Delete