MS Excel

Téma: odeslat jako PDF ?

Zaslal/a radekb 1.2.2011 18:45

Ahoj,

v sešitu mám makro, který mi odešle sešit jako přílohu e-mailem(viz níže).Potřeboval bych to upravit tak aby se mi sešit odeslal ve formátu .pdf(teda pokud to vůbec jde)
'Uložení sešitu
Dim Adresa, Jmeno_souboru, Ulozit_jako As String
Dim Nazev As String
Nazev = Range("E4") & Range("F4") & Range("G4") & Range("H4")
Adresa = "D:\Leitz 2011\Složka zápisu\"
Jmeno_souboru = Nazev
Ulozit_jako = Adresa & Jmeno_souboru
ActiveWorkbook.SaveAs Filename:=Ulozit_jako _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

'Odeslání e-mailu
Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "daniela.perclova@saint-gobain.com"
.CC = "marcel.tichy@saint-gobain.com"
.Subject = "Objednávka č.:" & Nazev
.Body = "Vážená paní,"
With .Attachments
.Add ThisWorkbook.FullName
End With
.Display
End With
Application.StatusBar = "Posílám e-mail!"
Set objOutlook = Nothing
Set objMail = Nothing
End Sub

Zaslat odpověď >

m.niki(2.2.2011 17:08)#003986

taky jsem se s tím nedávno trápil, v příloze máš funkčí sešit s tlačítkem pro odeslání jako PDF

Příloha: rar

3986_mail.rar (18kB, staženo 236x)

citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.