Pb entre excel et outlook

[cduguy]

Bonjour,

Débutant en VBA, j'essaie de lancer depuis un bouton un message
OUTLOOK, les adresses étant récupérees d'une plage
d'un tableau excel.

Mon code fonctionne jusqu'a 20 adresses, au dela il plante. Pouvez vous
m'aidez a comprendre pourquoi, et y a t-il une autre solution

Merci d'avance

Guy CHAUDEAU


Voici mon code

Public Sub VersMail()
link = "mailto:"
For i = 11 To 40
If Range("F" & i) <> "" Then
link = link & Range("F" & i).Value
If Range("F" & i + 1) <> "" Then
link = link & ";"
End If
Next
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Impossible d'ouvrir " & link
End Sub