[VBS] Script netjes maken

[Verwijderd]

Hello,

Ik het volgende script (heb het even simpel gehouden)

code:

Dim objMessage
Set objMessage = CreateObject("CDO.Message")

If (Hour(now) > 8 AND Hour(now) < 17) Then
        objMessage.Subject = "1"
        objMessage.Sender = ""
                 objMessage.From = ""
        objMessage.To = ""
        objMessage.TextBody = ""
        objMessage.Send

        End If
Else
    If (Hour(now) = 22) Then
        
                 objMessage.Subject = "2"
        objMessage.Sender = ""
                 objMessage.From = ""
        objMessage.To = ""
        objMessage.TextBody = ""
        objMessage.Send


    Else
          objMessage.Subject = "3"
        objMessage.Sender = ""
                 objMessage.From = ""
        objMessage.To = ""
        objMessage.TextBody = ""
        objMessage.Send

    End If

End If

Zoals je ziet wordt een email verstuurd afhankeling van de tijdstip.

Hoe is het mogelijk om de 3 verschillende e-mails in een object te zetten en vervolgens alleen een variable te hoeven aan roepen.

Dus in plaats van:
objMessage.Subject = "1"
objMessage.Sender = ""
objMessage.From = ""
objMessage.To = ""
objMessage.TextBody = ""
objMessage.Send

Alleen iets van sendMail_1

Kan dit in vbs?

[semicon]

of je doet het met een with

code:

With Object
         .eigenschap = ""
End With

[wizzkizz]

de code die je nu binnen je vergelijking dubbel hebt, kun je er buiten halen.
Je hoeft alleen je objMessage.Subject binnen de vergelijking te laten. Al het andere kun je er buiten halen.
Wel je .send pas opgeven na je vergelijking natuurlijk
Dat is de simpelste methode.

Een andere methode is met een subroutine werken.
Al je code voor het versturen van de email zet je in de sub, die je vervolgens aanroept met het gewenste onderwerp oid.

voorbeeldje:

Visual Basic:

If (Hour(now) > 8 AND Hour(now) < 17) Then
  sendMail ( "1" )
ElseIf (Hour(now) = 22) Then
  sendMail ( "2" )
Else
  sendMail ( "3" )
End If

Sub sendMail ( subject )
  '... maak het object enzo
  objMessage.Subject = subject
  '... Overige code
  objMessage.Send
End Sub

[ Voor 5% gewijzigd door wizzkizz op 07-03-2005 11:44 . Reden: Typo ]

[Verwijderd]

wizzkizz schreef op maandag 07 maart 2005 @ 11:41:
de code die je nu binnen je vergelijking dubbel hebt, kun je er buiten halen.
Je hoeft alleen je objMessage.Subject binnen de vergelijking te laten. Al het andere kun je er buiten halen.
Wel je .send pas opgeven na je vergelijking natuurlijk
Dat is de simpelste methode.

Een andere methode is met een subroutine werken.
Al je code voor het versturen van de email zet je in de sub, die je vervolgens aanroept met het gewenste onderwerp oid.

voorbeeldje:

Visual Basic:

If (Hour(now) > 8 AND Hour(now) < 17) Then
  sendMail ( "1" )
ElseIf (Hour(now) = 22) Then
  sendMail ( "2" )
Else
  sendMail ( "3" )
End If

Sub sendMail ( subject )
  '... maak het object enzo
  objMessage.Subject = subject
  '... Overige code
  objMessage.Send
End Sub

Thanks, Dat is precies wat ik wilde.

Ik snap dat laatste stuk alleen niet, kun je dat misschien ook in je voorbeeld zetten?

Dit stuk:

code:

 '... maak het object enzo
  objMessage.Subject = subject
  '... Overige code
  objMessage.Send

Waar moet ik precies de 3 verschilende objMessage.Subject zetten en hoe geef ik aan welke nr 1, 2 of 3 is.

bvd

[ Voor 14% gewijzigd door Verwijderd op 07-03-2005 11:57 ]

[wizzkizz]

Verwijderd schreef op maandag 07 maart 2005 @ 11:56:
Thanks, Dat is precies wat ik wilde.

Ik snap dat laatste stuk alleen niet, kun je dat misschien ook in je voorbeeld zetten?

Dit stuk:

