Discussion :

[chito79000]

Bonjour à tous,

Je reviens vers vous encore une fois dans un code VBA ou je cherche sur la toile depuis un bon moment.
En effet, je voudrais copier un texte qui se trouve dans une cellule pour le mettre dans le corps du mail.

Code :

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

1
2
3
4
5
bidule= InputBox("bidule?")
 
....
Application.Dialogs(xlDialogSendMail).Show t, "sujet" & " " & Bidule
Corps = Sheets("Feuil1").Range("A2").value

Voici une partie de mon code
j'aimerais simplement ajouter le texte dans le corps du mail. est ce possible ?

[vinc_bilb]

Bonjour,

Oui, vous pouvez, il suffit de modifier votre variable 'Corps'

Exemple (format HTML, regarder 'HTMLBody'):

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
49
Sub SEND_WBK(Wbk As Workbook, Signature As String)
    Subname = "SEND_WBK"
 
    Dim Msganswer As String, Msgprompt As String
    Dim Mailsubj As String, Msbd As String, Emailadd As Variant, tolist As String, cclist As String
    Dim Sentwbkfullname       As String, Extrwbkfullname As String, Hlinkaddr As String
    Dim oOApp, oOMail, olMailItem
 
    Emailadd = GET_EMAIL_LIST("T_EMAILLST")
    If UBound(Emailadd) > 0 Then
        tolist = Emailadd(0)
        cclist = Emailadd(1)
    End If
 
    Extrwbkfullname = Wbk.FullName
 
    Mailsubj = "Published: " & Wbk.Name & " (" & Format(DateValue(Now()), "dd-mmm-yy") & ")"
 
'Building Message head
    Hlinkaddr = Wbk.FullNameURLEncoded
 
    Msbd = "<p> Please, find attached extract generated by " & Application.UserName & "</a> </p>"
'    Msbd = Msbd & "<p><tr>"
    Msbd = Msbd & " <p>From master file: " & Wbk.Name & "</b> </p>"
    Msbd = Msbd & "<p> Extract File: <a href=" & "'" & Hlinkaddr & "'> " & " " & Wbk.Name & "</a> </p>"
    Msbd = Msbd & "<p> Directory   : <a href=" & "'" & ActiveWorkbook.Path & "'> " & " " & Wbk.Path & "</a> </p>"
    Msbd = Msbd & "<p><tr>"
    Msbd = Msbd & "Thanks and Best Regards. "
    Msbd = Msbd & "<br>"
    If Signature <> "" Then Msbd = Msbd & "<p><tr>" & Signature & "<br>"
    Msbd = Msbd & " (Automatic email notification)"
 
    Msbd = Msbd & "<p> Free comments from sender: "
 
'Sending Mail
    Set oOApp = CreateObject("Outlook.Application")
    Set oOMail = oOApp.CreateItem(olMailItem)
 
    With oOMail
        .To = tolist
        .CC = cclist
        .Subject = Mailsubj
        .HTMLBody = Msbd
        .Attachments.Add Wbk.FullName
'        .Save
        .Display
    End With
 
End Sub

[chito79000]

La modifier correspond a quoi exactement ?
Désolé je ne comprends pas très bien :/

J'ai essayé cela mais cela ne fonctionne pas

Code :

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

1
2
3
4
 
Dim Doc As Object
Application.Dialogs(xlDialogSendMail).Show t, "sujet" & " " & bidule
Doc.body = "mon texte a mentionner."

[vinc_bilb]

Dans votre code initial, essayez avec

Code :

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

Corps = Sheets("Feuil1").Range("A2").value & vbCrlf & "Texte rajouté"

[chito79000]

Merci de votre retour.
Cela ne fonctionne pas..
Y aurait il un moyen d'ajouter directement comme pour ajouter l'objet directement avec

Code :

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

Application.Dialogs(xlDialogSendMail).Show t, "sujet" & " " & bidule

[SfJ5Rpw8]

bonjour,

xlDialogSendMail ne permet pas de modifier le contenu de ton message ...

essai avec CDO par exemple :

http://excel.developpez.com/faq/?pag...urExecutionCDO

[parmi]

Bonjour,

Quel programme utilises-tu pour envoyer des emails ?
La boîte de dialogue que tu essaies d'utiliser est limitée au sujet et adresses, je pense...

Tu peux utiliser Outlook qui offre plus de possibilités, comme expliqué par vinc_bilb
Et tu peux aussi regarder du côté de l'API ShellExecute qui utilisera la messagerie par défaut.