home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 1999 November / PCW9911.BIN / sharewar / prx / wscripts / Sendmail.exe / SendMail.vbs
Encoding:
Text File  |  1999-08-11  |  1.5 KB  |  42 lines
  1. Set fs = CreateObject("Scripting.FileSystemObject")     'Dateisystem
  2. Set Mail = CreateObject("Persits.MailSender")        'Email-Versand
  3. Set args = WScript.Arguments                            'gedroppte Argumente
  4. testdatei=WScript.Arguments.Item(0)
  5.  
  6. Mail.Host = "MeinMailServer"                            'SMTP-Mailserver
  7. Mail.From = "James.Bond@007.com"                        'Email-Absender
  8. Mail.AddReplyTo "James.Bond@007.com"
  9. Mail.Subject = "Testmail"
  10. Mail.FromName = "James Bond"                            'Absender-Name
  11.  
  12. Dim Adresse (2)
  13. Adresse(0)="dd@entenhausen.de"
  14. Adresse(1)="DoDa@entenhausen.com"
  15. Adresse(2)="redaktion@pcwelt.de"
  16.  
  17. For i = 0 to UBound(Adresse)
  18.   Liste=Liste+"("+CStr(i)+") "+Adresse(i)+vbCr
  19. Next
  20.  
  21. Liste = Liste +"Bitte wΣhlen Sie eine Option [0-"+CStr(UBound(Adresse))+"]"
  22. Input = InputBox(Liste) 
  23. If Input <>"" Then
  24.    If CInt(Input)>=0 AND CInt(Input)<=UBound(Adresse) Then
  25.  
  26.     Mail.AddAddress Adresse(Input)
  27.     Mail.Subject = testdatei
  28.     Mail.AddAttachment testdatei
  29.     On Error Resume Next            ' Fehler beim Versenden abfangen
  30.     Mail.Send                    ' Email absenden
  31.     If Err <> 0 Then            ' Fehler! Ursache ausgeben
  32.            meldung = "Email konnte nicht versendet werden: " & Err.Description
  33.            MsgBox meldung, vbExclamation
  34.         Else
  35.            meldung = "Die Datei " + fs.GetBaseName(zipdatei) + " wurde abgeschickt!"
  36.            MsgBox meldung, vbInformation
  37.         End if
  38.    Else
  39.         MsgBox ("Die Eingabe muss zwischen 0 und "+CStr(UBound(Adresse))+" liegen")
  40.    End if
  41. End If
  42.