Discussion :

[vinvinsylvain]

Bonjour,

Je ne trouve pas sur le net comment faire pour avoir une correction d'orthographe dans une TextBox.

Je m'explique, j'ai une form avec des textBox de saisie.
Et je voudrais savoir comment faire pour qu'il y est un correcteur d'orthographe en sachant que je ne posède par Word

Toute les saisie sont transmis dans une "Label" puis envoyer par email avec ce code:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
:Private Sub Command1_Click()
Dim AGENT As String
AGENT = "Agents:" & Chr$(13) & Combo1 & Chr$(13) & Combo2 & Chr$(13) & Combo3 & Chr$(13) & Combo4 & Chr$(13) & Combo5
Form1!Label2 = AGENT
'contenu du presse papier
Dim Adresse As String
Dim Contenu As String
Dim Ligne() As String
Dim n As Integer
Dim emailsubject As String
Dim emailmsg As String
Dim emaildest As String
On Error GoTo Gestion_Erreur
Dim renvois As String
        emailsubject = "Rapport des évènements du  " & Date  'Demande du sujet du message
        emailmsg = "Bonjour," & Chr$(13) & "veuillez trouver ci-dessou le rapport des évènements qui nous ont été communiqué" & Chr$(13) & Chr$(13) & Form1!lab1 & Chr$(13) & Form1!lab2 & Chr$(13) & Form1!lab3 & Chr$(13) & Form1!lab4 & Chr$(13) & Form1!lab5 & Chr$(13) & "Cordialement" & Chr$(13) & Chr$(13) & Form1!Label2    'Demande du contenu du message
        emaildest = acceuil!Label9  'Demande de l'adresse email
        Dim ObjOutl As Object   'Déclaration des objets
        Dim objSession As Object
             Dim ObjMessage As Object
            Set ObjOutl = CreateObject("Outlook.Application")   'Création de l'objet Outlook
            Set objSession = ObjOutl.GetNamespace("MAPI")   'Création de l'objet de gestion des message
            Set ObjMessage = ObjOutl.CreateItem(0)   'Ajout d'un item pour le message
            objSession.Logon   'Connection à Outlook
            With ObjMessage
                .To = emaildest
                .CC = ""
                .Subject = emailsubject
                .Body = emailmsg
                .Send             
            End With
 
        'Suppression des objets (Vidage)
        Set ObjMessage = Nothing
        objSession.Logoff
        Set objSession = Nothing
        Set ObjOutl = Nothing
 
Unload Rapport1
Unload Rapport2
Unload Rapport3
Unload Rapport4
Unload Rapport5
MsgBox " Les rapport ont étés envoyé"
Gestion_Erreur:
'MsgBox ""
Unload Form3
End Sub

Merci de votre aide

[ucfoutu]

Je m'explique, j'ai une form avec des textBox de saisie.
Et je voudrais savoir comment faire pour qu'il y est un correcteur d'orthographe en sachant que je ne posède par Word

Bonjour,
Un correcteur d'orthographe nécessite :
- un lexique dans la langue utilisée
- un mécanisme d'utilisation de ce lexique

(ce que possèdenr les applications MSOffice)

Sans MSOffice, tu n'as ni l'un, ni l'autre ...
Et même si tu avais Word, ce serait assez complexe d'y parvenir directement (sans divers tremplins) depuis VB6... (et ce : même en utilisant une RichTextBox plutôt qu'une TextBox).

EDIT :
Tu trouves su la toile des outils pour ce faire : mots clés Spell Checker
Les "bons" sont payants et sous forme de dll utilisable depuis toute appli Windows

[SfJ5Rpw8]

bonjour, vinvinsylvain


as tu un correcteur orthographique intégré à ta version d'Outlook ? (voir fenêtre "Apropos d'Oulook)