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

Téma: Odeslani listu mailem

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje