• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Odeslani listu mailem

Zaslal/a martinek.v 7.1.2015 20:43

Zdravím všechny, prosim vás, jak pomoci makra mohu odeslat jednotlivý list na mailovou adresu?
Děkuji mnohokrát,
s pozdravem,
Martin V.

Zaslat odpověď >

---

kp57(8.1.2015 22:23)#023031

Třeba takto:Sub VZOR_MAIL()
Dim Cesta As String, JmenoSouboru As String
Dim Prijemce As String, Predmet As String, Odpoved As Boolean
Dim pzcx As Long
Cesta = ThisWorkbook.Path
JmenoSouboru = "POKUS_MAIL.xlsx"
Application.DisplayAlerts = False
With Workbooks.Add
For pzcx = .Sheets.Count To 2 Step -1
.Sheets(pzcx).Delete
Next pzcx
.Sheets(1).Name = "MAIL"
ThisWorkbook.Sheets(1).Cells.Copy .Sheets(1).Cells
.SaveAs Cesta & "\" & JmenoSouboru
DoEvents
Prijemce = "kabelpavel@seznam.cz"
Predmet = "Pokus Mail"
Odpoved = False
Workbooks(JmenoSouboru).SendMail Prijemce, Predmet, Odpoved
.Close False
End With
Kill Cesta & "\" & JmenoSouboru
Application.DisplayAlerts = True
End Sub
citovat

martinek.v(10.1.2015 20:01)#023077

Děkuji moc, vyzkouším, jsem makrový amatér :)citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse