Hej!
Jag har ett litet problem som jag inte fixar själv och
undrar om någon har lust att hjälpa en newbie!

Tanken är att man utifrån chkboxar kan välja vilka man
vill skicka email till.Kruxet är att om man inte väljer
chkbox 1 så läggs semikolonet till framför email-
adressen å då funkar det inte. Är chkbox1 ikryssad
så funkar allt som det ska.

With frmskrivut.MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.MsgIndex = -1
If chkbox(0) = 1 Then
stremail(0) = strgcd(9)
ii = ii + 1
.RecipIndex = ii
.RecipAddress = stremail(0)
Else
End If
If chkbox(1) = 1 Then
stremail(1) = strgcd(18)
ii = ii + 1
.RecipIndex = ii
.RecipAddress = stremail(1)
Else
End If
If chkbox(2) = 1 Then
stremail(2) = strgcd(27)
ii = ii + 1
.RecipIndex = ii
.RecipAddress = stremail(2)
Else
End If
If chkbox(3) = 1 Then
stremail(3) = strgcd(36)
ii = ii + 1
.RecipIndex = ii
.RecipAddress = stremail(3)
Else
End If
If chkbox(4) = 1 Then
stremail(4) = strgcd(45)
ii = ii + 1
.RecipIndex = ii
.RecipAddress = stremail(4)
Else
End If
If chkbox(5) = 1 Then
stremail(5) = strgcd(54)
ii = ii + 1
.RecipIndex = ii
.RecipAddress = stremail(5)
Else
End If
If chkbox(6) = 1 Then
stremail(6) = strgcd(63)
ii = ii + 1
.RecipIndex = ii
.RecipAddress = stremail(6)
Else
End If
If chkbox(7) = 1 Then
stremail(7) = strgcd(72)
ii = ii + 1
.RecipIndex = ii
.RecipAddress = stremail(7)
Else
End If
.MsgSubject = "Hallo hej!!"
.MsgNoteText = "Bla Bla!!"
.AttachmentPathName = App.Path & "\data\dokument.doc"
.Send
End With

MVH Per

Testa med denn kod:
<code>
With frmskrivut.MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.MsgIndex = -1
ii = 0 'Nollställ räknaren
For i = 0 To 7
If chkbox(i) = 1 Then
stremail(i) = strgcd(9*i+9)
.RecipIndex = ii
.RecipAddress = stremail(i)
ii = ii + 1 'Flyttade ner ökningen av variabeln, så att den
End If 'ska ha värdet 0 vid första loopen
Next i
.MsgSubject = "Hallo hej!!"
.MsgNoteText = "Bla Bla!!"
.AttachmentPathName = App.Path & "\data\dokument.doc"
.Send
End With
</code>
Jag slog ihop alla IF-uttryck med en For-loop, vars variabeln 'i' ökar från 0 till 7 (vilket du gjorde manuellt i din kod).
Index-värden börjar oftast på 0, inte 1 som i din kod. Det var den andra ändringen jag gjorde.

Jag har också försökt med en for loop men
fick aldrig till det med min arrey strgcd()

Nu fungerar det alldeles ypperligt.

Tack ska du ha!

MVH Per