Worksheet als PDF speichern

12/02/2013 - 09:43 von Peter Kraeft | Report spam
Hallo NG,

ich möchte das active Sheet als PDF speichern und dann mit Outlook versenden.
Bisher habe ich immer eine Excel-Tabelle so gesendet



ActiveWorkbook.SaveAs "Kopie_" & xlSubjectCell.Text & ".xlsx"

Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
With olMail
.To = xlToCell1.Text & xlToCell2.Text _
& xlToCell3.Text & xlToCell4.Text & xlToCell5.Text _
& xlToCell6.Text & xlToCell7.Text & xlToCell8.Text & xlToCell9.Text & xlToCell10.Text & _
xlToCell11.Text & xlToCell12.Text
.Subject = xlSubjectCell.Text & " Stand vom: " & xlBodyCell1.Text
.Body = "Hier die Änderungen vom " & xlBodyCell1.Text & " für " & xlSubjectCell.Text & vbTab & vbCrLf & vbCrLf _
& "Uhrzeit: " & Time
.Display
.Attachments.Add ActiveWorkbook.FullName
ActiveWorkbook.Close
.send

-

Es sollte jetzt aber als PDF versendet werden.
Kann mir jemand da einen Tipp geben. Ich nutze Office 2007

Viele Grüße
Peter
 

Lesen sie die antworten

#1 Ulf Rund
09/03/2013 - 11:13 | Warnen spam
On Tue, 12 Feb 2013 00:43:32 -0800 (PST), Peter Kraeft wrote:

Hallo NG,

ich möchte das active Sheet als PDF speichern und dann mit Outlook versenden.


[...]
Kann mir jemand da einen Tipp geben. Ich nutze Office 2007



https://www.microsoft.com/de-de/dow....aspx?id=7

mail to the address in the header will not be read
for answers please delete "NG" from address

Ähnliche fragen