[XL-2007] Automatiser envoi d'un mail par onglet

[anthooooony]

Bonjour,

Je dois communiquer des fichiers auprès d'agence.
On me demande de transférer des fichiers à chaque agence. chacune de ces agences ont un interlocuteur. Agence Paris = anthooooony@hotmail.com par exemple.

Est-il possible à partir d'un fichier ayant deux onglets(agence) imaginons, de lui dire
agence 1 envoyer un mail à anthooooony@hotmail.com
agence 2 envoyer un mail à sebastien@mail.com etc
avec possibilité d'avoir infini agence.. avec infini de destinataire(Liste déroulante)?

Pour info je sais comment envoyer un fichier à plusieurs personnes, mais je ne sais pas comment envoyer plusieurs fichier à plusieurs personnes.
Si quelqu'un est intéressé, le fichier est en pièce jointe.

Merci d'avance.

[Daniel.C]

Bonjour,

Quel est ton client de messagerie ?

[anthooooony]

Bonsoir,

Nous utilisons outlook comme messagerie

[Daniel.C]

Ajoute une feuille sur laquelle tu mets les adresses mail en colonne A et les feuilles à envoyer en regard en colonne B. Crées une liste déroulante sur les adresses mail. (dans mon exemple, elle est en F1.) Ajoutela macro suivante dans le code de la feuille. Les classeurs temporaires sont créés dans le dossier c:\temp :

Code :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$F$1" Then Exit Sub
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .to = Target.Value
        '.CC = " mail@mail.com; mail@mail.com "
        '.BCC = " mail@mail.com "
        .Subject = "mouvements clients"
        .body = "Bonjour," & Chr(13) & Chr(13) & "Veuillez trouver, ci-joint, le fichier des jours….." & _
        Chr(13) & Chr(13) & "Cordialement." & Chr(13) & Chr(13) & "blabla"
        Feuille = Application.Index([B:B], Application.Match(Target.Value, [A:A], 0))
        Sheets(Feuille).Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs "c:\temp\temp.xls", FileFormat:=xlExcel8
        Application.DisplayAlerts = True
        .Attachments.Add ActiveWorkbook.FullName
        .Send 'or use .Display
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

[anthooooony]

Bonjour,

J'ai eu l'information pour un problème posé sur le forum.
Un onglet : le stocker à un endroit dédié sur le dd et l'envoyer à une personne spécifique.
Le stocker à un endroit dédié à l'air de marcher cependant l'envoie de mail n'a pas l'air de marché.
Il met comme erreur "Call EnvoiMail" on m'a demandé si j'avais un submail(), mais à vrai dire je ne sais pas ce que c'est.

On vous remerciant de votre aide.

[Daniel.C]

Bonjour,

Ton code n'a pas grand-chose à voir avec le mien. Utilise ce dernier. Tu peux y apporter des modifications, mais ton code, tel qu'il est dans ton fichier ne risque pas de fonctionner. On dirait une resucée de celui que tu avais posté au début.