Ecrire un message pour Outlook

Version imprimable

23/04/2012, 20h28
RicardoBxl

Ecrire un message pour Outlook

Bonsoir,

N'étant pas un spécialiste je vais parler avec mes mots.

Dans l'application que je développe, à mon aise ;), je propose via un contrôle activeX d'envoyer de manière automatique un email à une personne bien précise.

J'ai bien entendu écrit le code associé au click de mon bouton Email. Et cela fonctionne très bien: un mail part avec un message préformaté avec en pièce jointe le fichier manipulé.

Mais évidemment il y a un mais. J'aurais aimé savoir comment proposer à l'utilisateur d'entrer le message que LUI veut envoyer.

J'ai essayé dans mon UserForm avec un TextBox mais lorsque j'ai essayé j'ai constaté que l'on ne pouvait pas donner forme au message. On ne peut pas revenir à la ligne, tabuler etc.

Donc ma question est comment faire pour proposer une fenêtre dans laquelle on peut entrer un message destiné au . body de l'application Outlook ?

Si je ne suis pas clair dites-le moi.

Bonne soirée :P

PS en quelque sorte comme cette fenêtre dans laquelle je viens d'entrer mon post.

Bonjour,
La macro suivante découpe le texte d'un textbox entré "au kilomètre" en tronçons de 80 caractères environ :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton1_Click()
    txt = ""
    ctr = 0
    tabl = Split(Me.TextBox1.Text, " ")
    For i = 0 To UBound(tabl)
    If ctr > 80 Then
        ctr = Len(tabl(i)) + 1
        txt = txt & vbCrLf & tabl(i) & " "
    Else
        ctr = ctr + Len(tabl(i)) + 1
        txt = txt & tabl(i) & " "
    End If
    Next i
    Set olApp = CreateObject("Outlook.application")
    Set m = olApp.CreateItem(olMailItem)
    With m
        .Subject = "Subject"
        .Body = txt
        .Recipients.Add "test@test.com"
        .display
    End With
    Set olApp = Nothing
    tabl = Split(txt, Chr(10))
End Sub

24/04/2012, 12h23
RicardoBxl

Bonjour Daniel,

J'ai essayé ton code et cela ne produit pas l'effet escompté.

Pour être clair sache que je l'ai mis dans un CommandButton de mon UserForm.

Le code s'exécute mais il n'y a pas le split.

une explication ?

Exact, j'ai cherché midi à quatorze heures. Avec les propriétés du textbox mises à :

Code:

EnterKeyBehaviour = True

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
    Dim Tabl, Txt As String
    Tabl = Split(Me.TextBox1.Text, vbCrLf)
    For i = 0 To UBound(Tabl)
    Txt = Txt & Tabl(i) & vbCrLf
    Next i
    Set olApp = CreateObject("Outlook.application")
    Set m = olApp.CreateItem(olMailItem)
    With m
        .Subject = "Subject"
        .Body = Txt
        .Recipients.Add "test@test.com"
        .display
    End With
    Set olApp = Nothing
End Sub