Discussion :

[Lex O'Mil]

Bonjour à toutes et à tous,

J'ai un formulaire qui présente un champ mémo.
Ce champs mémo va alimenter le corps du message d'un email.
Lorsque l'on renseigne ce champ mémo sans aller à la ligne (en continue quoi) le corps du message de l'email s'étale sur toute la longueur horizontale (selon la longuer des infos tapées dans le champs mémo). Ce qui rend peu lisible le message.

Comment forcer les utilisateurs à taper sur la touche entrée pour chaque ligne tapée dans le champs mémo?

Où existe t'il une méthode pour formater le champs mémo par le code pour qu'il soit correctement agencé pour le message email?

Merci à tous

[cafeine]

une fonction de découpage de chaîne par ligne de texte d'une longueur maximale définie en paramètre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Function WordWrap(ByVal strExpr as String, ByVal intLen As Integer, Optional ByVal strDelim As String = " ")
' fonction de découpage de chaîne par ligne d'une longueur limitée de caractères : intLen
 
Dim strLine As String
Dim i As Integer
Dim strArray() As String
strLine = vbNullString
 
'découpage de la chaine en tableau de mots.
strArray = Split(strExpr, strDelim)
 
For i = 1 To UBound(strArray)
    If (Len(strLine) > intLen) And (StrLine <> "") Then
        WordWrap = WordWrap & strLine & vbCrLf 'retour à la ligne
        strLine = strArray(i)
    Else
        strLine = strLine & strDelim & strArray(i)
    End If
Next i
 
End Function

[Lex O'Mil]

Merci Cafeïne,
Mais pourrais-tu être plus clair.
Mon champ mémo se nomme txtMemo.
Sur quelle évènement j'applique la fonction?
Doit-je définir la longueur de la ligne ? Comment?
Enfin, tu vois je suis un peu limite!!!!
Merci en tout cas.

[cafeine]

supposons que tu as un bouton : cmdSendMail

dans la procédure cmdSendMail_Click

au moment d'envoyer le mail, tu changes le corps du message (variable strCorps)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strCorps = WordWrap(Me.txtMemo, 80, " ")

découpe ton texte en lignes de 80 caractères maximum.

[Lex O'Mil]

Merci Cafeïne,
Mais lorsque je click sur mon bouton le corps de l'email est vide.
J'ai créé un module dans lequel j'ai strictement copier-coller ton code et j'ai taper le code qui suit sur l'évènement CLICK du bouton.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub CmdEnvoiEmail_Click()
Destinataire = "Destinataire@test.com"
Sujet = "Lesujet"
Message = WordWrap(Me.TxtMemo, 10, " ")
DoCmd.SendObject acSendNoObject, , , Destinataire, , , Sujet, Message, True
End Sub

Je ne comprend pas.

[cafeine]

C'est peut être un peu faible 10 caractères ... pour renvoyer à la ligne, en plus mon code (un peu trop vite fait, ne prévoit pas des lignes aussi courtes, essaie avec 50 pour voir).

[Lex O'Mil]

Cafèïne,

Si j'ai bien compris la fonction, le code qui suit devrait fonctionner???
Pourtant il ne renvoie rien dans le corps de l'émail.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub CmdEnvoiEmail_Click()
Destinataire = "kjkjkj@ggeg.fr"
Sujet = "Lesujet"
 
Message = WordWrap("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa", 50, " ")
 
DoCmd.SendObject acSendNoObject, , , Destinataire, , , Sujet, Message, True
End Sub

Désolé de te causer tant de soucis!!! ;-)

[cafeine]

j'ai quelque peu corrigé ma fonction faite un peu trop à la hâte ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function WordWrap(ByVal strExpr As String, ByVal intLen As Integer, Optional ByVal strDelim As String = " ")
' fonction de découpage de chaîne par ligne d'une longueur limitée de caractères : intLen
 
Dim strLine As String
Dim i As Integer
Dim strArray() As String
strLine = vbNullString
 
'découpage de la chaine en tableau de mots.
strArray = Split(strExpr, strDelim)
 
For i = 0 To UBound(strArray)
    If (Len(strLine) > intLen) Then
        WordWrap = WordWrap & strLine & vbCrLf 'retour à la ligne
        strLine = strArray(i)
    Else
        strLine = strLine & strDelim & strArray(i)
    End If
Next i
WordWrap = Mid(WordWrap & strLine, Len(strDelim) + 1)
 
End Function

Cette fonction ne découpe pas les mots elle renvoie à la ligne sans faire de césure donc teste plutot avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Message = WordWrap("Lorem ipsum dolor sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad minim veniam, quis nostrud exerci tation ullamcorper suscipit lobortis nisl ut aliquip ex ea commodo consequat. Duis autem vel eum iriure dolor in hendrerit in vulputate", 50, " ")

[Lex O'Mil]

Merci!! et merci, et encore merci et puis merci Caféïne.