Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Aus Excel-Mappe pdf erstellen und per Outlook vers

Aus Excel-Mappe pdf erstellen und per Outlook vers
jensP
Guten Morgen,
hat jemand zufällig einen VBA-Code, der eine eine Excel-Mappe in pdf umwandelt und dann diese erstellte pdf-Datei automatisch per Outlook an vorgegebene Empfänger versendet.
Gruß, jensP

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Aus Excel-Mappe pdf erstellen und per Outlook vers
25.09.2009 13:23:51
Urmila
Hallo JensP,
hast du denn ein Pdf Drucker oder Acrobat vollversion?
Da würde ich dir raten, zeichne ein Makro auf indem du die Excelmappe ausdruckt und benennst.
Danach denke ich kann dir folgender Code weiterhelfen:
On Error GoTo mailzeigen
Dim olApp As Object
Dim olMailItm As Object
Dim i, k As Integer
lz = Cells(Rows.Count, 1).End(xlUp).Row
i = 2
weiter:
Do Until i > lz
Set olApp = CreateObject("Outlook.Application")
Set olMailItm = olApp.CreateItem(0)
With olMailItm
.To = "test@test.de" ' Empfänger eingeben
.Subject = "Betreffzeile"
.Body = "Hallo Frau/Herr Test," & Chr(13) & Chr(13) & "anbei die datei... "
.ReadReceiptRequested = True
.Attachments.Add "C:\My Folder\Printout\"Testdate.pdf" 'ggf. anpassen
.Send
End With
End If
Set olMailItm = Nothing
Set olApp = Nothing
End If
End With
Set olMailItm = Nothing
Set olApp = Nothing
Resume Next
GoTo weiter
Ich hoffe dir geholfen zu haben....
LG
Urmila
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige