Bonsoir à tous.

Me revoici avec mes Pb E N lotus et VBA.
J'ai trouvé un code pour l'envoi d'un mail en lotus 8.5 via VBA.

Mais le deboguage m'indique une erreur au niveau de f_intChar_Count me disant que la fonction n'était pas déclarée.

Merci d'avance

Habiler


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub s_RecipientList(strArray() As String, strRecipientList As String)
Dim i As Integer, j As Integer
strRecipientList = Replace(strRecipientList, ";", ",")
If Right(strRecipientList, 1) <> "," Then strRecipientList = strRecipientList & ","
j = f_intChar_Count(strRecipientList, ",")
ReDim strArray(j)
For i = 1 To j
strArray(i) = f_strString_Extract(strRecipientList, ",", i)
Next i
End Sub