Discussion :

[bboy-eazy]

Bonjour,

J'ai besoin d'un petit coup de main pour envoyer un mail Outlook.

Je commence tout juste ces essais et je n'arrive pas à mettre du texte dans le corps du message Outlook:
J'ai voulu tester de deux manière différente en passant soit par un texte mi à l'intérieur d'une cellule soit par le texte directement dans le code VBA
J'ai bien un mail qui se génère dans mes brouillon avec l'adresse du destinataire et le sujet mais pas de corps de message
VOici mon 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
Sub Envoi_Mail_Feuille()
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
 
    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With
 
    Set rng = Nothing
    Set rng = ThisWorkbook.Sheets("Test").Range("A1")  
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "test@gmail;com"
        .CC = ""
        .BCC = ""
        .Subject = "Sujet test"
        .Body = "Bonjour voici un test & " / " & rng" ' test par code et par valeur de cellule excel
        .Save '.Save pour sauvegarder le mail dans les brouillons, .send pour l'envoyer
    End With
    On Error GoTo 0
    With Application
        .EnableEvents = True
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Merci de votre aide.

[Invité]

bonjour,
regarde ça: http://www.developpez.net/forums/d14...t/#post7968025

[bboy-eazy]

Bonjour,

Merci Robert,

C'est parfait ca marche avec ta méthode.
Sais-tu juste pourquoi la mienne ne fonctionnait pas?

Merci bcp je passe en résolu

[Invité]

Si tu n'avais pas mis On Error Resume Next le déboguer ce serrait manifesté!

Code :

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

.To = "test@gmail;com" 'ce n'est pas un Mail valide ";com"

[bboy-eazy]

Ah oui en effet bien vu!

Par contre même en reprenant mon code d'avant et mettant un mail valide (.com), il n'y a toujours rien qui s'affiche en corps du message...

Du coup j'ai enlevé le on error pour voir si quelque chose coincait et en effet incompatilbilité de type 13 sur la ligne .body

Qu'est ce qui ne convient pas à Excel dans ce cas?
(c'est pour ma culture personelle car c'est en faisant des erreurs qu'on apprend et surtout comment on fait pour ne pas les reproduire!)
Merci d'avance

[Invité]

erreur d'étourderie!

Code :

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

"Bonjour voici un test & " / " & rng" 'c'est pas une division

Code :

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

1
2
"Bonjour voici un test  / " & rng

[bboy-eazy]

AAAAaaaaarrrrrhhhhhh c'est horrible! Un petit truc change tout. Merci Robert!

Je respecte votre métier car moi il y a bien longtemps que je me serais arraché les cheveux!

Bonne journée