Envoi de mails par macro

B

Barbefeuillue

XLDnaute Nouveau
Bonsoir à toutes et tous,

me revoici sur le forum pour vous demander de l'aide car malgré mes recherches je n'ai pas trouvé mon bonheur.

j'ai créé dans un classeur excel une macro qui me permet d'envoyer des mails en gros, ce qui est très pratique quand j'ai plusieurs dizaines de mails à envoyer!

le corps du message est composé de parties invariables et de références au contenu de certaines cellules.

j'aimerais pouvoir si cela est possible :

1. modifier la police d'une partie du message (la dernière ligne pour l'écrire en plus petit - afin de passer une information mais de sorte que visuellement cela paraisse moins important)

2. que ma macro parcours les lignes du fichier et n'envoie un mail que si la colonne destinataire est renseignée. Pour le moment je fais remonter les lignes et j'adapte la macro...


par avance merci,
 

Pièces jointes

  • Classeur1.xls
    26 KB · Affichages: 33
  • Classeur1.xls
    26 KB · Affichages: 35
  • Classeur1.xls
    26 KB · Affichages: 42
Trier par date Trier par votes
Hulk

Hulk

XLDnaute Barbatruc
Re : Envoi de mails par macro

Bonsoir Barbefeuillue, Forum,

Vois le fichier joint et essaie d'adapter à ton cas.

Ça marche avec Outlook.

Merci à l'auteur !
Franchement et malheureusement, je ne me souviens pas qui me l'avait passé...
J'espère qu'il se reconnaitra et qu'il ne m'en voudra pas.

Sur ce, bonne nuit à tous !
 

Pièces jointes

  • Mail avec Format.xlsm
    23.7 KB · Affichages: 47
Vote positif 0 Vote négatif
B

Barbefeuillue

XLDnaute Nouveau
Re : Envoi de mails par macro

bonjour bonjour et merci pour votre réponse,

hélas impossible d'ouvrir le fichier... enfin l'ouvrir si, mais quelque soit la version d'excel erreur et les données sont corrompues.

pourriez-vous réessayer?

par avance merci,
 
Vote positif 0 Vote négatif
Hulk

Hulk

XLDnaute Barbatruc
Re : Envoi de mails par macro

Hello,

C'est le fichier que j'ai joins que vous n'arrivez pas à ouvrir ?

Bref voici une version 2003 peut-être que...

Si non peut-être que c'est ça, dans l'éditeur VBA, dans Outils/Références..., il faut côcher
la référence Microsoft Outlook xx Object Library.

J'espère que ça jouera.
 

Pièces jointes

  • Mail avec Format.xls
    43 KB · Affichages: 41
  • Mail avec Format.xls
    43 KB · Affichages: 36
  • Mail avec Format.xls
    43 KB · Affichages: 41
Vote positif 0 Vote négatif
B

Barbefeuillue

XLDnaute Nouveau
Re : Envoi de mails par macro

Effectivement avec le format html pas de souci j'ai pu adapter facilement le corps du message!

Par contre je n'arrive pas à créer une boucle satisfaisante... Pour le moment je marche avec :


Code: 
Private Sub CommandButton2_Click()

    For i = 5 To 10

    Dim NomDestinataire
    Dim NomClient
    Dim PieceJointe

    Set oOutlook = CreateObject("Outlook.Application")
    Set oNewMail = oOutlook.CreateItem(olMailItem)
    
    NomDestinataire = Workbooks("monclasseur.xls").Sheets("Feuil1").Cells(i, 23).Value
    NomClient = Workbooks("monclasseur.xls").Sheets("Feuil1").Cells(i, 6).Value
    StatutCommande = Workbooks("monclasseur.xls").Sheets("Feuil1").Cells(i, 2).Value
    
  
        With oNewMail
                 
        .Recipients.Add NomDestinataire
        .Subject = "monclasseur " & Format(Date, "ddmmyyyy ") & NomClient
        .HTMLBody = "<HTML><body>blablabla<p>" & "Client(e) :  " & NomClient & _
          " <FONTSIZE=-3>blablablabla</font><p>"       & _
          "<FONT SIZE=-3>Ne pas répondre à cet email il s'agit d'un traitement automatique. </font></body> _                     <HTML>"
          
        .Attachments.Add "C:\NEPASTOUCHERSVP\type de courriers.pdf"
        .send
        End With
    
 Next i
    
End Sub

Ce qui marche bien mais qui est bien galère... J'ai tenté des conditions du genre de ci-dessous mais ça ne marche pas...

Code: 
' si plus de ligne renseignée on arrête 

If Workbooks("monclasseur.xls").Sheets("Feuil1").Cells(i, 1).Value = "" Then exit sub End if


' Pour vérifier qu'il y a bien un mail à envoyer si un mail est renseigné sinon on passe a la ligne suivante

If Workbooks("monclasseur.xls").Sheets("Feuil1").Cells(i, 24).Value <> "" Then ... et a la fin i = i + 1

Else i = i + 1

End if

Si quelqu'un peut m'aider pour les conditions / boucles parce que je tourne en rond, merci d'avance!!
 
Vote positif 0 Vote négatif

Discussions similaires

D
  • Question
Microsoft 365 Envoi mails via outlook + base excel
Réponses
2
Affichages
263
duclorenzo
D
B
  • Question
XL 2016 envoi mails depuis base de données excel
Réponses
2
Affichages
367
boguinette
B
B
  • Question
XL 2016 Exécution macro à l'ouverture de fichier
Réponses
3
Affichages
348
crocrocro
C
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
468
Janu44
J
G
  • Question
XL 2010 Copier coller une image dans le corps de message via gmail
Réponses
8
Affichages
441
gwenn49
G
B
  • Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
781
AtTheOne
AtTheOne
J
  • Résolu(e)
XL 2021 Envoi d'email et PJ en VBA
Réponses
3
Affichages
288
JPaul78
J
A
  • Résolu(e)
XL 2021 Macro de création mail de relance avec référence cellules
Réponses
4
Affichages
281
arnoldbrice19
A
M
  • Résolu(e)
XL 2016 envoi de mail en automatique en fonction de plusieurs menus deroulants
2
Réponses
26
Affichages
1 K
mathieu20
M
chris6999
  • Question
Microsoft 365 Macro pour renvoyer la valeur par rapport à un intervalle
Réponses
6
Affichages
199
sylvanu
sylvanu

Membres actuellement en ligne

4 membres et 73 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 379
Messages
2 087 762
Membres
103 661
dernier inscrit
fcleves