Zaslal/a Marekkoc 15.12.2014 15:14
Zdravím, rád bych vyznačenou oblast na listu v excelu poslal ve formě pdf ( pokud nepůjde tak ve formě xls), jako přílohu, na tři emailové adresy. Níže uvedeným makrem my nejde pouze vybrat oblast na listu a poslat to jako pdf, což vlastně potřebuju. Bylo by super ještě dát do těla nějakou univerzální větu pro příjemce a změnit jméno přílohy na aktuální datum. Používám LotusNotes. Díky MArek. Makro:
Sub Email()
mail = InputBox("Zadej email", "Email", "tralala@mojedomena.cz")
ThisWorkbook.ActiveSheet.Copy
With ActiveWorkbook
.SendMail Recipients:=mail, _
Subject:="Název " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Sub
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.