Discussion :

[mgascult]

Bonjour à Tous

J’ai un fichier Excel « transfert 6125.xls » qui contient une feuille nommée « Liste transfert » dans celle-ci j’ai environ 300 lignes de nom et d’autres infos.
Dans la colonne « V » j’ai le mail de chaque personne, dans la colonne « O » j’ai le n° de casier d’arrivée, en « D1 » j’ai le n° d’affaire et en « B1 » la date du transfert.

Je souhaiterai au lancement de la macro envoyer un mail individuel à chacune des personnes de la liste avec le n° de casier associé.

J’ai commencé une ébauche mais je ne suis pas sûr de mon code de base et je suis coincé car je n’ai pas l’habitude de gérer des boucles.

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
Sub Email_From_Excel(Ligne As Long)
Dim emailApplication As Object
Dim emailItem As Object
 
    Set emailApplication = CreateObject("Outlook.Application")
    Set emailItem = emailApplication.CreateItem(0)
    With emailItem
        .To = Worksheets("Liste transfert").Range("V" & Ligne).Value
        .Subject = "Affaire :  " & Worksheets("Liste transfert").Range(D1).Value & "<br>" _
        .Body = "Bonjour,<bf> " _
            & "<br>" _
            & "<br>" _
            & "Dans le cadre de votre transfert du:  " & Worksheets("Liste transfert").Range(B1).Value & "<br>" _
            & "<br>" _        
            & "Votre nouveau casier est le :  " & Worksheets("Liste transfert").Range("O" & Ligne).Value & "<br>" _
            & "<br>" _
            & "<br>" _    
        .Display
    End With
    Set emailApplication = Nothing
    Set emailItem = Nothing
End Sub

Je vous remercie pour votre aide et vous souhaite une belle journée🌞

[TonyNiort79]

Bonjour,
à adapter,
si tu écrit .Display (qui veut dire montrer) tu verras env. 300 fois le mail, si tu veux envoyer tes mails sans les voir, il faut mettre à la place .Send (qui veut dire envoyer)

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
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub Email_From_Excel(Ligne As Long)
Dim emailApplication As Object
Dim emailItem As Object
 
'j'ajoute 3 variables
Dim boucle As Integer
Dim i As Integer '(pour le numéro de ligne et l'incrémentation
i = 2 ' je mets la valeur 2 car je pense que la première ligne est la ligne des en-têtes (titres)
Dim QuantiteMails As Integer 'la quantité des destinataires, attention pas de ligne blanche sur la liste
Sheets("Liste transfert").Range("V1").Select
QuantiteMails = Range(Selection, Selection.End(xlDown)).Count 'ici je compte de la ligne n°1 jusqu'en bas, donc pas de ligne blanche entre 2 destinataires
 
 
    Set emailApplication = CreateObject("Outlook.Application")
    Set emailItem = emailApplication.CreateItem(0)
 
  For boucle = 1 To QuantiteMails - 1 'ici je boucle de sur les quantités de destinataires moins le titre (moins 1)
 
 
 
    With emailItem
        .To = Worksheets("Liste transfert").Range("V" & i).Value ' nous démarrons à la ligne numéro 2
        .Subject = "Affaire :  " & Worksheets("Liste transfert").Range("D" & i).Value
 
        'je ne connaît pas <bf>, je pense que tu veux aller à la ligne, j'ai mis br, voir ci-dessous, une petite légende sur le code HTML avec un exemple plus bas
        ' faire attention au guillemets,
        ' quand tu mets le underscore "_" cela veut dire que la suite est à la ligne du dessous, dans ce cas il ne peut pas y avoir un point (.Display)
 
        .Body = "Bonjour,<br>" _
            & "<br>" _
            & "<br>" _
            & "Dans le cadre de votre transfert du:  " & Worksheets("Liste transfert").Range("B" & i).Value & "<br>" _
            & "<br>" _
            & "Votre nouveau casier est le :  " & Worksheets("Liste transfert").Range("O" & i).Value & "<br>" _
            & "<br>" _
            & "<br>"
        .Display ' si tu ne veux pas voir tes env. 300 mails, alors il faut .Send au lieu de .Display
    End With
   i = i + 1 ' on incrémente i
    Next boucle 'boucle pendant env. 300 fois
 
 
 
    'ne pas oublier la phrase de courtoisie, veuillez...
 
   'langage HTML
 '<p> "ton texte ici"  <p> sauter une ligne
 '<br> "ton texte ici"  <br>a la ligne
 '<B> "ton texte ici"  </B> en gras
 
'exemple ci-dessous
  ' Signature = "<B><p>Nom Prenom</B><p>" & _
            "Titre<br>" & _
            "<B>Société</B><br> " & _
            "Adresse<br>" & _
            "Téléphone<br>" & _
            "Mail<br>"
 
 
    Set emailApplication = Nothing
    Set emailItem = Nothing
End Sub

[Thumb down]

Bonjour,

si tu rédige ton mail en intégrant de balise HTML il faut utiliser HTMLBody et non Body!

https://www.developpez.net/forums/d1...t/#post7968025

[mgascult]

Bonjour à Tous,

merci messieurs pour vos explications précieuses.
Je vais essayer de tester cela cette semaine.

Je vous souhaite une Belle journée 🌞