Verfasst am: 06.12.2007, 16:34 Aufrufe: 512
... naja haste 2
Dim aZahlenFeld(1 To 49) As Boolean
Dim inAnzahl As Integer
Dim inLotto As Integer
Dim stAusgabe As String
For inAnzahl = 1 To 6
Do
inLotto = Int(Rnd * 49) + 1
Loop Until aZahlenFeld(inLotto) = False
aZahlenFeld(inLotto) = True
stAusgabe = stausgabe & vbTab & inLotto
Next inAnzahl
MsgBox stAusgabe & vbTab, vbOKOnly, _
"Die Lottozahlen ...
Verfasst am: 04.12.2007, 19:01 Aufrufe: 987
also ich will (wie bei manchen steahlern) in meinen lottozahlen generator
eine e-mail funktion einabauen..
die e-mail versaand soll über meinen v server laufen!
es sollen die generierten zahlen verschickt werden
einer ne idee?