Discussion :

[lalisandrine]

Bonjour,
Je débute en macro
Je voudrais faire en sorte que ma macro envoie des mails automatiques avec une pièce jointe
Par contre la pièce jointe sera a chaque fois avec un numéro chrono diffèrent et dans un dossier différent (mais la racine du dossier est la même)
Ci joint la macro pour envoi mail qui marche :

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 Envoimail()
 
Set Lemail = CreateObject("Outlook.application") ' Creation d'un objet Outlook
 
 
Dim Ligne As Integer
 
Set Lemail = CreateObject("Outlook.Application") 'création d'un objet Outlook
 
For Ligne = 2 To 400
 
    If Range("b" & Ligne) = "A lancer" Then
        With Lemail.CreateItem(olMailItem)
 
            .Subject = "Chiffrage TS" & Range("c" & Ligne)
            .To = Range("ax" & Ligne).Value
            .Body = Range("bk1")
            .CC = Range("ay" & Ligne).Value
            .Attachments.Add "C:\Users\A6195429\Desktop\TEMPORAIRE\a supprimer\ESSAI\TS1B\TS1B.xlsx"
            .Display
 
        End With
 
 
        End If
 
Range("b" & Ligne) = "Envoyé à l'EE"
 
Next Ligne
 
End Sub

[anasecu]

Bonjour lalisandrine

Je voudrais faire en sorte que ma macro envoie des mails automatiques avec une pièce jointe

automatiques ? c'est-à-dire quelle fréquence : Quotidiens ?

Par contre la pièce jointe sera a chaque fois avec un numéro chrono diffèrent et dans un dossier différent (mais la racine du dossier est la même)

Il serait bien d'avoir des règles un peu plus précises pour que tu puisses le retrouver sans boule de cristal.

[lalisandrine]

Bonjour,

J'ai trouvé et cela marche
Merci de m'avoir répondu