envoi e-mail par macro VBA, corps du massage

C@thy

C@thy

XLDnaute Barbatruc
Bonjour le forum,

comment puis-je rajouter un texte dans le corps du message dans la macro ci-dessous :

Code: 
Sub testenvoi()
Workbooks("UnClasseur").SendMail Recipients:="xxx.xxx@xxx.fr", _
Subject:="Test envoi classeur", _
Body:="Bonjour, blabla blabla" PAS BON!!! TextBody:="Bonjour, blabla blabla", _ 'PAS BON!!! 
ReturnReceipt:=True
End Sub
Un grand Merci à vous:).

Bizz

C@thy
 
Trier par date Trier par votes
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : envoi e-mail par macro VBA, corps du massage

Bonjour Cathy,

sous excel 2003, pas d'argument " Body" pour la m"thode "sendmail"... tu ne peux donc pas avec cette methode... après c'est fonction de la messagerie que tu utilises...
bon après midi
@+
 
Vote positif 0 Vote négatif
C@thy

C@thy

XLDnaute Barbatruc
Re : envoi e-mail par macro VBA, corps du massage

Merci Pierrot93,

je commençais à m'en douter car je ne trouvais pas cette propriété... je pouvais chercher!!!

j'utilise outlook,

j'envoie chaque feuille de mon classeur à l'adresse mail qui figure en A1 de chaque feuille, de la feuille 3 à le dernière -2

Sub Envoi()
Dim i As Integer
For i = 3 To Sheets.Count - 2
Sheets(i).Copy
ActiveWorkbook.SendMail Recipients:=[A1], Body:="blablabla blablabla"
ActiveWorkbook.Close False
Next
End Sub

Donc, si je te comprends bien, je dois m'y prendre autrement...:(

tu as une idée???

Merci à toi
 
Vote positif 0 Vote négatif
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : envoi e-mail par macro VBA, corps du massage

Re,

regarde peut être ceci :
Code: 
Option Explicit
Private Sub test()
Dim appOutlook As Outlook.Application, message As Outlook.MailItem
Dim email As String, MaPJ As Attachments

Set appOutlook = CreateObject("outlook.application")
Set message = appOutlook.CreateItem(olMailItem)
email = "adresse.mail@xld.com" 'destinataire
Set MaPJ = message.Attachments
MaPJ.Add ThisWorkbook.FullName
With message
    .Subject = "Sujet du message"
    .Body = "Bonjour," & vbCr & vbCr & _
    "Bla Bla Bla ....... " & vbCr & vbCr & _
    "Cordialement," & vbCr & vbCr & _
    "Signature."
    .Recipients.Add (email)
    .Send
End With
End Sub

@+
 
Vote positif 0 Vote négatif
C@thy

C@thy

XLDnaute Barbatruc
Re : envoi e-mail par macro VBA, corps du massage

Code:
Voici ce que ça donne :

Private Sub test()
Dim appOutlook As Outlook.Application, message As Outlook.MailItem
Dim email As String, MaPJ As Attachments
Set appOutlook = CreateObject("outlook.application")
Set message = appOutlook.CreateItem(olMailItem)
Dim i As Integer
For i = 3 To Sheets.Count - 2
email = Sheets(i).[A1] 'destinataire
Set MaPJ = message.Attachments 'ici ça bugue au 2ème passage dans le boucle
MaPJ.Add ThisWorkbook.FullName
With message
.Subject = "Sujet du message"
.Body = "Bonjour," & vbCr & vbCr & _
"Bla Bla Bla ....... " & vbCr & vbCr & _
"Cordialement," & vbCr & vbCr & _
"Signature."
.Recipients.Add (email)
.Send
End With
Next i
End Sub

En plus ça m'envoie le classeur complet, pas la feuille:(

Bizz

C@thy
 
Vote positif 0 Vote négatif
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : envoi e-mail par macro VBA, corps du massage

Re,

modifie comme suit :
Code: 
For i = 3 To Sheets.Count - 2
Email = Sheets(i).[A1] 'destinataire
Set MaPJ = Message.Attachments 'ici ça bugue au 2ème passage dans le boucle
MaPJ.Add ThisWorkbook.FullName
With Message
.Subject = "Sujet du message"
.Body = "Bonjour," & vbCr & vbCr & _
"Bla Bla Bla ....... " & vbCr & vbCr & _
"Cordialement," & vbCr & vbCr & _
"Signature."
.Recipients.Add (Email)
.Send
End With
Set MaPJ = Nothing
Next i

En plus ça m'envoie le classeur complet, pas la feuille
Cliquez pour agrandir...
oui cela envoie un fichier qui est enregistré sur le DD, soit tout le classeur....
 
