Discussion :

[Jérôme5625]

Bonjour,
Je me permets de venir vers vous car je suis débutant sur VBA. D'après un document excel, j'ai crée une macro qui vient envoyer un document excel en pièce jointe d'un email au destinataire. J'utilise la fonction ActiveWorkbook.SendMail recipients mais elle a ces limites.
Je souhaiterai un code assez simple car sur les forums je trouve du code très long et qui ne fonctionnent pas pour moi.
Pouvez vous m'aiguiller via un exemple sur le code à utiliser?
en vous remerciant et vous souhaitant un bon weekend.

[Patrice740]

Bonjour,

Voir ce billet de MarcelG : Envoi instantané de plusieurs mails avec destinataires, objets, pièces jointes et corps de texte différents - Blogs - Forum du club des développeurs et IT Pro

[Jérôme5625]

Bonjour je te remercie pour ton message mais la fonction me parait un peu compliqué.
ci après mon code sans deux points pour lesquelles j'ai le besoin à savoir l'envoi à plusieurs destinataires selon une liste et le rajout d'un corps de message.
Merci de votre aide.

bon après midi.

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
 
Sub Envoyer_par_email_test()
'définition des variables
Dim MaPieceJointe As String
 
 
Feuil1.Activate
Feuil1.Visible = xlSheetVisible
Feuil2.Visible = xlSheetVeryHidden
Feuil3.Visible = xlSheetVeryHidden
Feuil4.Visible = xlSheetVeryHidden
Feuil5.Visible = xlSheetVeryHidden
Feuil6.Visible = xlSheetVeryHidden
 
a = MsgBox("Voulez vous valider l'audit et l'envoyer par email (attention à la relecture du document) et quitter? ", vbYesNo)
If a = vbNo Then
Feuil1.Activate
Feuil2.Activate
Feuil3.Activate
Feuil4.Activate
Feuil5.Activate
Feuil6.Activate
Feuil2.Visible = xlSheetVisible
Feuil3.Visible = xlSheetVisible
Feuil4.Visible = xlSheetVisible
Feuil5.Visible = xlSheetVisible
Feuil6.Visible = xlSheetVisible
Feuil1.Visible = xlSheetVisible
End If
 
MaPieceJointe = "c:\test\" & "test_n" & Feuil1.Cells(2, 25) & "__" & Feuil1.Cells(7, 24) & ".xls"
Feuil1.SaveAs MaPieceJointe
 
ActiveWorkbook.SendMail recipients:="toto@toto.com", _
subject:="test_n_" & Feuil1.Cells(2, 25) & "__" & Feuil1.Cells(7, 24), _
ReturnReceipt:=True
End Sub

[mfoxy]

Bonjour,

Ta demande n'est pas si simple qu'il n'y paraît.

La méthode d'envois de mail que tu utilises n'est pas la méthode à utiliser pour ton problème.

Pour envoyer un mail par Outlook, la méthode la plus facilement exploitable est d'utiliser un object Outlook.

Par exemple :

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
 
Sub Mail_Outlook()
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "Bonjour" & vbNewLine & _
              "Ligne 1" & vbNewLine & _
              "Ligne2" & vbNewLine & _
              "Ligne3"
 
    With OutMail
        .To = "mfoxy@dvp.com"
        .CC = ""
        .BCC = ""
        .Subject = "Ici le sujet"
        .Body = strbody ' contient le corps du texte
        '.Attachments.Add ("C:\test.txt")  'ici on ajoute le fichier joint
        .Send   'or use .Display' send envois direct, display ouvre le mail sans envois
    End With
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

Pour envoyer à une liste de personne différentes, le mieux serait de créer une table ( listObject) contenant nom, prénom, mail des différentes personnes et de boucler sur chacuns des contacts pour envoyer le mail.

C'est ce que fait, la macro de Marcel en mieux car plus élaboré.

Bat

[Jérôme5625]

Merci!!!! cela fonctionne