code:

 '... maak het object enzo
  objMessage.Subject = subject
  '... Overige code
  objMessage.Send

Waar moet ik precies de 3 verschilende objMessage.Subject zetten en hoe geef ik aan welke nr 1, 2 of 3 is.

bvd

Je maakt gewoon 1 subroutine om e-mail te versturen. Door het argument wat je meegeeft aan de subroutine, wordt het onderwerp van de e-mail ingesteld.
Daarom zit de regel

Visual Basic:

objMessage.Subject=subject

erin. Deze regel zorgt ervoor dat het argument van de subroutine het onderwerp van de e-mail wordt.
Je moet het argument dus in je vergelijking instellen, niet in je subroutine.


P.S. nofi, maar is overigens beetje basiskennis hoor klik hier voor meer info over subroutines en functies

[Verwijderd]

Het wil maar niet lukken hoor.

Ik heb er zo iets van gemaakt, maat het is natuurlijk fout.

code:

Option explicit
Dim objMessage

Set objMessage = CreateObject("CDO.Message")
objMessage.Sender = ""
objMessage.From = ""
objMessage.To = ""

 If (Hour(now) > 8 AND Hour(now) < 17) Then
  sendMail1
ElseIf (Hour(now) = 22) Then
  sendMail2
Else
  sendMail3
End If

Sub sendMail1

objMessage.Subject = "1"
objMessage.TextBody = "1"
objMessage.Send
End Sub

Sub sendMail2

objMessage.Subject = "2"
objMessage.TextBody = "2"
objMessage.Send
End Sub

Sub sendMail3

objMessage.Subject = "3"
objMessage.TextBody = "3"
objMessage.Send
End Sub

Zou je me even kunnen helpen?

[ Voor 23% gewijzigd door Verwijderd op 07-03-2005 13:23 ]

[Verwijderd]

Kom op zeg... wizzkizz heeft het je gewoon voorgekauwd, en nog ga je het helemaal verkeerd aanpakken:

Visual Basic:

If (Hour(now) > 8 AND Hour(now) < 17) Then
  sendMail ( "1" )
ElseIf (Hour(now) = 22) Then
  sendMail ( "2" )
Else
  sendMail ( "3" )
End If

Sub sendMail ( subject )
   Set objMessage = CreateObject("CDO.Message")
   objMessage.Sender = ""
   objMessage.From = ""
   objMessage.To = ""
   objMessage.Subject = subject  ' hier komt dus 1,2 of 3 te staan omdat je de sub aanroept met "subject"
   objMessage.Send
End Sub

[ Voor 12% gewijzigd door Verwijderd op 07-03-2005 17:30 ]

[Michali]

Verwijderd schreef op maandag 07 maart 2005 @ 13:22:
Het wil maar niet lukken hoor.

Ik heb er zo iets van gemaakt, maat het is natuurlijk fout.

Ga anders even een tutorial lezen over wat een sub/method/functie nou precies is en hoe je het moet gebruiken. Ik denk je dat verder helpt dan hier nog een topic openen straks.

[wizzkizz]

ff miereneuke hoor

Verander

Visual Basic:

  Set objMessage = CreateObject("CDO.Message") 

liever in

Visual Basic:

  Set objMessage = Server.createObject("CDO.Message") 

[Verwijderd]

okay bedankt, het werkt.

Maar hoe zit het als ik nog een veld objMessage.TextBody = "" wil toevoegen? Dien ik dan een tweede sub aan te maken of kun de huidige sub aangepast worden?

[sopsop]

Omdat het over netjes maken gaat:

Aangezien er bij de declaratie van het object van een soort naming convention gebruik wordt gemaakt, namelijk "soort variable + variabele naam", een object genaamd message, dus:

Visual Basic:

Dim objMessage

Dan zou dat bij de declaratie van de sub ook zo moeten:

Visual Basic:

Sub sendMail ( sSubject )

Zo zie je meteen dat het een string is (de eerste 's' staat voor string). Zeker bij VBS is dat noodzaak omdat de variabelen bij declaratie geen Type meekrijgen.

En over de vraag van de TS:

Visual Basic:

Sub sendMail ( sSubject, sMailBody )

En de rest kan je dan zelf wel uitzoeken neem ik aan.

[ Voor 4% gewijzigd door sopsop op 08-03-2005 10:42 ]