Pievienojiet jaunu lapu, mainiet lapas nosaukumu uz pastu.
Katrā pastā, kuru vēlaties nosūtīt, tiks izmantotas 3 slejas.
- A slejā - ievadiet lapas vai lapu nosaukumu, kuru vēlaties nosūtīt.
- ailē B - ievadiet e -pasta adresi.
- kolonnā C - tēmas nosaukums parādās e -pasta ziņojuma augšdaļā.
A: C slejā ievadiet pirmā pasta informāciju, bet otrajai varat izmantot slejas D: F.
jūs varat nosūtīt 85 dažādus e-pastus šādā veidā (85*3 = 255 kolonnas).
Apakšpasts Mail_sheets () Dim MyArr kā variants Dim pēdējais tik ilgi Dim shname Tik garš Dim a Kā vesels skaitlis Dim Arr () Kā virkne Dim N kā vesels skaitlis Dim strdate kā virkne a = 1 līdz 253 3. darbība If ThisWorkbook.Sheets ("mail" ). Šūnas (1, a) .Value = "" Pēc tam izejiet no lietojumprogrammas Subject.ScreenUpdating = False last = ThisWorkbook.Sheets ("mail"). Attiecībā uz shname = 1 Līdz pēdējam N = N + 1 ReDim Preserve Arr (1 līdz N) Arr (N) = ThisWorkbook.Sheets ("pasts"). Šūnas (shname, a). Vērtība Nākamais shname ThisWorkbook.Worksheets (Arr). Kopēt strdate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of" & ThisWorkbook.Name _ & "" & strdate & " .xls "Ar ThisWorkbook.Sheets (" pasts ") MyArr = .Range (.Cells (1, a + 1), .Cells (Rows.Count, a + 1) .End (xlUp)) Beigt ar ActiveWorkbook.SendMail MyArr , ThisWorkbook.Sheets ("mail"). Šūnas (1, a + 2). Value ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False Application.ScreenUpdating = True Next a Beigt apakš