Vote positif 0 Vote négatif
C@thy

C@thy

XLDnaute Barbatruc
Re : envoi e-mail par macro VBA, corps du massage

Arf!

Je vais reformuler ma question :

y a-t-il un moyen d'envoyer chaque feuille du classeur une par une à un destinataire différent à chaque fois, et dont l'adresse mail figure en A1 de chaque feuille,
avec un corps de message ???
c'est à dire sans passer par sendmail puisqu'on ne peut pas mettre un corps de message
???

Merci

Bises

C@thy
 
Vote positif 0 Vote négatif
Pierrot93

Pierrot93

XLDnaute Barbatruc
Re : envoi e-mail par macro VBA, corps du massage

Re,

essaye ceci, non testé...
Code: 
Option Explicit
Private Sub test()
Dim appOutlook As Outlook.Application, message As Outlook.MailItem
Dim email As String, MaPJ As Attachments, wb As Workbook, t As String
Set appOutlook = CreateObject("outlook.application")
Set message = appOutlook.CreateItem(olMailItem)
Dim i As Integer
    For i = 3 To Sheets.Count - 2
    Sheets(i).Copy
    Set wb = ActiveWorkbook
    With wb
        .SaveAs ThisWorkbook.Path & "\copie.xls"
        t = .FullName
        .Close
    End With
    email = Sheets(i).[A1] 'destinataire
    Set MaPJ = message.Attachments 'ici ça bugue au 2ème passage dans le boucle
    MaPJ.Add t
    With message
        .Subject = "Sujet du message"
        .Body = "Bonjour," & vbCr & vbCr & _
        "Bla Bla Bla ....... " & vbCr & vbCr & _
        "Cordialement," & vbCr & vbCr & _
        "Signature."
        .Recipients.Add (email)
        .Send
    End With
    Set MaPJ = Nothing
    Kill t
Next i
End Sub
 
Vote positif 0 Vote négatif
C@thy

C@thy

XLDnaute Barbatruc
Re : envoi e-mail par macro VBA, corps du massage

marche très bien pour la 1ère feuille
HTML: 
Private Sub test()
Dim appOutlook As Outlook.Application, message As Outlook.MailItem
Dim email As String, MaPJ As Attachments
Dim i As Integer
Dim fname As String
Set appOutlook = CreateObject("outlook.application")
Set message = appOutlook.CreateItem(olMailItem)

For i = 3 To Sheets.Count - 2
    fname = Sheets(i).Name
    email = Sheets(i).[A1] 'destinataire
  
   Sheets(i).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & fname

   Set MaPJ = message.Attachments 'ici ça bugue au 2ème passage
   MaPJ.Add ActiveWorkbook.FullName
   With message
    .Subject = "Sujet du message"
    .Body = "Bonjour," & vbCr & vbCr & _
    "Bla Bla Bla ....... " & vbCr & vbCr & _
    "Cordialement," & vbCr & vbCr & _
    "Signature."
    .Recipients.Add (email)
    .Send
   End With
'Set MaPJ = Nothing
ActiveWorkbook.Close
Next i
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
288
arnoldbrice19
A
My<3
  • Question
XL 2019 HTML Corps de mail
Réponses
6
Affichages
340
My<3
My<3
J
  • Résolu(e)
XL 2021 Envoi d'email et PJ en VBA
Réponses
3
Affichages
295
JPaul78
J
D
  • Question
XL 2013 envoie tableau dans corp du mail vba
2
Réponses
26
Affichages
1 K
David62800
D
C
  • Résolu(e)
XL 2013 VBA - Envoi d'un mail avec fichier excel à une liste de destinataires - corps du mail issu d'un mail modèle prédéfini
Réponses
7
Affichages
712
Chrystel01
C
B
  • Question
XL 2019 Mail d'alerte automatique contenant tableau si condition remplie
Réponses
2
Affichages
605
fanch55
fanch55
J
  • Résolu(e)
XL 2013 Macro et script vba : macro s'arrête dès la première condition trouvée
Réponses
11
Affichages
472
Janu44
J
ELSONCe
  • Question
Microsoft 365 Envoi Mail Automatique avec Condition
Réponses
2
Affichages
560
ELSONCe
ELSONCe
A
  • Question
XL 2019 Ajout d'un lien hypertexte dans un mail envoyé par VBA
Réponses
2
Affichages
423
angelusr71
A
J
  • Question
Excel -VBA : Envoie plusieurs partie du même tableau dans un corps mail en fonction de certaines conditions
Réponses
0
Affichages
1 K
JBIK
J

Membres actuellement en ligne

9 membres et 97 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 398
Messages
2 088 076
Membres
103 700
dernier inscrit
amin Saadaoui