2 spm

Hej.
Jeg har en kode:

Dim lav, hoj, num
Private Sub Command1_Click()
lav = 1000 '
hoj = 100000 '
num = Int(Rnd * (hoj - lav + 1)) + lav
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "******@**********.**"
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = Navn.Text & " vil gerne bestille noget."
MAPIMessages1.MsgNoteText = "Navn: " & Navn.Text & vbNewLine & "Adresse: " & Adresse.Text & vbNewLine & "Postnr.: " & postnr.Text & vbNewLine & "By: " & by.Text & vbNewLine & "Telefon-nummer: " & Telefon.Text & vbNewLine & "E-mail: " & email.Text & vbNewLine & "Vare: " & Combo1(0).List(Index) & vbNewLine & "Personlig kode: " & num
MAPIMessages1.Send
'-----------------------------------------------
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.Show
MAPIMessages1.RecipAddress = email.Text
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = "Tak for din bestilling"
MAPIMessages1.MsgNoteText = "Hej " & Navn.Text & ", og tak for din bestilling. Din personlige kode er " & num & ". Den skal du sende til **********@*************.**."
MAPIMessages1.Send
MAPISession1.SignOff
Form2.Show
Unload Me
End Sub

Private Sub Form_Load()
Combo1(0).AddItem "Test-vare, 0 dkr."
Combo1(0).AddItem "Test-vare2, 0 dkr."
Combo1(0).AddItem "Test-vare3, 0 dkr."
End Sub

Der er to ting, den gør, som den ikke skal gøre...

1) Den åbner adresselisten fra outlook express når man trykker på knappen.
2) den vælger ALTID nr. 70849 - og det skal den ikke. Den skal også vælge andre tal.

/Rasmus