feuille de courrier (s) à une ou plusieurs personnes utilisant VBA dans Microsoft Excel
Ajoutez une nouvelle feuille, changez le nom de la feuille en courrier.
Chaque courrier que vous souhaitez envoyer utilisera 3 colonnes.
-
dans la colonne A – entrez le nom de la ou des feuilles que vous souhaitez envoyer.
-
dans la colonne B – entrez l’adresse e-mail.
-
dans la colonne C – le titre du sujet apparaît en haut du message électronique.
Colonne A: C entrez les informations pour le premier courrier et vous pouvez utiliser les colonnes D: F pour le second.
vous pouvez envoyer 85 e-mails différents de cette manière (85 * 3 = 255 colonnes).
Sub Mail_sheets() Dim MyArr As Variant Dim last As Long Dim shname As Long Dim a As Integer Dim Arr() As String Dim N As Integer Dim strdate As String For a = 1 To 253 Step 3 If ThisWorkbook.Sheets("mail").Cells(1, a).Value = "" Then Exit Sub Application.ScreenUpdating = False last = ThisWorkbook.Sheets("mail").Cells(Rows.Count, a).End(xlUp).Row N = 0 For shname = 1 To last N = N + 1 ReDim Preserve Arr(1 To N) Arr(N) = ThisWorkbook.Sheets("mail").Cells(shname, a).Value Next shname ThisWorkbook.Worksheets(Arr).Copy strdate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _ & " " & strdate & ".xls" With ThisWorkbook.Sheets("mail") MyArr = .Range(.Cells(1, a + 1), .Cells(Rows.Count, a + 1).End(xlUp)) End With ActiveWorkbook.SendMail MyArr, ThisWorkbook.Sheets("mail").Cells(1, a + 2).Value ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True Next a End Sub